如何在VB中通过INTERNET访问ACCESS数据库？

Question

from http://www.able-consulting.com/ado_conn.htm?f=ado_conn.htm#MSRemoteAccessMS Remote - Access (Jet) 
If you want to use an ODBC DSN on the remote machineoConn.Open "Provider=MS Remote;" & _
           "Remote Server=http://myServerName;" & _ 
           "Remote Provider=MSDASQL;" & _
           "DSN=AdvWorks;" & _
           "Uid=myUsername;" & _
           "Pwd=myPassword;" 
 
If you want to use an OLE DB Provider on the remote machineoConn.Open "Provider=MS Remote;" & _ 
           "Remote Server=http://myServerName;" & _
           "Remote Provider=Microsoft.Jet.OLEDB.4.0;" & _
           "Data Source=c:\somepath\mydb.mdb;", _
            "admin", ""
 
If you want to use an OLE DB Provider on the remote machineoConn.Open "Provider=MS Remote;" & _ 
           "Remote Server=http://myServerName;" & _
           "Handler=MSDFMAP.Handler;" & _
           "Data Source=MyAdvworksConn;"
The corresponding entry in the \winnt\Msdfmap.ini file would be:[connect MyAdvworksConn]
Access = ReadWrite
Connect = "Provider=Microsoft.Jet.OLEDB.4.0;
           Data Source=mydb.mdb;
           User Id=admin; 
           Password=;"      (put this on single line!)
 >>使用机器的当前IP访问本机的ACCESS数据库等效于访问INTERNET上的服务器的数据库吗?
the performance will be a little different, since you have both client/server running on the same machine, but you do not have network bandwidth problem

Answer 1

Dim cnn As adodb.Connection
    Dim cmd As adodb.Command
    Dim rst As adodb.Recordset
    Set cnn = New adodb.Connection
    cnn.Open "Provider=MS Remote;" & _
             "Remote Server=http://61.145.233.231;" & _
             "Remote Provider=Microsoft.Jet.OLEDB.4.0;" & _
             "Data Source=d:\123\Client.mdb;", _
             "admin", "1233"
    Set cmd = New adodb.Command
    Set cmd.ActiveConnection = cnn
    cmd.CommandType = adCmdText
    cmd.CommandText = "SELECT AStyle3.AStyle3, AStyle3.AStyle3Name" & _
                      "FROM AStyle3 WHERE (((AStyle3.AStyle3)=" & "'" & AStyle3 & "'" & "))"
    Set rst = New adodb.Recordset
    rst.CursorLocation = adUseClient
    rst.CursorType = adOpenDynamic
    rst.LockType = adLockOptimistic
    rst.Open cmd
错误信息：Run-time error '-2147024891(80070005)':
RDS服务器错误：服务器拒绝访问用于访问此页的默认的RDS句柄。请查看：服务器管理员“获得关于服务器安全设置的更多的信息。

Answer 2

不要用ACCESS,使用SQL就可以使用IP地址方式连接数据库了.

Answer 3

远程访问ACCESS数据库
http://www.csdn.net/cnshare/soft/12/12478.shtm

Answer 4

可以用RDO实现上面功能。就是知道服务器的IP地址和数据库存放在服务器上的绝对地址。就可以访问了。
dim sql as string
dim sServerr as String 
dim sPath as StringsServerr ="127.0.0.1"
sPath="c:\mdb\test.mdb"
Sql = "insert into 表(代号) values('20033')"
    remoteUpdate "http://127.0.0.1", DataPath, Sql
    
   rdso.Server = sServer
   rdso.Connect = "Provider=Microsoft.Jet.OLEDB.3.51;" & _
             "Data Source=" & sPath & _
               "Jet OLEDB:Database Password =761101"
  ' rdso.Connect=SysDataConnn
   rdso.Sql = sSql   rdso.Refresh
   
   Set rdso = Nothing以上语句我在本机的PWS环境下测试通过。不过服务器的设置要设置成"脚本可执行"。只是不知道那种方法好

Answer 5

在vb中用ado控件的odbc连接远程计算机的数据库

Answer 6

是否可以用DSN连接呢?比如在开发环境中建立一个Access的DSN.然后在本地调试,
然后在正式程序中建立一个同名的DSN,但为网络或Internet上的Access数据库?

Answer 7

远程访问ASSCESS  ,不行行不通应该改用sql server 比较好!

Answer 8

错误信息：
Run-time error '-2147024891(80070005)':
RDS服务器错误：服务器拒绝访问用于访问此页的默认的RDS句柄。请查看：服务器管理员“获得关于服务器安全设置的更多的信息。产生上面错误的原因是因为没有正确配置服务器上RDS服务。
在一般的iis WEB服务器上应该有msdac这样一个文件夹，在它的属性设置中：
允许写入，执行许可是:脚本和可执行程序，应用程序保护是：低。
并把该文件夹下的三个注册表文件：handler.reg,handsafe.reg,handunsf.reg都写到注册表中，然后重新启动IIS就可以了。
另外产生这远程访问不能使用的原因还有很多，如有问题请再说出来。

Answer 9

另外，当我的机器连在INTERNET上时，使用机器的当前IP访问本机的ACCESS数据库等效于访问INTERNET上的服务器的数据库吗上面还不是通过internet 访问，要想通过internet访问必须得配有iis服务器。

Answer 10

Boible():
看了上面tchvb给的帖子，我发现你和Explorer001确实在互相给分，虽然问题都还可以，但我认为这种行为还是不好的。

Answer 11

这位男孩，你好！    应该怎样才不叫送分！    要我搞平均主义？    不是说大家不好，但实际上很多人是说不出什么有实际意义的东西的    也要给他们给分吗？    谁的态度正确，谁的回答正确    我就给谁，这样不对吗？    我还可以真实的讲给大家    你说的他是我们公司的总工程师    他很少玩CSDN的    只是老跑他办公室不方便    才要求他登记不个帐户的    另外，我是存有一定的私心的    但我也认为他回答的就是比别人好，这是可以查证的    这种事我可能还要继续下去的    这种情况CSDN不允许吗？    时间有限，不多说了    还请各位多多指正！

Answer 12

有人说我在送分！    
  
    好吧！你说送就送了    现在我还可以讲给大家更多的送分秘密的。
  
    应该怎样才不叫送分！    要我搞平均主义？    不是说大家不好，但实际上很多人是说不出什么有实际意义的东西的    也要给他们给分吗？    谁的态度正确，谁的回答正确    我就给谁，这样不对吗？    我还可以真实的讲给大家    他们说的他是我们公司的总工程师    他很少玩CSDN的    只是老跑他办公室不方便    才要求他登记个帐户的    另外，我是存有一定的私心的    但我也认为他回答的就是比别人好，这是可以查证的    这种事我可能还要继续下去的    这种情况CSDN不允许吗？    办个CSDN的目的和意义是什么？    你来CSDN的目的和意义又是什么？    不知大家看了我在CSDN上的问题的交流又有何说    但我自己可以坦然说，我不是那种无聊之徒    时间有限，不多说了    还请各位多多指正！http://www.csdn.net/expert/topic/870/870135.xml?temp=.4205438