مساعدة في كود البحث

السلام عليكم

شوف الكود التالى واخبرنى هل يعمل ام وفى حالة ان الكود لا يعمل ارفق مثال واشوف ليك حل ان شاء الله

Dim b As New OleDb.OleDbConnection

Dim sel As New OleDb.OleDbCommand

Dim x As OleDb.OleDbDataReader

b.ConnectionString = "provider = microsoft.jet.oledb.4.0;data source=c:\db1.mdb"

sel.Connection = OleDbConnection1

sel.CommandText = " select * from tabel where [no]= ' " + TextBox3.Text + " ' " OleDbConnection1.Open()

x = sel.ExecuteReader

If x.Read Then

TextBox1.Text = x.GetValue(0)

TextBox2.Text = x.GetString(1)

TextBox3.Text = x.GetValue(2)

TextBox4.Text = x.GetString(3)

TextBox5.Text = x.GetString(4)

TextBox6.Text = x.GetString(5)

TextBox7.Text = x.GetString(6)

Else

MessageBox.Show("لم يتم العثور على الرقم")

End If

OleDbConnection1.Close()

x.Close()

يا waleedhm الكود اللي اعطيتني يخرج رسالة ( لم يتم العثور على هذا السجل )

توصلت الى كود وهو بالبحث عن طريق رقم العضو وجا معايا تمام

 Dim x As New OleDb.OleDbCommand
        Dim r As OleDb.OleDbDataReader
        x.Connection = OleDbConnection1
        x.CommandText = "select * from tabel where(s=" + TextBox1.Text + ")"
        OleDbConnection1.Open()
        r = x.ExecuteReader
        If r.Read Then
            TextBox1.Text = r.GetValue(0)
            TextBox2.Text = r.GetString(1)
            TextBox3.Text = r.GetValue(2)
            TextBox4.Text = r.GetString(3)
            TextBox5.Text = r.GetString(4)
            TextBox6.Text = r.GetString(5)
            TextBox7.Text = r.GetString(6)
        Else
            MessageBox.Show("لم يتم العثور على السجل")
        End If
        OleDbConnection1.Close()
        r.Close()

وهذا الكود للبحث بواسطة اسم العضو وما جا معايا واللي غيرته بس في جملة select اسم الحقلname و textbox2.text

   Dim x As New OleDb.OleDbCommand
        Dim r As OleDb.OleDbDataReader
        x.Connection = OleDbConnection1
        x.CommandText = "select * from tabel where(name='" + TextBox2.Text + "')"
        OleDbConnection1.Open()
        r = x.ExecuteReader
        If r.Read Then
            TextBox1.Text = r.GetValue(0)
            TextBox2.Text = r.GetString(1)
            TextBox3.Text = r.GetValue(2)
            TextBox4.Text = r.GetString(3)
            TextBox5.Text = r.GetString(4)
            TextBox6.Text = r.GetString(5)
            TextBox7.Text = r.GetString(6)
        Else
            MessageBox.Show("لم يتم العثور على اسم العضو")

        End If
        OleDbConnection1.Close()
        r.Close()

نسيت ان اشكرك على محاولت مساعدتي

لأن البرنامج جننننني

ولأن المنهج يتكلم عن oledb قاعدة بيانات ضعيفة

لكن بعد ما اخلص من هذا المنهج رايح انتقل sqlserver أن شاء الله