Question

VB6,连接数据库编译时，提示错误

代码如下：

Dim ws As DAO.Workspace
Dim db As DAO.Database
Dim rs As DAO.Recordset

Private Sub Form_Load()
Set db = ws.OpenDatabase("tk.mdb")
Set ws = DAO.Workspace(0)
End Sub
============================
其中这一句提示错误Workspace(0)，请问怎么解决？

Answer 1

怎么解决?没怎么解决啊..就是提示你,你的这个方式法DAO里面没有啊,估计你的版本太低了,你进入一个VB,在"工程"-"引用"里面更改一下版本.
另外现在很少有程序是用引DAO了,这是很高以前的代码了吧,现在都是的Adodb2.8以上了.提议你选用"Microsoft ActiveX Data Objects 2.8 Library",这是比较不错的.

Answer 2

Dim ws As DAO.Workspace
Set ws = DAO.Workspace(0)

上面，你声明的不是数组，而下面你用了Workspace(0)数组，肯定找不到了。

你使用Dim ws As DAO.Workspace()来声明一下。