تقييم الموضوع :
  • 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)
[صورة مرفقة: p2.png]
الرد
تم الشكر بواسطة: العواد الصغير
#5
مختصر بـــــــ LINQ


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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] اسهل طريقة لطباعة تقرير ريبورت فيوير بين تاريخين khairallah 1 62 19-07-19, 03:02 AM
آخر رد: حريف برمجة
  مشكلةفي تحديث البيانات او تحميل البيانات على الداتا جريد فيو alshandodi 1 90 14-07-19, 04:58 PM
آخر رد: سعود
Question كيفية التخلص من تكرار تخزين البيانات الرائد 12 349 11-07-19, 10:51 PM
آخر رد: Al Wilaya
  [VB.NET] سؤال حول فرز البيانات في Combobox Al Wilaya 5 182 11-07-19, 12:12 AM
آخر رد: Al Wilaya
Question [VB.NET] كيفية عرض الصور من قاعدة البيانات على picturebox الرائد 9 295 07-07-19, 02:30 AM
آخر رد: ابراهيم ايبو
  هل هناك امكانية لتشفير نص اتصال قاعدة البيانات سامي محمد 7 202 06-07-19, 01:11 AM
آخر رد: سامي محمد
  [VB.NET] مشكل مفتاح قاعدة البيانات Autonumber sniperjawadino 4 265 30-06-19, 06:38 PM
آخر رد: sniperjawadino
Exclamation [سؤال] مشكلة عدم قبول النصوص الطويل في قاعدة البيانات على برنامج فيجوال بيسك 2010 الرائد 13 474 26-06-19, 02:16 AM
آخر رد: الرائد
  [VB.NET] سؤال عن ترتيب البيانات عند الاستعلام محمد اسماعيل 6 211 18-06-19, 04:44 PM
آخر رد: محمد اسماعيل
  [سؤال] كيف اخلي البرنامج يشتغل بدون نت فروم ورك و طريقة اختيار النت فروم ورك hassan 14 8,160 16-06-19, 01:59 PM
آخر رد: elgokr

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


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