منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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

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

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

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

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

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

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

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

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

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