28-04-18, 01:30 AM
السلام عليكم ,,
تعديل قيمة حقل في قاعدة البيانات عندما يتساوى التيكست مع حع اول اربع ارقام من حقل آخر
و كتبت هذا الكود اشتغل تمام بدون اخطاء و لكن للأسف لم تتم عملية التعديل ,,
و كذلك كيف اظهر البيانات على listview
في حال colum1 LIKE TextBox1.Text
تعديل قيمة حقل في قاعدة البيانات عندما يتساوى التيكست مع حع اول اربع ارقام من حقل آخر
و كتبت هذا الكود اشتغل تمام بدون اخطاء و لكن للأسف لم تتم عملية التعديل ,,
كود :
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