无法使用 vb.net 连接到访问数据库

Question

我正在尝试连接到我的访问数据库，即 mdb 到 vb.net 项目。我已将平台更改为 x86，但仍然无法正常工作。我似乎真的不知道问题是什么。希望能帮到你，先谢谢了

Imports System.Data.OleDb 'provides classes to connect to the database

Public Class Form1
Dim conn As New OleDbConnection

Private Sub RefreshData()
    If Not conn.State = ConnectionState.Open Then
        conn.Open()
    End If

    Dim da As New OleDbDataAdapter("SELECT ID as [No], " & _
                                   "UserName as [Name], " & _
                                   "FROM Table1 " & _
                                   "ORDER BY ID", conn)
    Dim dt As New DataTable
    'fill data to dataTable
    da.Fill(dt)

    'Offer data in dataTable to dataGridView
    Me.DataGridView1.DataSource = dt

    'close connection
    conn.Close()
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    conn = New OleDbConnection
    conn.ConnectionString = "PROVIDER = Microsoft.Jet.OleDB.4.0; Data Source= C:\Users\user\Documents\Access Database\Database2.mdb"

    RefreshData()
End Sub
End Class

Answer 1

您的 SQL 语句中有错误。代码：

Dim da As New OleDbDataAdapter("SELECT ID as [No], " & _
    "UserName as [Name], " & _
    "FROM Table1 " & _
    "ORDER BY ID", conn)

应该不在as [Name],之后有一个逗号 相反，它应该是：

Dim da As New OleDbDataAdapter("SELECT ID as [No], " & _
    "UserName as [Name] " & _ `NO COMMA!
    "FROM Table1 " & _
    "ORDER BY ID", conn)