[سؤال] ما الخطأ فى كود الحفظ ... رجاء الدخول

[سؤال] ما الخطأ فى كود الحفظ ... رجاء الدخول - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم قواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=40)
+--- قسم : قسم أسئلة قواعد البيانات تحت بيئة الـ.NET (http://vb4arb.com/vb/forumdisplay.php?fid=41)
+--- الموضوع : [سؤال] ما الخطأ فى كود الحفظ ... رجاء الدخول (/showthread.php?tid=828)

ما الخطأ فى كود الحفظ ... رجاء الدخول - مصطفى_ظيمة - 03-11-13

كود الحفظ التالى يعطى رسالة خطأ عند محاولة الحفظ

الكود
[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

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

RE: ما الخطأ فى كود الحفظ ... رجاء الدخول - hminfo - 03-11-13

ربما المشكلة في انه لم تتم الاضافة بنجاح الجدول فارغ
count=0
position=count-1 =-1

RE: ما الخطأ فى كود الحفظ ... رجاء الدخول - مصطفى_ظيمة - 03-11-13

لالالا الجدول به بيانات كثيرة

RE: ما الخطأ فى كود الحفظ ... رجاء الدخول - kslawy - 03-11-13

السلام عليكم ورحمة الله وبركاته

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

بعدين استخدم محرر الأكواد لتنسيق أكوادك في المشاركة Dodgy

RE: ما الخطأ فى كود الحفظ ... رجاء الدخول - Sajad - 03-11-13

السلام عليكم

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

تم النقل

RE: ما الخطأ فى كود الحفظ ... رجاء الدخول - مصطفى_ظيمة - 07-11-13

تم والحمد لله حل المشكلة
واعتذر عن الخطأ الحادث منى
ساراعى طرح الأسئلة فى الأقسام المناسبة مستقبلا
تحياتى

RE: ما الخطأ فى كود الحفظ ... رجاء الدخول - ahmed saba - 08-11-13

كود :

بأعتقداي

لو عرفت متغير index

dim index as integer

وعند زر الأخير تكتب التالي او عند تحميل الفورم from load

[Index = dr.rows.count-1

movedata(index)

if index = 0 then

msgbox (" لايوجد أي سجل ")

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