Non odiarmi per questo, perché è il meglio che potrei fare in così poco tempo:
http://www.fileswap.com/dl/KusycS0QTC/
Fondamentalmente è un progetto con un modulo padre MDI e due moduli figlio. Ho un DGV su ciascuno e trasferisco le informazioni da un modulo all'altro. Dovrai apportare le modifiche necessarie per tenere conto della tua configurazione, ma dovrebbe essere sufficiente per darti un'idea di come fare ciò che stai cercando.
MODIFICA:
Possibili modifiche:
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()
'Dovrebbe essere inserita la riga successiva?
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