السلام عليكم
تعبت من المحاولة وانا بحاول حفظ قمية الـ CheckBox داخل قاعدة بيانات access
بأستخدام هذا الكود رغم أن بقية الحقول تنحفظ إلا قيمتة الـ CheckBox
ارجوا ممن يعرف الحل أخبارى واترك لكم الكود قد يكون هناك خطأ ما بة
connec()
Dim dts As DataSet = New DataSet
Dim da As OleDbDataAdapter = New OleDbDataAdapter
Dim sqls As String
sqls = "select * from tb1 where id='" & TextBox1.Text & "'"
da.SelectCommand = New OleDbCommand(sqls, cnn)
dts.Clear()
da.Fill(dts)
If dts.Tables(0).Rows.Count = 0 Then
cmd.Connection = cnn
cmd.CommandText = "insert into tb1 ([id],[n],[m],[s]) values ('" & TextBox1.Text & _
"','" & TextBox2.Text & "','" & TextBox3.Text & "," & Me.CheckBox1.Checked & "')"
cmd.ExecuteNonQuery()
MsgBox("تمت الاضافة بنجاح")
da.Dispose()
dts.Dispose()
cnn.Close()
End If
حيث أن تنفيذ الكود بيتوقف عند cmd.ExecuteNonQuery()
ملاحظة / ربطت قاعدة البيانات بالبرنامج عن طريق الكود
اتمنى منكم المساعدة
تعبت من المحاولة وانا بحاول حفظ قمية الـ CheckBox داخل قاعدة بيانات access
بأستخدام هذا الكود رغم أن بقية الحقول تنحفظ إلا قيمتة الـ CheckBox
ارجوا ممن يعرف الحل أخبارى واترك لكم الكود قد يكون هناك خطأ ما بة
connec()
Dim dts As DataSet = New DataSet
Dim da As OleDbDataAdapter = New OleDbDataAdapter
Dim sqls As String
sqls = "select * from tb1 where id='" & TextBox1.Text & "'"
da.SelectCommand = New OleDbCommand(sqls, cnn)
dts.Clear()
da.Fill(dts)
If dts.Tables(0).Rows.Count = 0 Then
cmd.Connection = cnn
cmd.CommandText = "insert into tb1 ([id],[n],[m],[s]) values ('" & TextBox1.Text & _
"','" & TextBox2.Text & "','" & TextBox3.Text & "," & Me.CheckBox1.Checked & "')"
cmd.ExecuteNonQuery()
MsgBox("تمت الاضافة بنجاح")
da.Dispose()
dts.Dispose()
cnn.Close()
End If
حيث أن تنفيذ الكود بيتوقف عند cmd.ExecuteNonQuery()
ملاحظة / ربطت قاعدة البيانات بالبرنامج عن طريق الكود
اتمنى منكم المساعدة
