[ZaerAllail]

تم حل الخطأ بشكل بسيط جدا لا يخطر على أحد وهو فقط بإضافة أمر الإستبدال للكود الخاص بالإستعلام ليصبح كالتالي 

كود :

da = New SqlDataAdapter("select NameOfMov From MovTable where NameOfMov =  '" & Trim(NameSearchTB.Text).ToString().Replace("'", "''") & "'", sqlcon)

عموما شكرا للجميع !

---

(07-04-20, 06:52 PM)hashemb1978 كتب : اخي الكريم هادا كود البحث مع المرفق بلغني لو زبط اذا بدك تراسلني عالفيس راسلني علي هاد الرابط
https://www.facebook.com/profile.php?id=100000509588475
ضع هذا الكود في زر البحث

Dim myQuery As String = ""

                Dim sql As String = "select * from studenet where Class like '%" & TextBox1.Text & "%' "
                If con.State() Then con.Close()
                con.Open()
                Dim cmd As New OleDbCommand(sql, con)
                Dim dr As OleDbDataReader
                dr = cmd.ExecuteReader()
                If dr.Read() = True Then
في حال وجد السجل يضع بياناته في التكسات
                    TextBox2.Text = dr.Item(0).ToString
                    TextBox3.Text = dr.Item(1).ToString
                    TextBox4.Text = dr.Item(3).ToString
                    TextBox5.Text = dr.Item(2).ToString
                    Dim da = New OleDbDataAdapter(sql, con)
                    Dim dt As New DataTable
                    da.Fill(dt)
                    Me.DataGridView1.DataSource = dt
                    con.Close()

                Else
في حال لم يجد البيانات يفرغ التكسات                   
 con.Close()
                    TextBox1.Text = ""
                    tb1.Text = ""
                    tb2.Text = ""
                    Com3.Text = ""
                    TextBox2.Text = ""
                                      
                    MsgBox(" الصف غير موجود ", MsgBoxStyle.Information, "المكتبه")

                End If

---

اخي الكريم جرب هادا الكود


ضع هذا الكود في زر البحث

Dim myQuery As String = ""

                Dim sql As String = "select * from studenet where Class like '%" & TextBox1.Text & "%' "
                If con.State() Then con.Close()
                con.Open()
                Dim cmd As New OleDbCommand(sql, con)
                Dim dr As OleDbDataReader
                dr = cmd.ExecuteReader()
                If dr.Read() = True Then
في حال وجد السجل يضع بياناته في التكسات
                    TextBox2.Text = dr.Item(0).ToString
                    TextBox3.Text = dr.Item(1).ToString
                    TextBox4.Text = dr.Item(3).ToString
                    TextBox5.Text = dr.Item(2).ToString
                    Dim da = New OleDbDataAdapter(sql, con)
                    Dim dt As New DataTable
                    da.Fill(dt)
                    Me.DataGridView1.DataSource = dt
                    con.Close()

                Else
في حال لم يجد البيانات يفرغ التكسات                   
 con.Close()
                    TextBox1.Text = ""
                    tb1.Text = ""
                    tb2.Text = ""
                    Com3.Text = ""
                    TextBox2.Text = ""
                                      
                    MsgBox(" الصف غير موجود ", MsgBoxStyle.Information, "المكتبه")

                End If

مرفق الكود

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

عموما الجواب على هذا السؤال في المشاركه الأخيره