还没有搞定,我是连接SQL SERVER2000的,所以把连接ACCESS2000的去掉。
TO wangluonanhai(网络男孩) :我调试过了,没用的,还是出错了。。。
TO mousean(幻想无限):我也试过了,我最早就是这样试的。
TO wzsswz(岌岌荆棘):谢谢你的这两篇文章,是有关连接ACCESS2000,没有用
TO mousean(幻想无限) :我是使用数据环境来连接打印报表
'在数据环境的代码中
Private Sub DataEnvironment_Initialize()
'在程序运行阶段动态改变数据环境的路径,防止设计的时候和运行的时候路径不同
Dim strDataSource As String
Dim strUser As String
Dim strPwd As String
dim strDB as string
'将以上四个变量设置为你需要的
If (DataEnvironment1.Connection1.State And adStateOpen) = 0 Then
DataEnvironment1.Connection1.ConnectionString = 你的数据环境中的那个串,用上面变量替换
End If
End Sub
dim conn as connection
dim str as string
set conn = new connection
str="***" '这里为数据库路径等信息
(举个例子:str= "Provider=Microsoft.Jet.OLEDB.4.0;DataSource=d:\网点配送\data\网点配送.mdb")
如果有密码那么在这个字符串里还得加些东西
conn.connectionstring=str
conn.open