27-03-14, 12:33 PM
السلام عليكم
لدي كود يحفظ في 3 حداول
الكود يمشي في حفظ البيانات الخاصه بالجدول الأول تمام ولما يجي على الجدول الثاني يوقف وتظهر رساله الخطأ (معلمات قليله جداً المتوقع هو 3)
اليكم الكود
لدي كود يحفظ في 3 حداول
الكود يمشي في حفظ البيانات الخاصه بالجدول الأول تمام ولما يجي على الجدول الثاني يوقف وتظهر رساله الخطأ (معلمات قليله جداً المتوقع هو 3)
اليكم الكود
PHP كود :
Private Sub btnSaveInfo_Click(sender As Object, e As EventArgs) Handles btnSaveInfo.Click
Dim ConnString As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=.\ApoSYS.ACCDB"
Dim ApoSYSconn As New OleDbConnection(ConnString)
ApoSYSconn.Open()
Dim CMD As New OleDb.OleDbCommand("qNewCustomer", ApoSYSconn)
CMD.CommandType = CommandType.StoredProcedure
CMD.Parameters.Add(New OleDb.OleDbParameter("@CivilRegNum", txtCRN.Text))
CMD.Parameters.Add(New OleDb.OleDbParameter("@Name1", txtName1.Text))
CMD.Parameters.Add(New OleDb.OleDbParameter("@Name2", txtName2.Text))
CMD.Parameters.Add(New OleDb.OleDbParameter("@Name3", txtName3.Text))
CMD.Parameters.Add(New OleDb.OleDbParameter("@Name4", txtName4.Text))
CMD.Parameters.Add(New OleDb.OleDbParameter("@MobileNum", txtMobileNo.Text))
CMD.ExecuteNonQuery()
Dim CMD1 As New OleDb.OleDbCommand("qNewBarwah", ApoSYSconn)
CMD1.CommandType = CommandType.StoredProcedure
CMD.Parameters.Add(New OleDb.OleDbParameter("@Customer", txtCRN.Text))
CMD.Parameters.Add(New OleDb.OleDbParameter("@BarwahNum", txtBarwahNo.Text))
CMD.Parameters.Add(New OleDb.OleDbParameter("@Notes", txtNotes.Text))
CMD1.ExecuteNonQuery()
Dim CMD2 As New OleDb.OleDbCommand("qNewDate", ApoSYSconn)
CMD2.CommandType = CommandType.StoredProcedure
CMD.Parameters.Add(New OleDb.OleDbParameter("@BawahNum", txtBarwahNo.Text))
CMD.Parameters.Add(New OleDb.OleDbParameter("@DateReg", txtDateReg.Text))
CMD.Parameters.Add(New OleDb.OleDbParameter("@DateReceipt", txtDateRecipt.Text))
CMD2.ExecuteNonQuery()
ApoSYSconn.Close()
MsgBox("تم الحفظ")
End Sub