کمک فوری درباره ساخت جستجو

[alim2006]

سلام
من می خواستم یک جستجو در دیتا بیس درست کنم میشه من راهنمایی کنید:عصبانی++::عصبانی++:

[morika]

For j = 0 To Adodc1.Recordset.RecordCount
If Adodc1.Recordset.Fields("Name") = Trim(Text1.Text) Then
Msgbox Adodc1.Recordset.Fileds("Name")
Exit Sub
end if

Adodc1.Recordset.MoveNext
Next

[ali_md110]

دوست عزیز اگه تو سایت جستجو بکنی موارد زیادی هست ولی یه نمونه میزارم برات
این برنامه یه بانک اکسس داره با یک جدوا بنام TABLE1 و فیلدهایی بنام NAME,FAMIL,TEL,ADDRESSوREGION



Imports System.Data.OleDb
Public Class Form1
Dim mytbl As DataTable
Private Sub project_search()
Dim CNN As OleDbConnection
Dim DataReader As OleDbDataReader
Dim Command As OleDb.OleDbCommand

Dim cnnstr As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\db.mdb"
CNN = New OleDbConnection(cnnstr)
Dim SQL As String = "SELECT TABLE1.NAME, TABLE1.FAMIL, TABLE1.ADDRESS, TABLE1.TEL, TABLE1.REGION FROM(TABLE1)WHERE (((TABLE1.NAME)=[@name]) ]))"
Command = New OleDbCommand(SQL, CNN)
Command.CommandType = CommandType.Text
Command.Parameters.Add("@name", Data.OleDb.OleDbType.VarChar, 10).Value = Me.TXTNAME.Text
CNN.Open()
DataReader = Command.ExecuteReader

If DataReader.HasRows Then

While DataReader.Read()
Me.TextBox3.Text = DataReader.Item("ADDRESS")
Me.TextBox4.Text = DataReader.Item("tel")
Me.TextBox5.Text = DataReader.Item("REGION")
'
End While

Else
MsgBox("رکوردی پیدا نشد")
End If
DataReader.Close()
CNN.Close()
End Sub