تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] ماهي افضل طريقة للتعامل مع ListViwe للحفظ البيانات
#1
السلام عليكم

اتمنى المساعدة اريد حفظ بيانات التي في 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)
الرد
تم الشكر بواسطة:
#2
سلام

كود :
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)

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

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

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

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

اتمنى الرد
الرد
تم الشكر بواسطة:
#4
المثال مرفق


الملفات المرفقة
.zip   JustThing.zip (الحجم : 54.88 ك ب / التحميلات : 75)
الرد
تم الشكر بواسطة: العواد الصغير
#5
مختصر بـــــــ LINQ


الملفات المرفقة
.rar   WindowsApplication1.rar (الحجم : 83.78 ك ب / التحميلات : 57)
Abu Ehab : Microsoft Partner  & Systems Developer
 Youtube   Facebook    Twitter   
الرد
تم الشكر بواسطة: ابو ابراهيم , ابو ابراهيم , khodor1985


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] كيفية ربط ProgressBar بعملية حفظ البيانات mr_hso 0 25 17-04-19, 11:21 PM
آخر رد: mr_hso
  [VB.NET] اريد كود للطباعة لأي نوع من انواع قواعد البيانات tarek 1 48 14-04-19, 02:53 PM
آخر رد: Rabeea Qbaha
  [نقاش] قاعدة البيانات sdf اسامه الهرماوي 10 141 10-04-19, 12:31 PM
آخر رد: elgokr
  [VB.NET] افضل نوع قاعدة بيانات للشبكات tarek 3 103 09-04-19, 02:26 AM
آخر رد: elgokr
  [ تم الحل ] فتح قاعدة البيانات من خلال أداة OpenFileDialog sads 8 163 05-04-19, 03:17 AM
آخر رد: elgokr
  التعامل مع قواعد البيانات بأسماء حقول عربية sads 3 64 03-04-19, 12:52 AM
آخر رد: elgokr
  [سؤال] اريد شرح طريقة رفع قاعدة بيانات من نوع mysql ابو يوسف النواوي 2 6 120 27-03-19, 11:51 AM
آخر رد: أبوبكر سويدان
  سؤال حول عرض البيانات في تكست بوكس من قاعدة البيانات ahmadpal 0 48 26-03-19, 11:46 PM
آخر رد: ahmadpal
  طريقة البحث المتعدد ahmadpal 0 77 26-03-19, 12:02 AM
آخر رد: ahmadpal
Wink [سؤال] سؤال حول عرض البيانات في كومبوبوكس ahmadpal 2 94 23-03-19, 11:42 PM
آخر رد: ahmadpal

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم