2015-05-18 94 views
-3

作爲Vb noob即時通訊工作在這個學校項目。我需要插入我的值到我的MySQL數據庫,但由於它沒有插入嘗試的一切,但我找不到爲什麼它不插入。 THX提前VB插入MySql

Dim sqlCommand As New MySqlCommand 
    Dim SQLConnection As MySqlConnection = New MySqlConnection 
    Dim strStockSQL As String 
    Dim server As String = "localhost" 
    Dim DatabaseName As String = "Gip" 
    Dim userName As String = "root" 
    Dim password As String = "" 
    SQLConnection = New MySqlConnection() 
    If Not conn Is Nothing Then conn.Close() 
    conn.ConnectionString = String.Format("server={0}; user id={1}; password={2}; database={3}; pooling=false", server, userName, password, DatabaseName) 
    Try 

     strStockSQL = "insert into stock (Barcode,Naam_Product,Verkoopprijs) values (@Barcode,@Naam_product,@Verkoopprijs)" 
     sqlCommand.Connection = SQLConnection 
     sqlCommand.CommandText = strStockSQL 
     sqlCommand.Parameters.AddWithValue("@Barcode", Convert.ToString(txtBarcode.Text)) 
     sqlCommand.Parameters.AddWithValue("@Naam_product", Convert.ToString(txtNaam.Text)) 
     sqlCommand.Parameters.AddWithValue("@Verkoopprijs", Convert.ToInt32(txtVP.Text)) 
     sqlCommand.ExecuteNonQuery() 

    Catch ex As Exception 
     MsgBox("Error occured: Could not insert record") 
+0

是否應該有某個地方的問題? – specializt

+1

是否發生異常?如果是,那麼請讓我們知道它是什麼。 –

+0

不,我沒有得到vb的錯誤。它只是我的Try Catch告訴我錄製的內容不能被插入。 – Nordin

回答

0

當執行一個SqlCommand的,你必須有它的相關連接對象處於打開狀態。

SQLConnection.Open() 
sqlCommand.ExecuteNonQuery() 
SQLConnection.Close() 

此外,閱讀有關Using語句,並用它來SqlConnection

另一件事:此代碼行是毫無意義的:If Not conn Is Nothing Then conn.Close()刪除它。

+0

謝謝,但我突然發現一個新的錯誤主機不允許連接到這個MySQL服務器。我之前嘗試過這種連接,它工作。 – Nordin

+0

這是一個不同的問題,那麼你問的問題。您的憑證或MySql服務器本身存在問題。我不是一個MySql服務器的人,所以我不能幫你,但我確信一旦這個問題解決了,那麼我提出的解決方案就是你的原始問題。 –

+0

感謝您的幫助,我得到了一個錯誤之後。 – Nordin