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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  سرعة ادخال البيانات داخل ملف اكسس atefkhalf2004 0 11 أمس, 04:55 PM
آخر رد: atefkhalf2004
  عدد السجلات داخل ملف اكسس atefkhalf2004 7 76 18-02-17, 06:29 PM
آخر رد: atefkhalf2004
  نسخ جدول من قاعدة الي اخري مع الوصف atefkhalf2004 2 35 18-02-17, 01:34 AM
آخر رد: atefkhalf2004
  فتح قاعدة البيانات محفوظة ب باسس ورد في جملة الاتصال ahmed_elwerfalli 2 35 13-02-17, 05:27 PM
آخر رد: ahmed_elwerfalli
  كيفية الاتصال بقاعدة بيانات Access على الشبكة المحلية warda saeed 8 8,094 12-02-17, 01:55 PM
آخر رد: وائل القطاوي
  قاعدة بيانات xml djelloul 2 55 06-02-17, 11:06 PM
آخر رد: djelloul
  كيفية عمل أتاش لقاعدة بيانات djelloul 0 80 24-01-17, 04:35 PM
آخر رد: djelloul
Bug [Acces2010] طريقة استدعاء بيانات النزيل القديم برقم الهوية يسرى7 12 349 18-01-17, 09:42 PM
آخر رد: يسرى7
  الانتقال إلى السجل الثاني في قاعدة البيانات و إظهار الصورة التالية على picturebox ahmed_elwerfalli 6 288 24-12-16, 11:07 PM
آخر رد: ahmed_elwerfalli
  جلب البيانات من قاعدة بيانات XML djelloul 0 117 13-12-16, 07:45 PM
آخر رد: djelloul

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


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