Đừng ghét tôi vì điều này, vì đó là điều tốt nhất tôi có thể làm trong một khoảng thời gian ngắn như vậy:
http://www.fileswap.com/dl/KusycS0QTC/
Về cơ bản nó là một dự án với một biểu mẫu mẹ MDI và hai biểu mẫu con. Tôi có một DGV trên mỗi và tôi chuyển thông tin từ biểu mẫu này sang biểu mẫu khác. Bạn sẽ phải thực hiện các chỉnh sửa cần thiết để giải thích cho thiết lập của mình, nhưng nó đủ để cung cấp cho bạn ý tưởng về cách tiếp tục những gì bạn đang theo đuổi.
CHỈNH SỬA:
Các thay đổi có thể xảy ra:
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()
'Có nên chèn dòng tiếp theo vào không?
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