connstr="DBQ= " & APP.path & "\passmanage.mdb"
Connstr=Connstr & ";pwd;uid=''"
DBEngine.RegisterDatabase "passManage" , _
"Microsoft Access Driver (*.mdb), True ,Connstr
Set Gconn= new AdoDB.Connection
Gconn.open "dsn =Passmanage"
动态创建桌面数据源的方法,passmanage.mdb 为数据库名,passManage 为我们将要创建的桌面数源名,它链接到PassManage.mdb数据库中去。
Connstr=Connstr & ";pwd;uid=''"
DBEngine.RegisterDatabase "passManage" , _
"Microsoft Access Driver (*.mdb), True ,Connstr
Set Gconn= new AdoDB.Connection
Gconn.open "dsn =Passmanage"
动态创建桌面数据源的方法,passmanage.mdb 为数据库名,passManage 为我们将要创建的桌面数源名,它链接到PassManage.mdb数据库中去。
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货