本系统 vb6.0+access2000 开发
用is 自动搜索打包后 再2000正常 xp不行 经测试就是 ado 无注册类别
可是xp本身自带呀 madc2.8都装不上
就这代码过不去 :
Dim fso As New FileSystemObject
If fso.FileExists(App.Path & "\database\countrydata.mdb") Then
ADOConn = "Provider=Microsoft.Jet.OLEDB.4.0; Jet OLEDB:Database Password='zhwl';Data Source=" & App.Path & "\database\countrydata.mdb;Persist Security Info=True"
End if...................
form load
ado_Connection.ConnectionString = ADOConn
ado_Connection.CursorLocation = adUseClient
ado_Connection.Mode = adModeReadWrite
ado_Connection.Open
用is 自动搜索打包后 再2000正常 xp不行 经测试就是 ado 无注册类别
可是xp本身自带呀 madc2.8都装不上
就这代码过不去 :
Dim fso As New FileSystemObject
If fso.FileExists(App.Path & "\database\countrydata.mdb") Then
ADOConn = "Provider=Microsoft.Jet.OLEDB.4.0; Jet OLEDB:Database Password='zhwl';Data Source=" & App.Path & "\database\countrydata.mdb;Persist Security Info=True"
End if...................
form load
ado_Connection.ConnectionString = ADOConn
ado_Connection.CursorLocation = adUseClient
ado_Connection.Mode = adModeReadWrite
ado_Connection.Open
你应该手动添加动态链接库的
最好用vb6自带的打包工具,就没有这个问题了
你应该手动添加动态链接库的
最好用vb6自带的打包工具,就没有这个问题了
Dim fso As New FileSystemObject
这句话有问题 说类不支持自动化和不支持接口
说该系统已经有了