譲渡するテーブル

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

私はおそらく別のテーブルに設定される1つのテーブルを転送しますが、いくつかの詳細を追加し、それを強化するこのコードを持って、私は

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;