Jangan membenci saya untuk ini, karena ini adalah yang terbaik yang bisa saya lakukan dalam rentang waktu yang singkat:
http://www.fileswap.com/dl/KusycS0QTC/
Pada dasarnya ini adalah proyek dengan bentuk induk MDI dan dua bentuk anak. Saya memiliki DGV di masing-masing dan saya mentransfer info dari satu formulir ke formulir lainnya. Anda harus melakukan pengeditan yang diperlukan untuk memperhitungkan penyiapan Anda, tetapi itu akan cukup untuk memberi Anda gambaran tentang cara melakukan apa yang Anda cari.
EDIT:
Kemungkinan Perubahan:
Dim _Name As String = ""
Dim _Last As String = ""
For Each xRow In MasterForm.oTransferRows
_Name = xRow.Cells("GVName").Value.ToString()
_Last = xRow.Cells("GVLast").Value.ToString()
'Haruskah baris berikutnya dimasukkan?
Dim _sqlInsert As String = String.Format("Insert testing(Name, LastName) Values (@iName, @iLast)")
Using conn As New SqlClient.SqlConnection("Server = localhost; Username= root; Password =; Database = test")
Using cmd
With cmd
MsgBox("Connection Established")
.Connection = conn
.Parameters.Clear()
'Create Insert Query
.CommandText = _sqlInsert
.Parameters.Add(New SqlParameter("@iName", _Name))
.Parameters.Add(New SqlParameter("@iLast", _Last))
End With
Try
conn.Open()
Me.Validate()
cmd.ExecuteNonQuery()
Catch ex As Exception
MsgBox(ex.Message.ToString())
End Try
End Using
End Using
Next