[0theghost0]

السلام عليكم

اتمنى المساعدة اريد حفظ بيانات التي في 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)

[الطالب]

سلام

كود :

Using conn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\Database1.accdb;Persist Security Info=False;")
        conn.Open()

        Dim sql As String =
           " INSERT INTO [Return_Equipment] " &
           " ( [Ren_NO], [Cus_Name], [Cus_Private_Number], [Equ_Price], [Equ_Name], [Equ_Quantity], [Ren_Date] ) " &
           " VALUES " &
           " ( @Ren_NO,  @Cus_Name,  @Cus_Private_Number,  @Equ_Price,  @Equ_Name,  @Equ_Quantity,  @Ren_Date  ) "
        Using cmd As New OleDbCommand(sql, conn)

            For Each itm As ListViewItem In ListView1.Items

                cmd.Parameters.Clear()
                cmd.Parameters.AddWithValue("@Ren_NO", Val(ComboBox1.Text))
                cmd.Parameters.AddWithValue("@Cus_Name", TextBox1.Text)
                cmd.Parameters.AddWithValue("@Cus_Private_Number", TextBox2.Text)
                cmd.Parameters.AddWithValue("@Equ_Price", TextBox3.Text)
                cmd.Parameters.AddWithValue("@Equ_Name", itm.SubItems(0).Text)
                cmd.Parameters.AddWithValue("@Equ_Quantity", itm.SubItems(1).Text)
                cmd.Parameters.AddWithValue("@Ren_Date", itm.SubItems(2).Text)

                cmd.ExecuteNonQuery()

            Next

        End Using

        conn.Close()
    End Using

    MessageBox.Show("We have been successfully Date", "Congratulations", MessageBoxButtons.OK, MessageBoxIcon.Information)

موفقين

[0theghost0]

خوك صراحة ذخت حدي صارت مشكلة في السورس قام يخربط
سويت واحد ثاني وظهرت لي مشاكل مادري من ويش بالضبط خوك

---

ممكن كود بعد ما اختار رقم من الكومبو بكس يظهر لي البيانات لصاحب الرقم في TextBox ؟؟

ذخلت والله طلعت لي مشكلة لاني استخدم Dataset لاظهار البيانات من بعد ما اختار الرقم او الاسم

هل يوجد حل لجعل ظهور البيانات بعد ما اختار الرقم من ComboBox

اتمنى الرد

[سعود]

المثال مرفق

[Abu Ehab]

مختصر بـــــــ LINQ