使用VB.Net將文本從文本框插入到Access 2010數據庫中

Question

我有3個文本框用作聯繫表單。我正嘗試使用VB來獲取這些數據並將其添加到我的數據庫中。 我已經運行調試，它說錯誤在INSERT INTO字符串中。 ！[調試屏幕抓取] [1]：http://i.stack.imgur.com/ufYPs.png

任何想法？

Imports System 

進口System.Data 進口System.Data.OleDb 偏類聯繫 繼承System.Web.UI.Page

Protected Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 
    Dim Name As String = txtName.Text 
    Dim Email As String = tbxEmail.Text 
    Dim Comment As String = tbxComment.Text 

    Dim objConnection As OleDbConnection = Nothing 
    Dim objcmd As OleDbCommand = Nothing 

    Dim strSql As String 
    Dim dbConn As OleDbConnection = Nothing 

    dbConn = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source = Z:\Documents\Databases\user.accdb") 
    dbConn.Open() 

    strSql = "INSERT INTO user (username, email, comments) VALUES (?,?,?)" 
    objcmd = New OleDbCommand(strSql, dbConn) 
    objcmd.Parameters.Add(New System.Data.OleDb.OleDbParameter("@username", Name)) 
    objcmd.Parameters.Add(New System.Data.OleDb.OleDbParameter("@email", Email)) 
    objcmd.Parameters.Add(New System.Data.OleDb.OleDbParameter("@comments", Comment)) 
    objcmd.ExecuteNonQuery() 


    dbConn.Close() 
    Response.Write("Submitted Successfully") 

End Sub 

Answer 1

USER是在MS-訪問保留關鍵字，要使用它作爲一個表名你的需要把它們放在方括號

strSql = "INSERT INTO [user] (username, email, comments) VALUES (?,?,?)" 

作爲一個側面說明，嘗試使用Using Statement當您使用一次性物品時。

Protected Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 
    Dim Name As String = txtName.Text 
    Dim Email As String = tbxEmail.Text 
    Dim Comment As String = tbxComment.Text 

    Using dbConn = New OleDbConnection(".......") 
     dbConn.Open() 
     Dim strSql = "INSERT INTO [user] (username, email, comments) VALUES (?,?,?)" 
     Using objcmd = New OleDbCommand(strSql, dbConn) 
      objcmd.Parameters.AddWithValue("@username", Name) 
      objcmd.Parameters.AddWithValue("@email", Email) 
      objcmd.Parameters.AddWithValue("@comments", Comment) 
      objcmd.ExecuteNonQuery() 
     End Using 
    End Using 
    Response.Write("Submitted Successfully") 
End Sub