لم اتمكن من حفظ قيمة ال Checkbox في قاعدة بيانات Access

اذا كنت بدك تحفظ قيمة واحده يختارها المستخدم

Dim s As String

s = CheckedListBox1.CheckedItems(0)

MsgBox(s)

واذا بدك تضيف اكثر من قيمة استخدم

loop

واي اشي انا جاهز

أخ مصطفى لايفلح الأمر عندما أحول قمية الـ checkbox إلى نص لحفظها بقاعدة البيانات, ثم اننى استخدم الـ checkbox ببرنامجى وانت ذكرت CheckedListBox

ارجوا منك التكرم بإفادتى وكذلك ارجوا المساعدة من بقية الاخوة والسلام عليكم

ملاحظة / الكود اللى وضعتة صحيح بيحفظ كافة الحقول إلا قيمة الـ checkbox بيطلع لها خطأ ولو اتثنيناها يمشى كويس

أخي الكريم ..

أول شي لازم ان يكون الحقل اللي في قاعده البيانات من نوع true او false على شان تقدر تحزن قيمة الـ CheckBox

وعلشان تقدر تخزن البيانات لازم تقوم بتحويل قيمة الـ 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],) values ('" & TextBox1.Text & _
			"','" & TextBox2.Text & "','" & TextBox3.Text & "," & CType(CheckBox1.Checked, Boolean) & "')"
			cmd.ExecuteNonQuery()
			MsgBox("تمت الاضافة بنجاح")
			da.Dispose()
			dts.Dispose()
			cnn.Close()
		End If

انا اسف اخ yemen لأن الدنيا كانت ليل والواحد مش صاحي شفت الcheck

list هههههههه

انت كاتب صح CheckBox1.Checked

وزي ما حكى الاخ طلال لازم تعمل الحقل من نوع boolean

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

ارجوا منكم التكرم بالدلو بالإجابة الشافية وجزاكم الله خير ولو يكون الرد مدعم بمثال احسن

اخي الكريم اضف مثال وان شاء الله نساعد باللي نقدر علية

تحياتي

يوجد خطأ في صياغة جملة ال insert تأكد من علامة ' بشكل صحيح وجرب :

cmd.CommandText = "insert into tb1 (id,n,m,s) values ('" & TextBox1.Text & _
			"','" & TextBox2.Text & "','" & TextBox3.Text & "','" & CType(CheckBox1.Checked, Boolean) & "')"

علما بأن الحقل الاول id ان لم يكن نص وكان رقم فلا تضع علامة '

اي تصبح :

cmd.CommandText = "insert into tb1 (id,n,m,s) values (" & TextBox1.Text & _
			",'" & TextBox2.Text & "','" & TextBox3.Text & "','" & CType(CheckBox1.Checked, Boolean) & "')"

فأخبرني هل انت متأكد ان المشكلة في حقل checkbox فقط ام انك غير متأكد

يوجد خطأ في صياغة جملة ال insert تأكد من علامة ' بشكل صحيح وجرب :

cmd.CommandText = "insert into tb1 (id,n,m,s) values ('" & TextBox1.Text & _
			"','" & TextBox2.Text & "','" & TextBox3.Text & "','" & CType(CheckBox1.Checked, Boolean) & "')"

علما بأن الحقل الاول id ان لم يكن نص وكان رقم فلا تضع علامة '

اي تصبح :

cmd.CommandText = "insert into tb1 (id,n,m,s) values (" & TextBox1.Text & _
			",'" & TextBox2.Text & "','" & TextBox3.Text & "','" & CType(CheckBox1.Checked, Boolean) & "')"

فأخبرني هل انت متأكد ان المشكلة في حقل checkbox فقط ام انك غير متأكد

أجل اخي المشكلة فقط في الـ checkbox والباقى تمام

ارجوا منكم الافادة

والسلام عليكم

أنا |أستعمل الكود التالى فى التعامل مع ذلك CHECKBOX

ME.TEXT1.TEXT = ME.CHECKBOX1.VALUE

وشكرا لك

OMER ارجوا التوضيح اكثر

وآمل المساعدة من بقية الأخوة

والسلام عليكم