请问：在连接数据库时，vba语句如何引用本地文件，谢谢~~！

yyy811240 · 发表于 2009-12-1 17:12

比如我要引用本地"d:\tt\名单.mdb"这个文件，在access的vba中如何编写，我编写的语句如下，不知道哪里不对：

Sub 连接进销存表数据库()
Dim conn As ADODB.Connection
Dim sSql As String
Set conn = New ADODB.Connection
conn.ConnectionString = "Provider=Microsoft.Jet.Oledb.4.0;" & _
"Data Source=" d:\tt\名单.mdb"
conn.Open
If conn.State = adStateOpen Then
MsgBox "连接成功！"
conn.Close
End If
Set conn = Nothing
End Sub

请大虾帮我看看，谢谢~~！

lipton · 发表于 2009-12-1 20:40

我觉得这样写比较清楚
With conn
      .Provider = "Microsoft.Jet.OLEDB.4.0"
      .ConnectionString = "Data Source =d:\tt\名单.mdb"
      .Open
End With

yyy811240 · 发表于 2009-12-2 08:21

恩，这样写确实比较清楚，但是运行的时候还是一样：在.open的位置提示有问题（黄色标记），也不知道哪里错了，请帮忙看一下，谢啦~！

lipton · 发表于 2009-12-2 10:29

如果出错，可能是
1，路经出错
2，文件名错，或后缀名错

yyy811240 · 发表于 2009-12-2 14:53

那，问一下，在本地机的d盘上，路径是这样写吗： .ConnectionString = "Data Source =d:\tt\名单.mdb"
谢谢~！！

yyy811240 · 发表于 2009-12-2 16:24

附件是错误信息截图，大家帮我看看啊~~！其中conn.ConnectionString已经完成赋值（见截图），但 .open 处出错：

[ 本帖最后由 yyy811240 于 2009-12-2 16:29 编辑 ]

yyy811240 · 发表于 2009-12-3 16:17

帮我看看啊~~~！

lipton · 发表于 2009-12-3 17:49

原帖由 yyy811240 于 2009-12-3 16:17 发表
帮我看看啊~~~！

这类问题如果没有附件测试很难想象。

yyy811240 · 发表于 2009-12-4 08:52

贴好测试附件了，麻烦帮忙看看哈

lipton · 发表于 2009-12-4 13:22

打开Access（不是数据库文件），点工具==数据库实用工具==压缩和修复数据库，选中你的数据库名称，修复完成，就可以打开了。

Sub 连接进销存表数据库()
Dim conn As ADODB.Connection
Dim WN As String
Dim sSql As String
Dim wb As String
WN = "t1t11.mdb" '你的数据库名
Set conn = New ADODB.Connection

'conn.ConnectionString = "Data Source=" & [CurrentProject].[Path] & "\" & WN
'conn.Open

With conn
      .Provider = "Microsoft.Jet.OLEDB.4.0" '《〈==少了这里
      .ConnectionString = "Data Source =" & [CurrentProject].[Path] & "\" & WN
      .Open
End With
If conn.State = adStateOpen Then
MsgBox "连接成功！"
conn.Close
End If
Set conn = Nothing
End Sub

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

[求助] 请问：在连接数据库时，vba语句如何引用本地文件，谢谢~~！

回复 5楼 yyy811240 的帖子

回复 8楼 lipton 的帖子