جستجو در بانك اطلاعاتي اكسس

[darya_hg]

من ميخوام بر اساس مقداري كه در textbox قرار ميدم ديتابيسم رو جستجو كنم و تمام فيلدهايي رو كه در اون ركورد هستند داخل textbox هايي كه داخل فرمم قرار داره نشون بدم
ميشه راهنمايي كنيد چه كدي رو بايد واسه اين كار وارد كنم .بانك اطلاعاتي از نوع اكسس هستش .

[amirzazadeh]

من ميخوام بر اساس مقداري كه در textbox قرار ميدم ديتابيسم رو جستجو كنم و تمام فيلدهايي رو كه در اون ركورد هستند داخل textbox هايي كه داخل فرمم قرار داره نشون بدم
ميشه راهنمايي كنيد چه كدي رو بايد واسه اين كار وارد كنم .بانك اطلاعاتي از نوع اكسس هستش .
از شماره 8 اين تاپيك كمك بگير.
http://barnamenevis.org/forum/showthread.php?t=80976&highlight=find
...............................
موفق باشيد

[darya_hg]

از جوابتون تشكر ولي اونا همشون با sql هستند مشكل من اينجاست كه وقتي ركوردي رو بر اساس يكي از فيلدهاش پيدا كردم مابقي فيلدهاشو چطوري بدست بيارم بعبارتي موقعيت اون رو توي جدول بدست بيارم و بر اساس اون فيلدها رو داخل مابقي text box هام قرار بدم.


Dim str4 As String
Dim con As New Data.OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\taxi service\taxi.mdb")
Dim ad As New Data.OleDb.OleDbDataAdapter("select * from makan where codm ='" & Tt2.Text & "'", con)
Dim ds As New DataSet
str4 = "select * from makan where codm ='" & Tt2.Text & "
Dim makan As New Data.OleDb.OleDbCommand(str4, con)
con.Open()
ad.Fill(ds)
If ds.Tables(0).Rows.Count > 0 Then
makan.ExecuteNonQuery
("ركورد يافت شد", MsgBoxStyle.OkOnly + 64, "توجه")MsgBox

[seeker]

text2.text=ds.tables(0).rows(0).item(1)
text3.text=ds.tables(0).rows(0).item(2)
text4.text=...