怎么使用ado连接到网络的access数据库

Question

怎么使用ado对象的connectionstring来连接www.east-sh.com/wg/game.mdb呀
我怎么就是不会，气死了！！！

Answer 1

哪有这样子用的啊?i服了u.改用sql吧.

Answer 2

Tp0cs (背后的男人):你是一个初学者,我是机械系毕业生,想当初我刚写程序时连数据库的概念都没有,你算是比我进了一步,至起码知道用数据库来解决问题.引用:  工程=>引用=>MICROSFT ACTIVEX DATA OBJECTS 2.5 LIBRARY'
'创建一个连接(连接到ACCESS)
'函数名:CreateMdbConn
'参数:  DbConnection ADODB连接,MdbPath ACCESS数据库路径,Provider JET引擎版本,UserID 登录用户名,UserWord 登录密码
'返回值:TRUE 连接成功.FALSE 连接失败.
'例:    CreateMdbConn p_cnn,"C:\DEMO.MDB","sa","123"'*注:声明P_CNN 时请使用 NEW 关键了.即
  Dim P_Cnn As New ADODB.ConnectionPublic Function CreateMdbConn(ByRef DbConnection As ADODB.Connection, _
                              MdbPath As String, _
                              Optional Provider = "Microsoft.Jet.OLEDB.4.0;", _
                              Optional UserID As String = "admin", _
                              Optional UserWord As String = "") As Boolean
  Dim ConStr As String
    
  On Error Resume Next
  
  If DbConnection.State = adStateOpen And Not IsEmpty(adStateOpen) Then
     DbConnection.Close
  End If
  '/------------------------------------------------------------------
  ConStr = "Provider=" & Provider & _
           "Data Source=" & MdbPath & ";" & _
           "Jet OLEDB:Database Password=" & UserWord & ";" & _
           "User ID=" & UserID & ";"
  
  DbConnection.ConnectionString = ConStr
  DbConnection.Open
  DoEvents  If Err.Number = 0 Then
     CreateMdbConn = True
  Else
     Err.Clear
     CreateMdbConn = False
  End If
End Function

Answer 3

我漏看你的数据库,原来你是要打开一个网络的数据库
www.east-sh.com/wg/game.mdb
如果这样,最好使用 SQL SERVER 作为你的后台数据库. :-)

Answer 4

不必了，我选用了c/s的格式，用xml来传输