VB.NET Insert DataGridView contents into Database

前端 未结 4 1554
粉色の甜心
粉色の甜心 2021-02-03 16:16

Problem:

I need to dump the contents of my DataGridView into a SQL Server Database Table. I\'ve got the datagridview loading fine, no problems there.

4条回答
  •  醉酒成梦
    2021-02-03 16:38

    TRY THIS METHOD

     For index As Integer = 0 To DataGridView1.RowCount - 1
    
                Dim connectionString = "Data Source=localhost;port=3306;Initial Catalog=hasna;User Id=root;password=''; Convert Zero Datetime=True"
                Dim query0 = "insert into itemledgerfinal(Date,BillDate,BillNo,ItemName,GST,Rate,MRP,TotalQty,PurchaseRate,WholesaleRate,Total,Type,OpeningBalance,Purchase,Sale,ClosingBalance,ID) values(@Date,@BillDate,@BillNo,@ItemName,@GST,@Rate,@MRP,@TotalQty,@PurchaseRate,@WholesaleRate,@Total,@Type,@OpeningBalance,@Purchase,@Sale,@ClosingBalance,@ID)"
    
    
                Dim connection0 As New MySqlConnection(connectionString)
                Dim command0 As New MySqlCommand(query0, connection0)
    
    
                command0.Parameters.AddWithValue("@Date", DataGridView1.Rows(index).Cells(0).Value)
                command0.Parameters.AddWithValue("@BillDate", DataGridView1.Rows(index).Cells(1).Value) 
                command0.Parameters.AddWithValue("@BillNo", DataGridView1.Rows(index).Cells(2).Value)
                command0.Parameters.AddWithValue("@ItemName", DataGridView1.Rows(index).Cells(3).Value)
                command0.Parameters.AddWithValue("@GST", DataGridView1.Rows(index).Cells(4).Value)
                command0.Parameters.AddWithValue("@Rate", DataGridView1.Rows(index).Cells(5).Value)
                command0.Parameters.AddWithValue("@MRP", DataGridView1.Rows(index).Cells(6).Value)
                command0.Parameters.AddWithValue("@TotalQty", DataGridView1.Rows(index).Cells(7).Value)
                command0.Parameters.AddWithValue("@PurchaseRate", DataGridView1.Rows(index).Cells(8).Value)
                command0.Parameters.AddWithValue("@WholesaleRate", DataGridView1.Rows(index).Cells(9).Value)
                command0.Parameters.AddWithValue("@Total", DataGridView1.Rows(index).Cells(10).Value)
                command0.Parameters.AddWithValue("@Type", DataGridView1.Rows(index).Cells(11).Value)
                command0.Parameters.AddWithValue("@OpeningBalance", DataGridView1.Rows(index).Cells(12).Value)
                command0.Parameters.AddWithValue("@Purchase", DataGridView1.Rows(index).Cells(13).Value)
                command0.Parameters.AddWithValue("@Sale", DataGridView1.Rows(index).Cells(14).Value)
                command0.Parameters.AddWithValue("@ClosingBalance", DataGridView1.Rows(index).Cells(15).Value)
                command0.Parameters.AddWithValue("@ID", DataGridView1.Rows(index).Cells(16).Value)
                connection0.Open()
                command0.Connection = Connection
                command0.ExecuteNonQuery()
    
            Next
    

提交回复
热议问题