+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم قواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=40)
+--- قسم : قسم أسئلة قواعد البيانات تحت بيئة الـ.NET (http://vb4arb.com/vb/forumdisplay.php?fid=41)
+--- الموضوع : لعدم وجود رد على سؤالي كتبته هنا بطريقة أوضح ,, ارجو المساعدة (/showthread.php?tid=24682)
لعدم وجود رد على سؤالي كتبته هنا بطريقة أوضح ,, ارجو المساعدة - ahmed_elwerfalli - 28-04-18
السلام عليكم ,,
تعديل قيمة حقل في قاعدة البيانات عندما يتساوى التيكست مع حع اول اربع ارقام من حقل آخر
و كتبت هذا الكود اشتغل تمام بدون اخطاء و لكن للأسف لم تتم عملية التعديل ,,
كود :
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
RE: لعدم وجود رد على سؤالي كتبته هنا بطريقة أوضح ,, ارجو المساعدة - ahmed_elwerfalli - 28-04-18
الحمد لله رب العالمين تم حل المشكلة و هي تغيير علامة * إلى %
طبعاً لعدم وجود ردود قلت نكتب الحل لعل احد من المتصفحين يستفيد منه
كود :
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