1. 定义连接对象Global DBconnect As New ADODB.Connection2. 执行连接语句If DBconnect.State = adStateOpen And Not IsEmpty(adStateOpen) Then DBconnect.Closel 连接ODBC DBconnect.ConnectionString = "dsn=DataAliasName;uid=UserID;pwd=Passwd;"l 直接连接Access为Dbconnect.Provider = "Microsoft.jet.OLEDB.4.0" // Access 97为3.51DBconnect.ConnectionString = "FilePathFileName.mdb"l 连接OracleDBconnect.Provider = "MSADORA"DBconnect.ConnectionString = "user/mypass@servicename l 连接SQL ServerDBconnect.Provider = "SQLOLEDB.1"DBconnect.ConnectionString = "DATABASE= ;SERVER= ;UID= ;PWD= ;"或者可以使用 DBconnect.Open "SERVER" , "USERID" , "PASSWORD"DBConnect.Open3. 取查询结果集Global RS As New ADODB.RecordsetGlobal PS As New ADODB.RecordsetIf RS.State = adStateOpen And Not IsEmpty(adStateOpen) Then RS.Close RS.Open SQLStr, DBconnect, adOpenKeyset4. 执行SQL语句DBconn.Execute SQLStr5. 关闭数据库DBconnect.Close
如果是远程数据库的话可以用SQL之类的网络数据库来实现,如果想用Access也可以,把Access库文件所在的文件夹共享,不过只能在局域网或VPN里实现,还有一种方法就是自己写一个服务器端软件用来与Access通信,所有客户端的请求都通过你写的这个服务器端来做中转。