Question

您好我正在尝试将数据库从Access链接到VB6。然后我尝试使用ListView以表格形式显示数据库中记录的内容。我检查了所需的参考和组件，但我一直得到同样的错误。它表示编译错误：未为此代码的标题定义变量：

Sub dbconnection()
connect.Open "Provider=Microsoft.jet.OLEDB.4.0;"
Data Source = "C:\Users\Admin\Documents\werk\LAST SEM!!!!!!!!\CSC301\Foot-it!\ftsdb.mdb"
End Sub

我已在代码顶部声明了Option Explicit，如下所示：

Option Explicit
Dim connect  As New ADODB.Connection
Dim rs As New ADODB.Recordset

我真的很陌生，说实话，我只是在Youtube上看了这个。任何类型的帮助将不胜感激。提前谢谢。

PS：如果您需要更多详细信息，请注释，我会编辑您的说明。

Answer 1

您的问题是因为'数据源'位需要是前一行的一部分。您应该通过在open语句中指定连接驱动程序和参数来打开连接。

试试这个：

connect.Open "Provider=Microsoft.jet.OLEDB.4.0;Data Source=C:\Users\Admin\Documents\werk\LAST SEM!!!!!!!!\CSC301\Foot-it!\ftsdb.mdb"

Answer 2

Data Source = "C:\Users\Admin\Documents\werk\LAST SEM!!!!!!!!\CSC301\Foot-it!\ftsdb.mdb"

“数据”曾是早期版本BASIC中的保留字。

我不太喜欢SQL，但我猜你想做的更像是：

connect.DataSource = "C:\Users\Admin\Documents\werk\LAST SEM!!!!!!!!\CSC301\Foot-it!\ftsdb.mdb"

或

rs.DataSource = "C:\Users\Admin\Documents\werk\LAST SEM!!!!!!!!\CSC301\Foot-it!\ftsdb.mdb"

在这里有更多ADO经验的其他人可能能够确认哪一个是正确的。

编辑：请参阅Luke G.的答案，因为这是正确的答案。虽然标记为已被接受，但我意识到这是错误的。

编译错误：未定义的变量（VB6）

2 个答案: