للمتخصصين في البحث بقواعد البيانات

السلام عليكم ورحمة الله وبركاتة

أخى العملية سهلة ولكن أصبر على قليلا حتى انتهى من أمر طارئ

-09

الاخ العزيز

أعتقد ان عملية الاستعلام هذة سوف تكون صعبة فى حالة محاولة ترك قيمة الجدول

فارغة ((هذا اعتقاد)) ,, لانى لا اعرف كيف يمكن عملها :rolleyes:

اما بخصوص القيمة فيمكن استخدام الاتى :

Dim db As New ADODB.Connection
Dim rst As New ADODB.Recordset

Private Function qry_d(ByVal qr_value As String)
Dim a As String
a = qr_value
rst.Find "اسم الجدول='" + a + "'"
End Function
Private Sub Command1_Click()
qry_d "اسم القيمة"
Set DataGrid1.DataSource = rst
End Sub

Private Sub Form_Load()
db.Open "provider=microsoft.jet.oledb.4.0;data source = c:\gcdb.mdb"
db.CursorLocation = adUseClient
rst.Open "select * from dealer_info", db
Set DataGrid1.DataSource = rst
End Sub

و لكنى متأكد 100 % ان العملية الاولى سوف تتبع نفس الفكرة السابقة بس تفكيرى وقف (بسبب الــ vb.net) اسف

شكرا ً

-09

اخوانى بالضافة للمشاركة السابقة

فما الخطأ من هذا الخطأ فى الـ function اذا كاتن هكذا:

Private Function qry_d(ByVal qr_value As String)
Dim a, b As String
a = qr_value
b = Text2.Text
rst.Find "'" + b + "'" = "'" + a + "'"
End Function

وشكرا ً

الأخ codefinder

طبعا سيظهر خطأ لأن علامة ( = ) خارج القوس ، عدلها بحيث تكون داخل القوس يعني :

rst.Find "'" + b + "' = '" + a + "'"