منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - ماهي افضل طريقة للتعامل مع ListViwe للحفظ البيانات

السلام عليكم

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

موفقين

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

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

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

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

اتمنى الرد

المثال مرفق

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

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

0theghost0

الطالب

0theghost0

سعود

Abu Ehab