vb和asp如何用remote访问远程数据库

前端之家收集整理的这篇文章主要介绍了vb和asp如何用remote访问远程数据库前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。

引自:http://blog.csdn.net/yizia/archive/2006/09/19/1248669.aspx

访问远程数据库的情况有以下几种:
1)访问远程数据库的access数据库
2)访问远程mssql数据库或oracle等其他关系数据库,但是数据库通信端口被防火墙阻挡或其他网络原因造成无法使用该端口

本文仅在windows2000 advance server,mdac2.8下测试通过,其余条件不保证能正常运行

在mdac的Service Providers中包括Microsoft OLE DB Persistence Provider,Microsoft OLE DB Remoting Provider,等等,就不详细说了

,我们今天要用到的是Microsoft OLE DB Remoting Provider。

看一下MS Remote的范例:
MS Remote - Access (Jet)
  i)ODBC DSN:
    oConn.Open "Remote Server=http://<ServerName>;" & _ //服务器域名或ip,如果在局域网就是服务器名字
      "Remote Provider=MSDAsql;" & _
      "DSN=AdvWorks;" & _ //注意,这里的odbc是指服务器端的
      "Uid=admin" & _ //访问该odbc指向数据库用户名
      "Pwd=;" //见上,密码

  ii)OLE DB Provider:
    oConn.Open "Provider=MS Remote;" & _
      "Remote Server=http://carl2;" & _
      "Remote Provider=Microsoft.Jet.OLEDB.4.0;" & _
      "Data Source=/somepath/mydb.mdb;",_
      "admin",""

  iii)OLE DB Provider自定义事务对象
    oConn.Open "Provider=MS Remote;" & _
      "Remote Server=http://carl2;" & _
      "Handler=MSDFMAP.Handler;" & _
      "Data Source=MyAdvworksOLEDBConnectTag;"

下面是vb代码范例,在vb6下运行通过.
新建一个exe工程,在引用里添加microsoft activex data objects 2.8 library ,如果没有安装2.8,可用2.7等其他版本
添加两个command
在Private Sub Command1_Click()中添加以下代码

Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset

Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
cn.Open "Provider=MS Remote;" & _
"Remote Server=http://192.168.0.160;" & _
"Remote Provider=MSDAsql;" & _
"DSN=pubs;" & _
"Uid=sa;" & _
"Pwd=aaa"
rs.Open "select * FROM Authors",cn
MsgBox rs.EOF


在Private Sub Command2_Click()中添加以下代码

Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset

Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
cn.Open "Provider=MS Remote;" & _
"Remote Server=http://192.168.0.160;" & _
      "Remote Provider=Microsoft.Jet.OLEDB.4.0;" & _
      "Data Source=c:/aaa/pubs.mdb;"
rs.Open "select * FROM Authors",cn
MsgBox rs.EOF


现在我们再来服务器上设置。

首先,要配置一个odbc,名为pubs,数据库服务器可为任意能访问的。
其次,到iis管理器中,默认站点中,找到msadc这个虚拟目录,默认安装下,该目录禁止任何ip访问。选择该目录的属性,选择目录安全性,ip

地址及域名限制,选择授权访问,点击确定即可,或者选择拒绝访问,在例外中加入你客户端计算机的ip。
第三,打开msadc虚拟目录所在的文件夹,会发现有3个reg文件,把他们都添加注册表中吧。
第四,开始,运行,敲入iisreset,或者直接重启计算机。

再返回客户端,运行刚才的vb程序,点击command1是通过odbc连接mssql,点击command2是连接服务端的access

原文链接:https://www.f2er.com/vb/262340.html

猜你在找的VB相关文章