在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（）是運行操作查詢的首選方法。