第二个查询无法运行

Question

我是编程新手，我对以下代码有疑问。第二个查询未运行。它应该将第一个数据库中的所有数据插入到另一个数据库中。

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

Dim TimeAndDate As String = DateTime.Now.ToString("yyyy/MM/dd HH:mm:ss")

Try
    MySQLConn.Open() 
    Command = New MySqlCommand(QRY, MySQLConn)
    Reader = Command.ExecuteReader
    While Reader.Read() 
        EQID = Reader(0)
        QTY = Reader(1)
        Dim QRY1 = "INSERT INTO borrowlogs( `BorrowerName`, `EquipmentID`, `Quantity`, `TimeDate`) VALUES (" &
                    AddBorrower.TextBox1.Text & "," & EQID & ", " & QTY & "," &
                    TimeAndDate & ")"

        Command = New MySqlCommand(QRY1, MySQLConn)
    End While

    MySQLConn.Close()

Answer 1

我已经整理了一些代码，但请注意这是未经测试的，因为我不再使用 MySQL。

我使用了DataTable 而不是MySqlDataReader，因为我发现它们更容易使用，但这是首选。我还为MySqlConnection 和MySqlCommand 对象实现了Using。这样可以正确处理对象，您不必担心这样做。

请注意，我不知道您的数据结构。我猜了MySqlDbTypes 是什么。你可能不得不改变。不过，我建议将TimeDate 保存为DateTime。

您可能还想在row(0) 和row(1) 上进一步检查DBNulls。我把这个留给你看，它可能没有必要，但总是值得研究的，因为它们确实会在突然出现时引起问题。

我不确定您希望如何处理从SELECT 语句中带回的DataTable 中的多行。所以我正在做的是循环遍历Rows 集合。如果您不想并且只想要第一行，您可以更改SELECT 语句以仅带回我认为使用LIMIT 完成的第一行。这意味着您的声明将类似于SELECT EquipmentID, Quantity FROM subdbborroweq LIMIT 1。您可能希望使用WHERE 查看过滤器，并且可能需要考虑使用ORDER BY 对数据进行排序。或者删除 For Each row 循环并使用 Integer.TryParse(dt.Rows(0).Item(0).ToString(), EQID)

这是我整理的代码。它可能不是 100%，但希望它能给你一些东西：

Dim dt As New DataTable

Using con As New MySqlConnection(Connection),
      cmd As New MySQLCommand("SELECT EquipmentID, Quantity FROM subdbborroweq", con)

    con.open()

    dt.Load(cmd.ExecuteReader)

    If dt.Rows.Count > 0 Then

        cmd.CommandText = "INSERT INTO borrowlogs(BorrowerName, EquipmentID, Quantity, TimeDate) VALUES (@Uname, @EQID, @QTY, @TAD)"

        cmd.Parameters.Add("@Uname", MySqlDbType.VarChar)
        cmd.Parameters.Add("@EQID", MySqlDbType.Int32)
        cmd.Parameters.Add("@QTY", MySqlDbType.Int32)
        cmd.Parameters.Add("@TAD", MySqlDbType.DateTime)

        For Each row As DataRow In dt.Rows

            cmd.Parameters("@Uname").Value = AddBorrower.TextBox1.Text
            cmd.Parameters("@EQID").Value = row.Field(Of Int32)(0)
            cmd.Parameters("@QTY").Value = row.Field(Of Int32)(1)
            cmd.Parameters("@TAD").Value = DateTime.Now

            cmd.ExecuteNonQuery()

        Next

    End If

 End Using

Answer 2

您的字符串值中不需要 ' 吗？值（“约翰”，

$QRY1 = "INSERT INTO borrowlogs( BorrowerName, EquipmentID, Quantity, TimeDate) VALUES ('" & AddBorrower.TextBox1.Text & "','" & EQID...