تقييم الموضوع :
  • 1 أصوات - بمعدل 5
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] ممكن مساعدة في حفظ Datagridview
#1
السلام عليكم ورحمة الله
ممكن مساعدة في حفظ Datagridview
قي قاغدة بيانات access
يحيث ان Datagridview مملوءة بعدة اسطر واعمدة
vb.net 2010
وجزاكم الله خيرا
الرد
تم الشكر بواسطة:
#2
.....

منقول

كود :
Public Class Form1

    Dim con As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OleDb.4.0;Data Source=db1.mdb;")
    Dim dt As New DataTable
    Dim sql As String = " SELECT * FROM [table1] "

    ' عند فتح النموذج يتم استيراد البيانات من قاعدة البيانات إلى الداتاجريدفيو
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
        Using da As New OleDb.OleDbDataAdapter(sql, con)
            da.Fill(dt)
            DataGridView1.DataSource = dt
        End Using
    End Sub

    '  عند غلق النموذج يتم تصديـر البيانات من الداتاجريدفيو إلى قاعدة البيانات
    Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As FormClosingEventArgs) Handles Me.FormClosing
        Using da As New OleDb.OleDbDataAdapter(sql, con)
            Using builder As New OleDb.OleDbCommandBuilder(da)
                da.Update(dt)
            End Using
        End Using
    End Sub

End Class
الرد
تم الشكر بواسطة: aftfm , moulayyoussef , nabil1982
#3
Save Rows From DataGridView to table in database.....
Private Sub InsertIntoOrder_tbl()
Try
Using conn As New SqlConnection(Me.conn)
Dim cmd As New SqlCommand(strInsertIntoOrder_tbl, conn)

cmd.Parameters.Add("@itemnumber", TinyInt)
cmd.Parameters.Add("@qty", SmallInt)
cmd.Parameters.Add("@total", Money)
cmd.Parameters.AddWithValue("@date", [Date])
cmd.Parameters.Add("@user", TinyInt)
cmd.Parameters.AddWithValue("@Order_no", Int)
conn.Open()

For i As Integer = 0 To gv1.Rows.Count - 1
Dim item_no As Integer = SQL_Class.Only_item_No(Me.conn, gv1.Rows(i).Cells(0).Value, strSelectItem_no)
cmd.Parameters(0).Value = item_no
' I named datagridview1 To gv1
cmd.Parameters(1).Value = gv1.Rows(i).Cells(1).Value
cmd.Parameters(2).Value = gv1.Rows(i).Cells(3).Value
cmd.Parameters(3).Value = gv1.Rows(i).Cells(4).Value
cmd.Parameters(4).Value = user.Manager_no
cmd.Parameters(5).Value = My.Settings.OrderNumebr
cmd.ExecuteNonQuery()

Next

End Using
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Exclamation)
End Try
End Sub
الرد
تم الشكر بواسطة: moulayyoussef


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] ممكن طريقة عمل مشغل فيديو بجودات مختلفة ScreamVoice 6 80 أمس, 04:30 AM
آخر رد: ScreamVoice
Smile ممكن شرح هدا الكود الزوي 1 31 أمس, 02:17 AM
آخر رد: عبد العزيز البسكري
  [VB.NET] مطلوب مساعدة في برنامج يحدث اخطاء ay.alhaj 29 562 17-10-18, 11:43 PM
آخر رد: عبد العزيز البسكري
  مساعدة هامة : احتاج طريقة مرنه لعرض منتجات من الداتا بيز في شكل صور او حتى button mohamedgadain61 2 77 16-10-18, 04:55 PM
آخر رد: mohamedgadain61
  [VB.NET] استفسار :- بخصوص نقل الداتا من DataGridView عن طريق CheckBoxColumn dubai.eig 3 62 15-10-18, 08:09 PM
آخر رد: عبدالله الدوسري
  [سؤال] ممكن حل للمشكلة البسيطه دي ScreamVoice 2 64 14-10-18, 07:25 PM
آخر رد: ScreamVoice
  مساعدة في datatGridviwe DOX.1 5 132 10-10-18, 12:23 AM
آخر رد: حريف برمجة
  ممكن تحويل هذا الكود للسى شارب لو سمحتم ابو روضة 9 192 06-10-18, 02:07 AM
آخر رد: ابو روضة
  [VB.NET] مساعدة بخصوص كود الحفظ ay.alhaj 19 295 04-10-18, 10:22 PM
آخر رد: ay.alhaj
  [سؤال] مساعدة في كود تحديث برنامج ScreamVoice 9 151 03-10-18, 02:48 PM
آخر رد: ScreamVoice

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


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