通过 Visual Basic 窗体向 Access 数据库添加数据

Question

我有一个论坛，我希望用户在其中输入个人资料名称，然后单击添加，然后它将他们在文本框中输入的内容添加到我表中的 ProfileName 字段中。当我单击“添加”按钮时，它会出现一个错误，指出在 system.data.dll 中发生System.Data.OleDb.OleDbException 类型的未处理异常。这是我的代码：

Private Sub RefreshData()
    Dim cnn As New OleDb.OleDbConnection
    If Not cnn.State = ConnectionState.Open Then
        cnn.Open()
    End If
    Dim da As New OleDb.OleDbDataAdapter("SELECT id AS [ID], " & _
        "ProfileName AS [Name] " & _
        " FROM Profile ORDER BY id", cnn)
    Dim dt As New DataTable
    da.Fill(dt)
    cnn.Close()
    Me.dgvData.DataSource = dt
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)                 Handles Button1.Click
    If (TextBox1.Text = "") Then
        MsgBox("Please enter a profile name.")
    Else
        Dim cnn As New OleDb.OleDbConnection("Provider=Microsof… Source=c:\Data\Database.mdb     ;Extended Properties=Paradox 5.x;")
        Dim cmd As New OleDb.OleDbCommand
        If Not cnn.State = ConnectionState.Open Then
            cnn.Open()
        End If

        cmd.Connection = cnn
        cmd.CommandText = "INSERT INTO Profile(ProfileName) " & _
            "VALUES (" & Me.TextBox1.Text & "')"
        cmd.ExecuteNonQuery()

        cnn.Close()
        Dim oForm As addsnake
        oForm = New addsnake
        oForm.Show()
        oForm = Nothing
        Me.Close()
    End If
End Sub

Answer 1

如果没有更多信息，我建议：

你不需要给 id 一个 ID 的别名：

SELECT id AS [ID]

如果您愿意，您仍可以将其括在方括号中：

SELECT [id]

您在以下行中缺少撇号：

"VALUES (" & Me.TextBox1.Text & "')"

同时检查connectionstrings.com的连接字符串