在mysql和vb.net上插入数据

Question

我有一个带有以下Columns的表名称stocks ：

ItemID，项目，序列号，数量，类别，类，单位，Beg_Date

这就是我在vb.net上编写的代码：

Private Sub Savebtn_Click(sender As Object, e As EventArgs) Handles Savebtn.Click

      Try

         If txtItemID.Text = "" Or txtItemName.Text = "" Or txtQuantity.Text = "" Or cBoxCategory.Text = "" Or cBoxClass.Text = "" Or cBoxUnit.Text = "" Or dtpAdd.Value =""Then

          MsgBox("All fields required!")

        Else            

            ConStr.Open()

            Dim Add_Query As String

            Add_Query = "INSERT INTO Stocks (ItemID,Item,Serial,Quantity,Category,Class,Unit,Beg_Date) VALUES ('" & txtItemID.Text & "','" & txtItemName.Text & "','" & txtSerial.Text & "','" & txtQuantity.Text & "','" & cBoxCategory.Text & "','" & cBoxClass.Text & "','" & cBoxUnit.Text & "','" & dtpAdd.Value & "')"

            Cmd = New MySqlCommand(Add_Query, ConStr)
            Rdr = Cmd.ExecuteReader
            MsgBox("Successfully Added!")
            Me.Hide()
            ConStr.Close()
        End If

    Catch ex As MySqlException
        MsgBox("Connection Failed!")

    Finally
        ConStr.Dispose()

    End Try

End Sub

每次我保存数据时，用户输入值总是给我一个

Mysqlexception错误“连接失败！”。

任何想法如何解决这个问题？

Answer 1

确保已关闭所有以前的连接。 添加行

If(ConStr != ConnectionState.Open)

在再次打开连接之前

在您尝试再次打开连接之前，这将检查连接是否打开。

对于捕获，请使用

MsgBox("Connection Failed!" & Ex.Message)

以显示实际抛出的异常。

另外，除非需要返回记录，否则使用Cmd.ExecuteNonQuery（）是运行操作查询的首选方法。