Dim Conn As New OleDbConnection()
Dim strConn As String = "Connection String ฐานข้อมูลของคุณเอง"
With Conn
.ConnectionString = strConn
.Open()
End With
For i As Integer = 0 To DataGridView1.Rows.Count - 1 ' วนทีละแถว
Dim SQL As String = "INSERT INTO tbName (ID,Detail) VALUES (@ID,@Detail)" 'ตัวอย่างมี 2 คอลัมน์ ตรงนี้เพิ่มเติมเอง
Dim cmd As New OleDbCommand(SQL, Conn)
With cmd.Parameters
.Clear()
.AddWithValue("@ID", DataGridView1.Item(0, i).Value) ' คอลัมน์ 1
.AddWithValue("@Detail", DataGridView1.Item(1, i).Value) 'คอลัมน์ 2 นอกนั้นดัดแปลงเอา
End With
cmd.ExecuteNonQuery()
cmd.Dispose()
Next
Load balance : Server 02
