帮忙看一下这段程序有什么问题？急急急（excel中连接ODBC数据源）

fishgun · 发表于 2005-3-21 16:41

Rem 打开历史库 Function OpenParaBase() As database Dim wsp As workspace Dim db As database

On Error Resume Next

Set wsp = dbengine.workspaces(0)

Set db = wsp.OpenDatabase("hisbase", False, True, "ODBC;DNS=hisbase;UID=sa;PWD=;") Set OpenParaBase = db On Error GoTo 0 End Function

fishgun · 发表于 2005-3-21 18:51

我的ODBC设置中有一个名为hisbase的数据源，指向一个ACCESS文件

为什么上面程序最后得到的db或Opendatabase都是空(nothing)？

menggemali · 发表于 2008-5-12 12:50

[em04][em05][em06]

[em08]

[em02][em03][em05][em06][em22][em21][em20][em19][em18][em16][em15][em14][em13][em12][em11][em10][em09][em08]

[em06][em04][em03][em02]

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