20-07-15, 09:40 PM
السلام عليكم
اشكر كل من ساهم في حل مشكلتي الاولى والان اتوجه للمشكلة الاخرة وهي ان اثناء عملية الحفظ البيانات داخل الداتاقريد
يظهر لي البيانات المحفوظة :
فهل هناك حل لجعل كل رقم لزبون مع الاغراض المستأجرة ؟؟
الكود :
اتمنى ان تضيفوا لمستكم الخاصة لحل المشكلة
اشكر كل من ساهم في حل مشكلتي الاولى والان اتوجه للمشكلة الاخرة وهي ان اثناء عملية الحفظ البيانات داخل الداتاقريد
يظهر لي البيانات المحفوظة :
فهل هناك حل لجعل كل رقم لزبون مع الاغراض المستأجرة ؟؟
الكود :
كود :
Using conn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\Database1.accdb;Persist Security Info=False;")
conn.Open()
For Each row As DataGridViewRow In DataGridView1.Rows
If row.Cells(0).Value Is Nothing Then Exit For
Dim sql As String =
" INSERT INTO [Rent_Equipment] " &
" ( Cus_ID, Cus_Name, Cus_Private_Number, Equ_ID, Equ_Name, Equ_Quantity, Equ_Price, Ren_Date ) " &
" VALUES " &
" ( @Cus_ID, @Cus_Name, @Cus_Private_Number, @Equ_ID, @Equ_Name, @Equ_Quantity, @Equ_Price, @Ren_Date ) "
Using cmd As New OleDbCommand(sql, conn)
cmd.Parameters.AddWithValue("@Cus_ID", ComboBox1.Text.ToString)
cmd.Parameters.AddWithValue("@Cus_Name", TextBox1.Text.ToString)
cmd.Parameters.AddWithValue("@Cus_Private_Number", TextBox2.Text.ToString)
cmd.Parameters.AddWithValue("@Equ_ID", row.Cells(0).Value.ToString)
cmd.Parameters.AddWithValue("@Equ_Name", row.Cells(1).Value.ToString)
cmd.Parameters.AddWithValue("@Equ_Quantity", row.Cells(2).Value.ToString)
cmd.Parameters.AddWithValue("@Equ_Price", TextBox4.Text.ToString)
cmd.Parameters.AddWithValue("@Ren_Date", DateTimePicker1.Value.ToString)
cmd.ExecuteNonQuery()
End Using
Next
conn.Close()
End Using
MessageBox.Show("We have been successfully Date", "Congratulations", MessageBoxButtons.OK, MessageBoxIcon.Information)