اقوم بادخال بيانات لقاعدة بيانات باستخدام الفيجوال بيسك وليس باستيرادها مباشرة الى sql حيث اقوم باستيرادها من جدول ايكسيل الى داتا جريد اولا ثم من الداتا جريد الى قاعدة البيانات sql
اقوم بادخال البيانات بشكل يدوي حيث اقوم باختيار الصف ثم الضغط على زر الادخال
اريد عمل عداد يقوم بادخال البيانات من الداتا جريد الى قاعدة البيانات دفعة واحدة
لا يوجد مثال ببساطة
اريد عمل عداد يحفظ البيانات معروضة في داتا جريد يحفظها في قاعدة بيانات السيكوال
العداد يعمل لكي يحفظ كل صف على حدة ولكن مرة واحدة
فما أقوم بفعله اختار كل صف على حدة والضغط على زر حفظ لكن ما أريده هو عند الضغط على الزر يقوم بحفظ جميع الصفوف مرة واحدة
ببساطه صديقي ، قم بوضع جملة الاضافة في لوب فقط
PHP كود :
For i = 0 To DataGridView1.Rows.Count - 1
'جملة الاضافة
Next
(05-08-19, 10:54 PM)ابراهيم ايبو كتب : [ -> ]السلام عليكم اخي الكريم
لنفترض ان لديك في الداتاغرايد 3 حقول : ID ,Item,Total
والداتاغرايد فيها عدد من السجلات وتريد حفطها في جدول اسمه Table
الامر نفسه جملة الانسرت العادية لكن هنا ستأخذ قيم الحقول من الداتاغرايد وفق جملة For بدلا من مربعات الادخال
بحيث ياخذ الصفوف تباعا واحدا بلو الاخر ويقوم بالحفظ كالمعتاد
واليك الكود للحقول التي ذكرتها لك يبقى ان تغير الاسماء وعدد الحقول لما عندك
كود :
Dim Cmd As New OleDbCommand()
Private Sub Btn_Save_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Save.Click
'هنا ستقوم بتعريف هذه المتغيرات
Dim Id As Integer
Dim item As String
Dim total As String
Dim Cmd As New OleDbCommand("insert into Table (Id,Item,Total)values(@Id,@Item,@Total)", con)
' تحتاج الى هذه الفور زيادة على الحفظ العادي
For i As Integer = 0 To Datagrid1.Rows.Count - 1
Id = Datagrid1.Rows(i).Cells(0).Value
item = Datagrid1.Rows(i).Cells(1).Value
total = Datagrid1.Rows(i).Cells(2).Value
Next
Cmd.Parameters.Add(New OleDbParameter("@Id", OleDbType.Integer)).Value = Id
Cmd.Parameters.Add(New OleDbParameter("@Item", OleDbType.VarWChar)).Value = item
Cmd.Parameters.Add(New OleDbParameter("@Total", OleDbType.VarWChar)).Value = total
If con.State = ConnectionState.Open Then con.Close()
con.Open()
Cmd.ExecuteNonQuery()
con.Close()
MessageBox.Show("تم حفظ البيانات بنجاح", "حفظ", MessageBoxButtons.OK, MessageBoxIcon.Information)
End Sub
بعد إذنك أخي ابراهيم يجب وضع الباراميتر داخل اللوب لانها ستاخذ فقط اخر سجل و لم تضيف السجلات التي قبله في حال كان عامل الغريد كاملا للإضافة .
إذا كان تعريف cmd خارج For والباراميترات داخل For فيجب إضافة سطر إفراغ الباراميترات في بداية For هكذا
PHP كود :
For i As Integer = 0 To Datagrid1.Rows.Count - 1
Cmd.Parameters.Clear