تقييم الموضوع :
  • 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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] كيفية ربط قاعدة بيانات اكسس 2007 بالفيجوال 2008 mohmedhosen 3 4,840 16-07-18, 08:48 PM
آخر رد: aridje34
  مل نسخة احتياطية لقاعدة بيانات sql server djelloul 3 521 04-07-18, 02:18 PM
آخر رد: fareglarkt
  سؤال في جملة select تناسيم 1 104 02-05-18, 04:38 PM
آخر رد: تناسيم
  بحث و اظهار سجلات من قاعدة البيانات في حال تساوت اول 4 ارقام من text بالقيمه الموجود ahmed_elwerfalli 0 128 25-04-18, 04:12 PM
آخر رد: ahmed_elwerfalli
  سؤال في جملة select تناسيم 2 123 05-04-18, 01:36 PM
آخر رد: تناسيم
Tongue ربط قاعدة بينات اكسل مع الفيجوال عمار عيثاوي 3 2,100 02-03-18, 05:13 PM
آخر رد: محمد بن عطية
  إضافة الصورة في قاعدة البيانات iFanfan 0 192 01-03-18, 06:02 PM
آخر رد: iFanfan
  [سؤال] كومبوبوكس داخل داتا جريد فيو أبوسعود 1 113 17-02-18, 11:52 AM
آخر رد: khodor1985
  بيانات الصنف في الفاتورة atefkhalf2004 1 295 13-02-18, 09:53 PM
آخر رد: atefkhalf2004
  كيف يمكن نسخ جدول من قاعدة بيانات الي اخري atefkhalf2004 9 238 30-01-18, 02:59 PM
آخر رد: atefkhalf2004

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


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