перенося стол к столу

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() 

У меня есть эти коды, которые якобы передаче одной таблицы установлен в другую таблицу, но добавить некоторые детали и повысить ее, у меня есть проблемы в

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 

части. Может ли кто-нибудь помочь мне с этим циклом? Моя проблема в том, что когда я нажимаю кнопку, она вводит таблицу раз в это число столбцов. Пожалуйста, помогите мне с этим циклом?

Answer 1

Зачем вам использовать петлю для этого? Вы можете просто использовать insert . . . select. Немного трудно следовать логике, которую вы пытаетесь сделать, но это может привести вас к правильному пути:

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