头痛！真的头痛！！如何使用ADO连接远程数据库?(请UP,不断加分)

Question

用SQL Server就不需要路径了，把服务器名改为IP即可；
ACCESS没有试过。

Answer 1

I want to Learn
Thank you

Answer 2

Dim cn As ADODB.Connection
Set cn = New ADODB.Connection
cn.Open "provider=sqloledb;server=61.202.12.33;database=test;uid=sa;pwd=password"

Answer 3

上面的答案是对的，只要从你的机器能够PING通那台远程的机器，通过上面的方法就可以，关键是网络问题。

Answer 4

这很普通的很神秘么？服务器名改称IP就可以了。win98好用我试了但是winNT,win2000下就不知道

Answer 5

最简单，效率最高的方法就是使用VB的数据厍控件：adodc

Answer 6

"provider=sqloledb;server=61.202.12.33;database=test;uid=sa;pwd=password

Answer 7

lifong(李峰) 
为什么说效率最高的是ADO控件，真是这样吗？

Answer 8

Dim cn As ADODB.Connection
Set cn = New ADODB.Connection
cn.Open "provider=sqloledb;server=61.202.12.33;database=test;uid=sa;pwd=password"

Answer 9

如果是access数据库，只有共享吗？

Answer 10

TO：Montaque(Rainman)
多谢各位的支持（深深一鞠）
请问：test如何定义？
包不包含路径，还是在ODBC是定义！！
(能给出详细例子吗？[email protected])
高兴相送!

Answer 11

打开不了access数据库！！！！！！！！！
说得简单，做起却难！能给例子吗？能在本机测试吗？

Answer 12

先将数据库所在目录完全共享.
很简单的,先引用ado2.5再使用如下的函数:
  '用特定的筛选条件(MyRecordSource)连接特定的数据库(MyDatabase)两个参数来连接数据库中的某张表(MyTable),数据库的密
                                     '码为DataBasePassword 
                                      '并指定特定的字段(MyFields)，返回特定的值,不绑定数据控件Function adoconnect3(ByVal MyDatabase As String, ByVal MyTable As String, ByVal MyFields As String, ByVal MySQLCondition1 As String) As Recordset
   
   Dim MyRs As ADODB.Recordset
   Dim MyConnectString As String
   Dim sql As String
   
 ''' 打开连接。
   MyPath =+ "192.168.9.1\database\"
   MyConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & MyPath & MyDatabase & ";Jet OLEDB:Database Password=" & DataBasePassword 
   Set MyCnn = New ADODB.Connection
   MyCnn.Open MyConnectString
   
   ''建立RecordSet
   Set MyRs = New ADODB.Recordset
   sql = "SELECT " & MyFields & "  FROM " & MyTable & MySQLCondition1
    MyRs.CursorLocation = adUseClient
   MyRs.LockType = adLockBatchOptimistic
   MyRs.CursorType = adOpenKeyset
  
   ''给函数赋值
   MyRs.Open sql, MyCnn
   Set adoconnect3 = MyRs
   
  End Function

Answer 13

to:qhzxcz(audio)
我的是ADO2.1,可以吗?
哪里有ADO2.5下载!!!

Answer 14

你用ADO2.1试试吧,单机上可以调试

Answer 15

to:qhzxcz(audio)
错误！
”\\127.0.0.1\lwx\db01.mdb“ ———————— 提示错误路径！
”127.0.0.1\lwx\db01.mdb“ —————————'E:\Program Files\Microsoft Visual Studio\VB98\127.0.0.1\lwx\db01.mdb'不是一个有效的路径。 确定路径名称拼写是否正确，以及是否连接到文件存放的服务器。

Answer 16

Dim cn As ADODB.Connection
Set cn = New ADODB.Connection
cn.Open "Provider=Sqloledb;Server=XXX.XXX.XXX.XXX;Database=test;Uid=User;Pwd=Password"

Answer 17

先将数据库所在目录完全共享.
很简单的,先引用ado2.5再使用如下的函数:
  '用特定的筛选条件(MyRecordSource)连接特定的数据库(MyDatabase)两个参数来连接数据库中的某张表(MyTable),数据库的密
                                     '码为DataBasePassword 
                                      '并指定特定的字段(MyFields)，返回特定的值,不绑定数据控件Function adoconnect3(ByVal MyDatabase As String, ByVal MyTable As String, ByVal MyFields As String, ByVal MySQLCondition1 As String) As Recordset
   
   Dim MyRs As ADODB.Recordset
   Dim MyConnectString As String
   Dim sql As String
   
 ''' 打开连接。
    MyPath = "\\192.168.9.211\" + "database\"  '主要是这儿,笔误,sorry
   MyConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & MyPath & MyDatabase & ";Jet OLEDB:Database Password=" & DataBasePassword 
   Set MyCnn = New ADODB.Connection
   MyCnn.Open MyConnectString
   
   ''建立RecordSet
   Set MyRs = New ADODB.Recordset
   sql = "SELECT " & MyFields & "  FROM " & MyTable & MySQLCondition1
    MyRs.CursorLocation = adUseClient
   MyRs.LockType = adLockBatchOptimistic
   MyRs.CursorType = adOpenKeyset
  
   ''给函数赋值
   MyRs.Open sql, MyCnn
   Set adoconnect3 = MyRs
   
  End Function