03-11-13, 12:56 AM
(آخر تعديل لهذه المشاركة : 03-11-13, 12:58 AM {2} بواسطة مصطفى_ظيمة.)
كود الحفظ التالى يعطى رسالة خطأ عند محاولة الحفظ
الكود
[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
صورة رسالة الخطأ
الكود
[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
صورة رسالة الخطأ