vb Code:
For A As Integer = 1 To MixedTable
Dim iCnt As Integer = arNumOfLines(A, 1)
For B As Integer = 1 To iCnt
Using connection As New MySql.Data.MySqlClient.MySqlConnection("Server=" & GEN_ServerIP & ";Port=3306;Database=ab;Uid=root;Pwd=12se1")
Using command As New MySql.Data.MySqlClient.MySqlCommand("INSERT INTO cb_trans_mixed (DOC_NO, DOC_TYPE, DOC_DATE, DOC, TOC, PD, YR, USER, " & _
"ACC_NO, LINE, CATEGORY, STK_CODE, ESTATE, CULTIVAR, VOLUME, PACK, QTY, LABELS," & _
" SOURCE, VALUE, COMMENTS) VALUES('" & strDOC_NO & "','" & arMixedHolder(A, B, 2) & _
"','" & arMixedHolder(A, B, 3) & "','" & arMixedHolder(A, B, 4) & "','" & arMixedHolder(A, B, 5) & _
"','" & arMixedHolder(A, B, 6) & "','" & arMixedHolder(A, B, 7) & "','" & arMixedHolder(A, B, 8) & _
"','" & arMixedHolder(A, B, 9) & "','" & arMixedHolder(A, B, 10) & "','" & arMixedHolder(A, B, 11) & _
"','" & arMixedHolder(A, B, 12) & "','" & arMixedHolder(A, B, 13) & "','" & arMixedHolder(A, B, 14) & _
"','" & arMixedHolder(A, B, 15) & "','" & arMixedHolder(A, B, 16) & "','" & arMixedHolder(A, B, 17) & _
"','" & arMixedHolder(A, B, 18) & "','" & arMixedHolder(A, B, 19) & "','" & arMixedHolder(A, B, 20) & _
"','" & arMixedHolder(A, B, 21) & "')", connection)
command.Parameters.AddWithValue("MyParam", 1)
connection.Open()
command.ExecuteScalar()
End Using
End Using
Next
Next