تقييم الموضوع :
  • 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 ك ب / التحميلات : 80)
الرد }}}
تم الشكر بواسطة: العواد الصغير
#5
مختصر بـــــــ LINQ


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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  محتاج طريقة لتنسيق نص الرسالة المرسلة إلى الواتس اب new_programer 2 163 04-03-24, 07:15 AM
آخر رد: new_programer
  [VB.NET] حل مشكلة الاتصال بقواعد البيانات access loay775 2 158 25-02-24, 06:29 AM
آخر رد: loay775
  سؤال عن عملية حذف سجل من قاعدة البيانات assuhimi 3 249 11-02-24, 08:43 PM
آخر رد: assuhimi
  طريقة اجراء نسخة احتياطية و استرجاعها ؟ Osama NY 2 461 07-02-24, 08:59 PM
آخر رد: Kamil
  [VB.NET] منع تكرار البيانات في عند الادخال مبرمج صغير 1 2 255 24-01-24, 05:18 PM
آخر رد: مبرمج صغير 1
  [VB.NET] مساعدة في استدعاء البيانات معينه من form الأول إلى form 2 بدون التعديل loay775 2 273 18-01-24, 05:04 PM
آخر رد: loay775
  [VB.NET] إعادة استدعاء البيانات من قاعدة بيانات اكسس والاهم الصورة مبرمج صغير 1 1 273 13-01-24, 01:17 PM
آخر رد: مبرمج صغير 1
  ماهي طريقة نقل محتويات checkedlistbox الى داتاقريدفيو صالح عبدالله 3 253 06-01-24, 03:20 PM
آخر رد: Kamil
  [كود] اريد كود إرسال البيانات من الفيجوال بيسك إلىPDF issamsaidd 10 5,829 25-12-23, 06:30 PM
آخر رد: الحزين اليماني
  [VB.NET] ما هي طريقة استدعاء الازرار في الكيبورد من خلار زر افتراضي haider.mohsin92 1 295 14-12-23, 03:19 PM
آخر رد: Kamil

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


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