تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] ما الخطأ فى كود الحفظ ... رجاء الدخول
#1
كود الحفظ التالى يعطى رسالة خطأ عند محاولة الحفظ

الكود
[code]Try

Dim dr As SqlDataReader
If Trim(TextBox2.Text) = "" Then
MsgBox("عفـوا... يجـب إدخـال رقـم القـرار ", MsgBoxStyle.Critical + MsgBoxStyle.MsgBoxRight + MsgBoxStyle.MsgBoxRtlReading, "Message")
TextBox2.Focus()
Exit Sub
End If

Dim cmd1 As SqlCommand = New SqlCommand("SELECT nu from tb order by nu", con)


If con.State = ConnectionState.Open Then con.Close()
con.Open()
dr = cmd1.ExecuteReader()
If dr.HasRows() Then
MsgBox(" الرقم التسلسلي التالي موجود من قبل ...هل تريد تحديث البيانات ")
If MsgBox(" الرقم التسلسلي التالي موجود من قبل ...هل تريد تحديث البيانات ", MsgBoxStyle.Question + MsgBoxStyle.OkCancel, "تنبيه") = MsgBoxResult.Cancel Then
Exit Sub
End If

End If

If TextBox2.Text = "" Then

'كود اضافة سجل جديد
Dim Add_NewRow As DataRow = SQLDataSet1.Tables("tb").NewRow()

If TextBox2.Text = "" Then Add_NewRow("nu ") = DBNull.Value Else Add_NewRow("nu ") = TextBox2.Text.Trim

If ComboBox1.Text = "" Then Add_NewRow("adress") = DBNull.Value Else Add_NewRow("adress") = ComboBox1.Text.Trim




SQLDataSet1.Tables("tb").Rows.Add(Add_NewRow)




'كود حفظ الاضافة
Validate()
SQLDataAdapter1.Update(SQLDataSet1, "tb")
SQLDataSet1.AcceptChanges()


'تحديث قاعدة البيانات
con.Open()
SQLDataSet1.Clear()
SQLDataAdapter1.Fill(SQLDataSet1, "tb")
con.Close()


'كود الانتقال الى اخر سجل تم اضافته بعد تخديث قاعدة البيانات
Me.BindingContext(SQLDataSet1, "tb").Position = Me.BindingContext(SQLDataSet1, "tb").Count - 1



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



End If


Catch ex As Exception




MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)


End Try

صورة رسالة الخطأ

الرد }}}}
تم الشكر بواسطة:
#2
ربما المشكلة في انه لم تتم الاضافة بنجاح الجدول فارغ
count=0
position=count-1 =-1
الرد }}}}
تم الشكر بواسطة:
#3
لالالا الجدول به بيانات كثيرة
الرد }}}}
تم الشكر بواسطة:
#4
السلام عليكم ورحمة الله وبركاته

ما هو الكود الذي تعبئ به SQLDataSet1 ؟

بعدين استخدم محرر الأكواد لتنسيق أكوادك في المشاركة Dodgy
(وَقُل رَّبِّ زِدْنِي عِلْمًا)

الرد }}}}
تم الشكر بواسطة:
#5
السلام عليكم

برجاء وضع المواضيع والمشاركات في اقسامها المحددة وإلا سيتم حذف الموضوع بغض النظر عن محتواه

تم النقل
الرد }}}}
تم الشكر بواسطة:
#6
تم والحمد لله حل المشكلة
واعتذر عن الخطأ الحادث منى
ساراعى طرح الأسئلة فى الأقسام المناسبة مستقبلا
تحياتى
الرد }}}}
تم الشكر بواسطة:
#7
كود :
بأعتقداي
لو عرفت متغير index
dim index as integer
وعند زر الأخير تكتب التالي او عند تحميل الفورم from load
[Index = dr.rows.count-1
movedata(index)
if index = 0 then
msgbox (" لايوجد أي سجل ")

أعذرني انا مازلت مبتدىء في البرمجه ومش متأكد من الجواب ان كان صحيح او خطاء
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] مشكله عند الحفظ على قاعدة بيانات باستخدام Data Source وقاعدة بيانات اكسس2007 coderarab 7 368 24-07-16, 06:26 PM
آخر رد: سعود
  كود الدخول للبرنامج بالادو كلاسيك و مساعده بالادو دوت نت كونيكتيد مود النظام المتصل emando 10 1,629 05-03-16, 10:50 PM
آخر رد: emando
  تكرار البيانات داخل قاعدة البيانات اثناء الحفظ Medo555 1 407 23-12-15, 04:08 AM
آخر رد: Adrees
  كود التأكد قبل الحفظ sameerah 3 315 12-12-15, 08:32 PM
آخر رد: sameerah
  تعديل كود الحفظ hglogtd 6 356 06-12-15, 11:51 AM
آخر رد: hglogtd
  تنفيذ هذا الاستعلام رجاء رجاء الافادة badr123456 2 200 23-11-15, 09:56 AM
آخر رد: badr123456
Information [كود] كود الدخول على حسب الصلاحيات المعطاه ! kalotibi 13 574 04-09-15, 07:46 AM
آخر رد: سعود
  [Acces2003] رجاء من خبراء الأكسيس المشروع لا يعمل في ويندوز 8 محمد مسافر 5 537 06-02-15, 11:17 PM
آخر رد: ahmed saba
  [VB.NET] معرفة بيانات الدخول لبرنامج A.T.A 12 1,850 16-12-14, 03:06 PM
آخر رد: سعود
  الحفظ والحذف في قاعدة البيانات aftfm 1 572 22-05-14, 06:32 AM
آخر رد: aftfm

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


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