使用Visual Basic SQL訪問更新

技術上我是新來這個網站，但我一直在使用它作爲幾年的資源，而這只是因爲我很爲難，我現在就需要你的援助。

我有一個VB腳本被查詢數據庫，以字符串填充預期框和顯示它。

我的問題是，當我嘗試使用更新SQL命令，它完成但它不更新當我手動檢查數據庫。

Dim con As OleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source='C:\Data.mdb';") 
Dim da As New OleDbDataAdapter 
Dim dt As New DataTable() 
Dim cmd As New OleDbCommand 
da.SelectCommand = New OleDbCommand("update FDSL set [email protected], [email protected] where ID = @ID", con) 


    Dim paramID As New OleDbParameter 
    paramID.ParameterName() = "@ID" 
    paramID.Value() = Label8.Text 
    da.SelectCommand.Parameters.Add(paramID) 
    Dim paramHost As New OleDbParameter 
    paramHost.ParameterName() = "@Host" 
    paramHost.Value() = TextBox1.Text 
    da.SelectCommand.Parameters.Add(paramHost) 
    Dim paramOwn As New OleDbParameter 
    paramOwn.ParameterName() = "@Owner" 
    paramOwn.Value() = TextBox4.Text 

    da.SelectCommand.ExecuteNonQuery() 

    MessageBox.Show("Record Updated! ", "Update Status", MessageBoxButtons.OK, MessageBoxIcon.Information) 

    Refresh() 
    con.Close()

我已經嘗試了在末端使用.tostring的參數，但是這也不起作用。

---------- ----------------解決

我必須感謝@Gord湯普森的這些援助，但我解決了這個問題通過重新編碼它。

 Dim str As String 
    str = "update FDSL set [email protected], [email protected] where [email protected]" 
    Dim cmd As New OleDbCommand(str, con) 
    cmd.Parameters.AddWithValue("@Hostname", TextBox1.Text) 
    cmd.Parameters.AddWithValue("@Owner", TextBox2.Text) 
    cmd.Parameters.AddWithValue("@ID", textbox6.Text) 
    con.Open() 
    cmd.ExecuteNonQuery() 
    con.Close()

這現在可以正常工作了，謝謝你的幫助！

來源

2013-11-14 Tad

高興地看到，你得到它整理出來。我正要用一些簡化的代碼編輯我的答案，但看起來和你的一樣。 –

Jet.OLEDB和ACE.OLEDB忽略的參數名所以我們需要在它們出現在CommandText的確切順序指定參數。你的情況，你需要改變你，所以你做@Host，然後@Owner執行你.Parameters.Add()塊，然後@ID的順序。

來源

2013-11-14 14:29:50

我已經這樣做了，因此每個.parameters.add（）按照您的建議順序排列，但它仍然不會'保存'到數據庫。我也將查詢更改爲'Hostname ='「＆Me.TextBox1.Text＆」''以幫助查看直接輸入是否有效。正如你所猜測的那樣。 – Tad

我必須感謝@Gord湯普森HIST援助，但是我通過重新編碼它解決了這個問題。

 Dim str As String 
    str = "update FDSL set [email protected], [email protected] where [email protected]" 
    Dim cmd As New OleDbCommand(str, con) 
    cmd.Parameters.AddWithValue("@Hostname", TextBox1.Text) 
    cmd.Parameters.AddWithValue("@OS", TextBox2.Text) 
    cmd.Parameters.AddWithValue("@ID", textbox6.Text) 
    con.Open() 
    cmd.ExecuteNonQuery() 
    con.Close()

這現在可以正常工作了，謝謝你的幫助！

來源

2013-11-15 09:17:54 Tad

使用Visual Basic SQL訪問更新

回答

相關問題