用ado实现,代码如下: dim cn as adodb.connection dim strcnn as string strcnn="provider=microsoft.jet.4.0;password=;id=;data base=;datasource=" set cn=new adodb.connection cn.open strcnn
首先要引用ADO工程库:工程-〉引用-〉点选 Microsoft ActiveX Data Objects 2.x Library程序中使用如下: Dim szSql As String Dim oDb As New SNConnection Dim DB As New ADODB.Connection Dim RD As New ADODB.Recordset '打开 .MDB
看来大家对RDS还不了解! RDS是“读取”时连接,立即断开,“更新”时再次连接,所以完全可用于多用户系统。 我的服务器上先设置好了,供大家测试下面的代码,10天后可能会取消这个服务。 如以后想测试,可到我的论坛中提出。 http://office.9zp.com引用 Microsoft Remote Data Services x.x Library 引用 ADODim DF As Object Dim strServer As String Dim strConnect As String Dim strSQL As String Dim objADORs As Recordset Dim ds As New DataSpace strServer = "http://9zp.com" strConnect = "Data Source=hzn;" strSQL = "Select * from parts" Set DF = ds.CreateObject("RDSServer.DataFactory", strServer) Set objADORs = DF.Query(strConnect, strSQL) MsgBox objADORs.Fields(0) objADORs.Fields(0) = "改变这几个字再运一次" DF.SubmitChanges strConnect, objADORs MsgBox objADORs.Fields(0)
http://expert.csdn.net/Expert/topic/2297/2297454.xml?temp=.6202661
dim cn as adodb.connection
dim strcnn as string
strcnn="provider=microsoft.jet.4.0;password=;id=;data base=;datasource="
set cn=new adodb.connection
cn.open strcnn
Dim RD As New ADODB.Recordset '打开 .MDB
DB.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\\192.168.151.12\E:\DB1.mdb"
如果非要做的话可以用ADO~~
强烈呼吁用ODBC
若为了升级勉强使用,我建议你把数据库与客户直接的联系用sock控件来发送信息,服务器端通过客户发送过来的信息来操作数据库并返回客户端数据,这样对于保护数据的安全很是有作用的。另你说用data控件,恐怕不很灵活,用ado。
RDS是“读取”时连接,立即断开,“更新”时再次连接,所以完全可用于多用户系统。
我的服务器上先设置好了,供大家测试下面的代码,10天后可能会取消这个服务。
如以后想测试,可到我的论坛中提出。
http://office.9zp.com引用 Microsoft Remote Data Services x.x Library
引用 ADODim DF As Object
Dim strServer As String
Dim strConnect As String
Dim strSQL As String
Dim objADORs As Recordset
Dim ds As New DataSpace
strServer = "http://9zp.com"
strConnect = "Data Source=hzn;"
strSQL = "Select * from parts"
Set DF = ds.CreateObject("RDSServer.DataFactory", strServer)
Set objADORs = DF.Query(strConnect, strSQL)
MsgBox objADORs.Fields(0)
objADORs.Fields(0) = "改变这几个字再运一次"
DF.SubmitChanges strConnect, objADORs
MsgBox objADORs.Fields(0)
在服务器端与客户端各写一个程序
这样安全些
就是不如ASP方便。