تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
سؤال : حفظ قمية الـ CheckBox داخل قاعدة بيانات access
#1
السلام عليكم

تعبت من المحاولة وانا بحاول حفظ قمية الـ 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()

ملاحظة / ربطت قاعدة البيانات بالبرنامج عن طريق الكود

اتمنى منكم المساعدة
الرد
تم الشكر بواسطة:
#2
اعط الشيك بوكس قيـمه واحفظها في عمود



[صورة مرفقة: g5qidgW.jpg]

ســبحــانك الـلهم بـحمدك , الـلهم لا عــلم لـنا الى مــأ علــمتــنا , الـلهـم علــمنـا ما جــهلـنا وانــفـعنــا بــما عــلمــتنـا انــك انـتَ الـسـميع الــعلــيم الـحكـيم ~~!I!

الرد
تم الشكر بواسطة: Sajad
#3
.....

أفضل طريقة لتجنب المشاكل في التعامل مع قواعد البيانات
هي بتمرير البيانات باستخدام البارامترات مع القيمة Parameters.AddWithValue
فهي تغنيك من تحديد نوع العمود (الحقل) وعلامات التنصيص
كالتالي:
كود :
Try

    'إذا كان ترقيم تلقائي id لاحاجة لإضافة
    Dim sql As String = " INSERT INTO [tb1] ([n], [m], [s]) VALUES (@n, @m, @s) "
    Using cmm As New OleDbCommand(sql, cnn)
        ' في الأكسس إحرص على ترتيب البارامترات بنفس ترتيبها اسمائها في جملة إسكويل
        cmm.Parameters.AddWithValue("@n", Me.TextBox2.Text)
        cmm.Parameters.AddWithValue("@m", Me.TextBox3.Text)
        cmm.Parameters.AddWithValue("@s", Me.CheckBox1.Checked)

        cnn.Open()
        cmm.ExecuteNonQuery()
        cnn.Close()

    End Using

    MsgBox("تمت الاضافة بنجاح")

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

.....
الرد
تم الشكر بواسطة: Sajad
#4
الله يعطيكم العافيه شباب على تعاونكم راح اجرب الحل
الرد
تم الشكر بواسطة:
#5
السلام عليكم...

الخطأ في موقع علامة التنصيص الفردية التي تضم قيمة الـ CheckBox مع محتوى TextBox3:

كود :
cmd.CommandText = "insert into tb1 ([id],[n],[m],[s]) values ('" & TextBox1.Text & _
"','" & TextBox2.Text & "','" & TextBox3.Text & "," & Me.CheckBox1.Checked & "')"

و الصواب هو:

كود :
cmd.CommandText = "insert into tb1 ([id],[n],[m],[s]) values ('" & TextBox1.Text & _
"','" & TextBox2.Text & "','" & TextBox3.Text & "'," & Me.CheckBox1.Checked & ")"

نرجو الاستفادة و السلام.
بِسْمِ اللهِ الرَّحْمَنِ الرَّحِيمِ ( وَ مَا تُقَدِّمُوا لِأَنفُسِكُم مِّنْ خَيْرٍ تَجِدُوهُ عِندَ اللهِ هُوَ خَيْراً وَ أَعْظَمَ أَجْراً ) صَدَقَ اللهُ الْعَظِيمُ
الرد
تم الشكر بواسطة: Sajad
#6
(30-05-14, 01:17 PM)ناجي إبراهيم كتب : السلام عليكم...

الخطأ في موقع علامة التنصيص الفردية التي تضم قيمة الـ CheckBox مع محتوى TextBox3:

كود :
cmd.CommandText = "insert into tb1 ([id],[n],[m],[s]) values ('" & TextBox1.Text & _
"','" & TextBox2.Text & "','" & TextBox3.Text & "," & Me.CheckBox1.Checked & "')"

و الصواب هو:

كود :
cmd.CommandText = "insert into tb1 ([id],[n],[m],[s]) values ('" & TextBox1.Text & _
"','" & TextBox2.Text & "','" & TextBox3.Text & "'," & Me.CheckBox1.Checked & ")"

نرجو الاستفادة و السلام.

ههههههههههه والله البرمجة ما تلعب شوف على علامة تنصيص كود كامل مو شغال
الرد
تم الشكر بواسطة: Sajad


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  الربط بين جهازين لقاعدة بيانات واحده makky 11 153 أمس, 12:07 AM
آخر رد: حريف برمجة
Information [سؤال] انشاء قاعدة بيانات access واضافة جدول وحقول بكود vb.net fefooo29 4 3,392 10-06-19, 09:31 PM
آخر رد: sherf
  مساعدة في تصميم قاعدة بيانات ادارة ساعات عمل الموظفين Rabeea Qbaha 6 128 06-06-19, 12:23 AM
آخر رد: elgokr
  استدعاء بيانات من اكثر من جدول المتألق9 1 118 04-06-19, 10:29 PM
آخر رد: احمد نعمة السلامي
  [VB.NET] رسالة خطأ عند الحذف أو تعديل بيانات جديدة #concurrency violation# sniperjawadino 11 470 28-05-19, 10:50 PM
آخر رد: sniperjawadino
Photo سؤال بخصوص ميزان مراجعه faysal13_13@hotmail.com 5 188 12-05-19, 05:00 PM
آخر رد: elgokr
  قاعدة البيانات بتقفل كل شوية احمد خطاب 5 235 11-05-19, 04:24 AM
آخر رد: احمد خطاب
  سؤال عن قواعد البيانات في فيجوال بيسك2015 Emam emam 6 174 11-05-19, 04:02 AM
آخر رد: Emam emam
  [VB.NET] قاعدة بيانات postgress tarek 2 216 06-04-19, 09:07 PM
آخر رد: elgokr
  الاتصال بقاعدة بيانات mdf موجودة على القرص نور الهدى الهدى 10 546 18-03-19, 08:55 PM
آخر رد: 5000

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم