تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] اتمنى المساعدة في DataGridView vb.net2015
#1
الكود

كود :
Dim conn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\Database1.accdb;Persist Security Info=False;")

        For i As Integer = 0 To DataGridView1.Rows.Count - 1

            If i > DataGridView1.Rows.Count - 1 Then Exit For

            Dim sql As String =
            " INSERT INTO [Rent_Equipment] " &
            " (  Cus_ID,  Cus_Name,  Cus_Private_Number,  Equ_ID, Equ_Name, Equ_Quantity, Equ_Price, @Ren_Date ) " &
            " VALUES " &
            " ( @Cus_ID, @Cus_Name, @Cus_Private_Number, @Equ_ID, @Equ_Name, @Equ_Quantity, @Equ_Price, @Ren_Date ) "

            Dim cmd As New OleDbCommand(sql, conn)


            cmd.Parameters.AddWithValue("@Equ_ID", DataGridView1.Rows(i).Cells(0).Value)
            cmd.Parameters.AddWithValue("@Equ_Name", DataGridView1.Rows(i).Cells(1).Value)
            cmd.Parameters.AddWithValue("@Equ_Quantity", DataGridView1.Rows(i).Cells(2).Value)

            cmd.Parameters.AddWithValue("@Cus_ID", ComboBox1.Text)
            cmd.Parameters.AddWithValue("@Cus_Name", TextBox1.Text)
            cmd.Parameters.AddWithValue("@Cus_Private_Number", TextBox2.Text)
            cmd.Parameters.AddWithValue("@Equ_Price", TextBox4.Text)
            cmd.Parameters.AddWithValue("@Ren_Date", DateTimePicker1.Value.Date)

            conn.Open()
            cmd.ExecuteNonQuery()
            conn.Close()

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

            i += 1
        Next i

مكان الخطا             cmd.ExecuteNonQuery()
الخطا يقول 
An unhandled exception of type 'System.Data.OleDb.OleDbException' occurred in System.Data.dll


Additional information: The INSERT INTO statement contains the following unknown field name: '@Ren_Date'.  Make sure you have typed the name correctly, and try the operation again.

ما الحل يا اخواني ؟؟
الرد }}}}
تم الشكر بواسطة:
#2
سلام

بيقول ان لا يوجد عمود بالاسم Ren_Date@ لو تلاحظ سطر اسماء الاعمده اللي قبل VALUES احذف علامه @ وليس بسطر البارامترات

ركز فيها تلاقيك وضعت علامه البارامتر مكان اسم العمود
[URL="http://www.up-00.com/"][/URL]

موفقين
متغيب
الرد }}}}
تم الشكر بواسطة:
#3
السلام عليكم

من جديد رجعت لكم وشكرا لك على مجهودك الرائع معي ولكن الخطأ نفسه وتغير نوع الخطأ
An unhandled exception of type 'System.Data.OleDb.OleDbException' occurred in System.Data.dll

Additional information: Data type mismatch in criteria expression.

ومكان الخطأ
cmd.ExecuteNonQuery()

فهل هناك شيء جديد اضيفه او احذفه ارجو ان تتأكد لي من الكود بالكامل لو سمحت
الرد }}}}
تم الشكر بواسطة:
#4
سلام

باقي غليك ترتيب اسطر البارامترات متطابقه للترتيب في حملت اسكيوال
كود :
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 DataGridViewRow In DataGridView1.Rows

Dim sql As String =
" INSERT INTO [Rent_Equipment] " &
" (  Cus_ID,  Cus_Name,  Cus_Private_Number,  Equ_ID,  Equ_Name,  Equ_Quantity,  Equ_Price,  Ren_Date ) " &
" VALUES " &
" ( @Cus_ID, @Cus_Name, @Cus_Private_Number, @Equ_ID, @Equ_Name, @Equ_Quantity, @Equ_Price, @Ren_Date ) "
Using cmd As New OleDbCommand(sql, conn)
cmd.Parameters.AddWithValue("@Cus_ID", ComboBox1.Text)
cmd.Parameters.AddWithValue("@Cus_Name", TextBox1.Text)
cmd.Parameters.AddWithValue("@Cus_Private_Number", TextBox2.Text)
cmd.Parameters.AddWithValue("@Equ_ID", row.Cells(0).Value)
cmd.Parameters.AddWithValue("@Equ_Name", row.Cells(1).Value)
cmd.Parameters.AddWithValue("@Equ_Quantity", row.Cells(2).Value)
cmd.Parameters.AddWithValue("@Equ_Price", TextBox4.Text)
cmd.Parameters.AddWithValue("@Ren_Date", DateTimePicker1.Value.Date)

cmd.ExecuteNonQuery()

End Using

Next

conn.Close()
End Using

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

موفقين
متغيب
الرد }}}}
تم الشكر بواسطة:
#5
الكود تبعك يوجد به مشكلة بعد والمشكلة تقول ان :
An unhandled exception of type 'System.Data.OleDb.OleDbException' occurred in System.Data.dll

Additional information: The INSERT INTO statement contains the following unknown field name: ' Cus_ID'. Make sure you have typed the name correctly, and try the operation again.

هذا هو مكان الخطأ
cmd.ExecuteNonQuery()

الكود التي قمت بإضافته

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 DataGridViewRow In DataGridView1.Rows

Dim sql As String =
" INSERT INTO [Rent_Equipment] " &
" ( Cus_ID, Cus_Name, Cus_Private_Number, Equ_ID, Equ_Name, Equ_Quantity, Equ_Price, Ren_Date ) " &
" VALUES " &
" ( @Cus_ID, @Cus_Name, @Cus_Private_Number, @Equ_ID, @Equ_Name, @Equ_Quantity, @Equ_Price, @Ren_Date ) "
Using cmd As New OleDbCommand(sql, conn)
cmd.Parameters.AddWithValue("@Cus_ID", ComboBox1.Text)
cmd.Parameters.AddWithValue("@Cus_Name", TextBox1.Text)
cmd.Parameters.AddWithValue("@Cus_Private_Number", TextBox2.Text)
cmd.Parameters.AddWithValue("@Equ_ID", row.Cells(0).Value)
cmd.Parameters.AddWithValue("@Equ_Name", row.Cells(1).Value)
cmd.Parameters.AddWithValue("@Equ_Quantity", row.Cells(2).Value)
cmd.Parameters.AddWithValue("@Equ_Price", TextBox4.Text)
cmd.Parameters.AddWithValue("@Ren_Date", DateTimePicker1.Value.Date)

cmd.ExecuteNonQuery()

End Using

Next

conn.Close()
End Using

MessageBox.Show("We have been successfully Date", "Congratulations", MessageBoxButtons.OK, MessageBoxIcon.Information)
الرد }}}}
تم الشكر بواسطة:
#6
سلام

تاكد من اسم العمود Cus_ID في الجدول Rent_Equipment وبالمره راجع بفيه اسما الاعمده
ولاجظ اذا يوجد عمود ترقيم تلقائي فما فيه داعي تضعه في جمله اسكيوال

موفقين
متغيب
الرد }}}}
تم الشكر بواسطة:
#7
راجعت جميع الاكواد ومثل الشيء الخطأ

فهل من مغيث ؟؟
الرد }}}}
تم الشكر بواسطة:
#8
سلام

هل عملت مثل ما خبرتك في ردي الاخير من مراجعه اسم الاعمده في قاعدت البيانات
اذا استمرت المشكله ضع مشروعك لنشوف

موفقين
متغيب
الرد }}}}
تم الشكر بواسطة:
#9
هذا هو مشروعي واتمنى ان ترفق معاه الشرح مصور حق استوعب الخطأ الى مشيت عليه
ولو تكرمت ارفق لي بريدك الالكتروني حق اتواصل معاك مباشرة او رقم هاتفك الواتس اب
رابط التحميل

http://adf.ly/1L6Dp8

وشكرا لك اخي الفاضل
الرد }}}}
تم الشكر بواسطة:
#10
سلام

اتضحت المشكله في المسافات المشوهه

اوضح اكثر احيانا عند النسخ كود من اي صفحه من المتصفح تتغير رموز بعض الاحرف
وغالبا تكون المسافه فتشاهد مسافه مشوهه يعتي شكلها مسافه ولكنها رمز شبيه بالمسافه
شرح هذع المشكله قراته في احد المنتدات

فكل اللي انا عملته خذفت المسافات في جملت sql واعدت كتابتها واختفت المشكله

كود :
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 DataGridViewRow In DataGridView1.Rows

        If row.Cells(0).Value Is Nothing Then Exit For

Dim sql As String =
" INSERT INTO [Rent_Equipment] " &
" ( Cus_ID, Cus_Name, Cus_Private_Number, Equ_ID, Equ_Name, Equ_Quantity, Equ_Price, Ren_Date ) " &
" VALUES " &
" ( @Cus_ID, @Cus_Name, @Cus_Private_Number, @Equ_ID, @Equ_Name, @Equ_Quantity, @Equ_Price, @Ren_Date ) "
        Using cmd As New OleDbCommand(sql, conn)
            cmd.Parameters.AddWithValue("@Cus_ID", ComboBox1.Text.ToString)
            cmd.Parameters.AddWithValue("@Cus_Name", TextBox1.Text.ToString)
            cmd.Parameters.AddWithValue("@Cus_Private_Number", TextBox2.Text.ToString)
            cmd.Parameters.AddWithValue("@Equ_ID", row.Cells(0).Value.ToString)
            cmd.Parameters.AddWithValue("@Equ_Name", row.Cells(1).Value.ToString)
            cmd.Parameters.AddWithValue("@Equ_Quantity", row.Cells(2).Value.ToString)
            cmd.Parameters.AddWithValue("@Equ_Price", TextBox4.Text.ToString)
            cmd.Parameters.AddWithValue("@Ren_Date", DateTimePicker1.Value.ToString)

            cmd.ExecuteNonQuery()

        End Using

    Next

    conn.Close()
End Using

وضعت شرط خروج من الحلقه اذا وصل للسطر الاخير الفارغ

موفقين
متغيب
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Thumbs Up برنامج إدارة الجمعيات الخيرية مفتوح المصدر... الرجاء المساعدة Arabia 45 1,400 منذ 56 دقيقة مضت
آخر رد: 0theghost0
  التعديل علي datagridview باستخدام sql command dark1459 6 143 21-11-16, 11:55 AM
آخر رد: dark1459
  [VB.NET] DataGridView بطيء جدا ساعدوني لاجد حل dubai.eig 4 145 20-11-16, 09:22 PM
آخر رد: ابو ليلى
  اضافة عمود من نوع image ل bound datagridview noway 1 73 17-11-16, 12:08 PM
آخر رد: Genius Live
Photo [سؤال] لدي مشكله DataGridView أحمد العرب 4 142 16-11-16, 10:26 AM
آخر رد: أحمد العرب
  ارجو المساعدة في كود VB.NET 7 112 16-11-16, 03:20 AM
آخر رد: أبو عمر
  كيف يمكن اضافة مجموعة حقول الي datagridview والتعديل عليها مباشرتا dark1459 2 73 15-11-16, 10:30 PM
آخر رد: السرور
  فحص لــ القيمة المدخلة فى حقل مفتاح رئيسى Unique Key ل datagridview noway 6 145 15-11-16, 09:06 AM
آخر رد: noway
  [سؤال] مشكلة في حفظ البيانات باستخدام datagridview abdalla89 6 366 05-11-16, 02:47 AM
آخر رد: نايف 2006
Exclamation الرجاء المساعدة : كيف اخفى او اشفر كلمة السر لقاعدة بيانات من ملف App.config noway 2 92 28-10-16, 07:58 PM
آخر رد: noway

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


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