1. 在工程界面引用Microsoft ActiveX Data Object 2.6
2. 系统安装IIS
3. 增加虚拟目录MSDAC,物理目录为/Program Files/Common Files/System/msadc
4. 此虚拟目录必须设置为可写权限
5. 修改此虚拟目录的目录安全性,匿名登陆帐号更改为 "/主机名/Guest"
6. 存放物理数据库的目录也需要虚拟化,只需可读即可
7. 用下面的代码让VB和ADO连接:
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim command As New ADODB.command
Private Sub Form_Load()
Dim str As String
pstr = "Provider=MS Remote;"
pstr = pstr & "Remote Server=http://主机名;"
pstr = pstr & "Remote Provider=Microsoft.Jet.OLEDB.4.0;"
pstr = pstr & "Persist Security Info=False;"
pstr = pstr & "Data Source=/数据库虚拟目录名/数据库.mdb"
如果数据库有密码,千万不要默认地用ADO提示的那个密码连接选项,那个默认连接是提供给SQL数据库的,而不是Access,直接在“.mdb"后面增加一句“Database Password=XXX"就可以了。
其中,第5项问题如果按默认,就会报80070005错误,我为了解决这个问题,搜遍了整个网络,花了一整天时间也没法解决,万般无奈之下,气了(快哭了!),就开始胡乱修改IIS,没想到,乱试乱试竟然这样都给我试到!本人觉得这简直不可思议,这纯粹是一个运气问题,哈哈哈!!!
2. 系统安装IIS
3. 增加虚拟目录MSDAC,物理目录为/Program Files/Common Files/System/msadc
4. 此虚拟目录必须设置为可写权限
5. 修改此虚拟目录的目录安全性,匿名登陆帐号更改为 "/主机名/Guest"
6. 存放物理数据库的目录也需要虚拟化,只需可读即可
7. 用下面的代码让VB和ADO连接:
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim command As New ADODB.command
Private Sub Form_Load()
Dim str As String
pstr = "Provider=MS Remote;"
pstr = pstr & "Remote Server=http://主机名;"
pstr = pstr & "Remote Provider=Microsoft.Jet.OLEDB.4.0;"
pstr = pstr & "Persist Security Info=False;"
pstr = pstr & "Data Source=/数据库虚拟目录名/数据库.mdb"
如果数据库有密码,千万不要默认地用ADO提示的那个密码连接选项,那个默认连接是提供给SQL数据库的,而不是Access,直接在“.mdb"后面增加一句“Database Password=XXX"就可以了。
其中,第5项问题如果按默认,就会报80070005错误,我为了解决这个问题,搜遍了整个网络,花了一整天时间也没法解决,万般无奈之下,气了(快哭了!),就开始胡乱修改IIS,没想到,乱试乱试竟然这样都给我试到!本人觉得这简直不可思议,这纯粹是一个运气问题,哈哈哈!!!