关于数据库连接（用户定义类型未定义）

徒然客 · 发表于 2004-3-3 20:27

Public Sub 数据库连接()
Dim conn As New ADODB.Connection, connstr As String, db As String, rs As New ADODB.Recordset, i As Long, rows As Long
db = "D:\yinle.mdb"
connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & db
conn.Open connstr
rs.Open "select * from 地址", conn, 1, 3 If rs.EOF And rs.BOF Then
MsgBox "无记录"
Else
rows = 1
For i = 0 To rs.Fields.Count - 1
Worksheets("Sheet2").Cells(1, rows).Value = rs.Fields(i).Name
Next i
Do Until rs.EOF
For i = 0 To rs.Fields.Count - 1
Worksheets("Sheet2").Cells(i + 2, rows).Value = rs(i)
Next i
rows = rows + 1
rs.MoveNext
Loop
End If End Sub 真是见了鬼了，一调试上面的这段程序就说我编译错误：用户定义类型未定义。同时Dim conn As New ADODB.Connection反白显示。我研究了半天也不知道错在什么地方。有知道的还请指教一二。

鱼之乐 · 发表于 2004-3-3 22:54

呵,你要先在工程中加载ado library啊

徒然客 · 发表于 2004-3-3 23:05

我已经加了。是ADO 3。6 我的编程环境是win2000pro 和Office2003

ctzhwjw · 发表于 2004-3-4 11:17

试试用版本低的ado引用

徒然客 · 发表于 2004-3-4 12:03

我的机器上没有低版本的。另一台机器上加载不了，一加就出现dll加载错误。我真狠不得把系统重装了。还有一个奇怪的就是，别人写的类似的程序在我机器上可以正常运行，一点问题都没有。

cdrr · 发表于 2004-3-4 13:33

这是徒然客的需要，这也是我的需要，可能也是有些朋友的需要，大家邦邦忙啊，（把最后实现的原代码贴上来）关注ing

[此贴子已经被作者于2004-3-4 13:33:39编辑过]

徒然客 · 发表于 2004-3-4 22:10

低级错误呀,现在问题解决了. 谢谢hzg7818斑竹的帮助

cdrr · 发表于 2004-3-4 22:16

徒然客，我还是不明白，能把你的正确的代码贴上来我学习学习吗？

徒然客 · 发表于 2004-3-5 09:59

我一开始贴的就是正确的代码.不过没有引用正确的链接库,所以运行不了.

cdrr · 发表于 2004-3-5 22:23

请问怎么样引用正确的链接库？能说详细点吗？能实现从工作站引用服务器上的数据库中一特定的工作表吗？怎么来实现

		自动登录	找回密码
密码			免费注册

关于数据库连接（用户定义类型未定义）

浏览过的版块