Transfering Tisch zu Tisch

Question

MySQLConn = New MySqlConnection 
MySQLConn.ConnectionString = Connection 
Adapter = New MySqlDataAdapter 
Dim QRY = "SELECT EquipmentID, Quantity FROM subdbborroweq" 


Dim TimeAndDate As String = DateTime.Now.ToString("yyyy/MM/dd HH:mm:ss") 
Dim EQIDArr As New ArrayList 
Dim QTYArr As New ArrayList 
Try 
    MySQLConn.Open() 
    Command = New MySqlCommand(QRY, MySQLConn) 

    Dim QRY1 = "INSERT INTO borrowlogs(`BorrowerName`, `EquipmentID`, `Quantity`, `TimeDate`) VALUES (@Uname, @EQID, @QTY, @TAD)" 
    Dim Command2 = New MySqlCommand(QRY1, MySQLConn) 
    Reader = Command.ExecuteReader 
    While Reader.Read() 

     EQIDArr.Add(Reader("EquipmentID")) 
     QTYArr.Add(Reader("Quantity")) 

    End While 
    Reader.Close() 
    Dim i As Integer = 0 


    For Each eqid As Integer In EQIDArr 
     For Each qty As Integer In QTYArr 
      Command2 = New MySqlCommand(QRY1, MySQLConn) 
      Command2.Parameters.AddWithValue("@Uname", AddBorrower.TextBox1.Text) 
      Command2.Parameters.AddWithValue("@EQID", eqid) 
      Command2.Parameters.AddWithValue("@QTY", qty) 
      Command2.Parameters.AddWithValue("@TAD", TimeAndDate) 
      Command2.ExecuteNonQuery() 
     Next 
    Next 

    MySQLConn.Close() 
    AddBorrowerIntoBorrowerForm.Close() 
Catch ex As MySqlException 
    MessageBox.Show(ex.Message) 
Finally 
    MySQLConn.Dispose() 
End Try 
AddBorrower.Close() 

Ich habe diese Codes, die angeblich eine Tabelle in einer anderen Tabelle übertragen, aber einige Details hinzuzufügen und zu verbessern, ich habe Probleme in dem

For Each eqid As Integer In EQIDArr 
    For Each qty As Integer In QTYArr 
     Command2 = New MySqlCommand(QRY1, MySQLConn) 
     Command2.Parameters.AddWithValue("@Uname", AddBorrower.TextBox1.Text) 
     Command2.Parameters.AddWithValue("@EQID", eqid) 
     Command2.Parameters.AddWithValue("@QTY", qty) 
     Command2.Parameters.AddWithValue("@TAD", TimeAndDate) 
     Command2.ExecuteNonQuery() 
    Next 
Next 

Teil. Kann mir jemand mit dieser Schleife helfen? Mein Problem ist, wenn ich den Knopf drücke, gibt er die Tabelle mal auf seine Spaltenanzahl ein. Bitte hilft mir jemand mit dieser Schleife?

Answer 1

Warum würden Sie eine Schleife dafür verwenden? Sie können einfach insert . . . select verwenden. Es ist ein bisschen schwierig, der Logik zu folgen, die Sie versuchen zu tun, aber dies könnte Sie auf den richtigen Weg bringen:

INSERT INTO borrowlogs(`BorrowerName`, `EquipmentID`, `Quantity`, `TimeDate`) 
    SELECT AddBorrower.TextBox1.Text, EquipmentID, Quantity, NOW() 
    FROM subdbborroweq;