这是一个VB代码(我的服务器上RDS已关了无法用下面代码测试了)'引用ADO '引用Microsoft Remote Data Services 2.x Library Private Sub Command1_Click() Dim DF As Object Dim strServer As String Dim strConnect As String Dim strSQL As String Dim objADORs As Recordset Dim ds As New DataSpace Dim k As String Dim i As Integer strServer = "http://9zp.com" strConnect = "Data Source=hzn;" 'hzn是数据源名,连接到一个.mdb strSQL = "Select * from user" Set DF = ds.CreateObject("RDSServer.DataFactory", strServer) Set objADORs = DF.Query(strConnect, strSQL) For i = 0 To objADORs.Fields.Count - 1 k = k & objADORs.Fields(i).Name & Chr(10) Next i MsgBox k MsgBox objADORs.Fields(0) objADORs.Fields(0) = "改变这几个字试试" DF.SubmitChanges strConnect, objADORs MsgBox objADORs.Fields(0)End Sub
TO hhjjhjhj(大头)(想变胡萝卜^^) : 在连接时需要把access数据库用odbc连接吗? odbc如何连接远程的access呢?我怎么连接失败的啊 :~( 如果再有PHP连接试例就好了 :)~~~~~`
至于中文的还是google一下吧
这个是最基本的也是最管用的工具
C:\Program Files\Common Files\Microsoft Shared\OFFICE(n)\2052\ADO210.CHM
RDS服务在WIN2000中的设置,参见ADO2.6 SDK(微软网站有下载,英文版)
分不够再加!~``在线等待``````````
不要说什么ms的那个adodb
'引用Microsoft Remote Data Services 2.x Library
Private Sub Command1_Click()
Dim DF As Object
Dim strServer As String
Dim strConnect As String
Dim strSQL As String
Dim objADORs As Recordset
Dim ds As New DataSpace
Dim k As String
Dim i As Integer
strServer = "http://9zp.com"
strConnect = "Data Source=hzn;" 'hzn是数据源名,连接到一个.mdb
strSQL = "Select * from user"
Set DF = ds.CreateObject("RDSServer.DataFactory", strServer)
Set objADORs = DF.Query(strConnect, strSQL)
For i = 0 To objADORs.Fields.Count - 1
k = k & objADORs.Fields(i).Name & Chr(10)
Next i
MsgBox k
MsgBox objADORs.Fields(0)
objADORs.Fields(0) = "改变这几个字试试"
DF.SubmitChanges strConnect, objADORs
MsgBox objADORs.Fields(0)End Sub
strConnect = "通常所用的连接字符串"
不好意思, 打扰你太久了 :)~~~~~` 再请问RDS服务器如何设置啊?~
安装后---ADO help---ADO Programmer's Guide----Remote Data Service---RDS Usage and Security---Configuring RDS