24-07-15, 07:01 PM
السلام عليكم
اتمنى المساعدة اريد حفظ بيانات التي في ListView
الكود به اخطاء وليس خطأ
اتمنى المساعدة اريد حفظ بيانات التي في ListView
الكود به اخطاء وليس خطأ
كود :
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 ListView In ListView1.Columns
If row.FullRowSelect(0).Value Is Nothing Then Exit For
Dim sql As String =
" INSERT INTO [Return_Equipment] " &
" ( Ren_NO, Cus_Name, Cus_Private_Number, Equ_Price, Equ_Name, Equ_Quantity, Equ_Price, Ren_Date, Ren_NO ) " &
" VALUES " &
" ( @Ren_NO, @Cus_Name, @Cus_Private_Number, @Equ_Price, @Equ_Name, @Equ_Quantity, @Equ_Price, @Ren_Date, @Ren_NO ) "
Using cmd As New OleDbCommand(sql, conn)
cmd.Parameters.AddWithValue("@Ren_NO", ComboBox1.Text.ToString)
cmd.Parameters.AddWithValue("@Cus_Name", TextBox1.Text.ToString)
cmd.Parameters.AddWithValue("@Cus_Private_Number", TextBox2.Text.ToString)
cmd.Parameters.AddWithValue("@Equ_Price", TextBox3.Text.ToString)
cmd.Parameters.AddWithValue("@Ret_Date", DateTimePicker1.Value.ToString)
cmd.Parameters.AddWithValue("@Equ_Name", row.Cells(0).Value.ToString)
cmd.Parameters.AddWithValue("@Equ_Quantity", row.Cells(1).Value.ToString)
cmd.Parameters.AddWithValue("@Ren_Date", row.Cells(2).Value.ToString)
cmd.ExecuteNonQuery()
End Using
Next
conn.Close()
End Using
MessageBox.Show("We have been successfully Date", "Congratulations", MessageBoxButtons.OK, MessageBoxIcon.Information)