[ahmed_elwerfalli]

السلام عليكم ,, 

تعديل قيمة حقل في قاعدة البيانات عندما يتساوى التيكست مع حع اول اربع ارقام من حقل آخر 
و كتبت هذا الكود اشتغل تمام بدون اخطاء و لكن للأسف لم تتم عملية التعديل ,, 

كود :

 Try
           Dim sa1 As String = "select * from tab1"
           Dim cmd11 As New OleDbCommand(sa1, cn)
           Dim drq As OleDbDataReader = cmd11.ExecuteReader
           While drq.Read            
 If drq.HasRows Then
                   Dim s As String = "update tab1 set colum2=@x1 where colum1 LIKE '*" + TextBox1.Text + "*'"
                   Dim cmdz As New OleDbCommand(s, cn)
                   Dim zz As Integer = 1
                   cmdz.Parameters.AddWithValue("@x1", zz)
               Else
               End If
           End While
           drq.Close()
           cmd11.ExecuteNonQuery()
       Catch ex As Exception
           MsgBox(ex.Message)
           Exit Sub
       End Try

و كذلك كيف اظهر البيانات على listview 
في حال  colum1 LIKE  TextBox1.Text

[ahmed_elwerfalli]

الحمد لله رب العالمين تم حل المشكلة و هي تغيير علامة * إلى % 
طبعاً لعدم وجود ردود قلت نكتب الحل لعل احد من المتصفحين يستفيد منه 

كود :

Try
           Dim sa1 As String = "select * from qmonth"
           Dim cmd11 As New OleDbCommand(sa1, cn)
           Dim drq As OleDbDataReader = cmd11.ExecuteReader
           While drq.Read
               If drq.HasRows Then
                   Dim s As String = "update qmonth set staite_a=@x1 where code_q LIKE '%" + TextBox1.Text + "%'"
                   Dim cmdz As New OleDbCommand(s, cn)
                   Dim zz As Integer = 1
                   cmdz.Parameters.AddWithValue("@x1", zz)
                   cmdz.ExecuteNonQuery()
               Else
               End If
           End While
           drq.Close()

       Catch ex As Exception
           MsgBox(ex.Message)
           Exit Sub
       End Try