也许你考虑的太复杂了! 不用什么socket的 只要把客户机上打开database的连接串里的数据库路径改到服务器的路径就可以了 dim con as new adodb.connection con.open "……Data sourec=\\YourServerName\DatabasepathAndName" 打开数据库后的操作和本地是一样的
同意: gz_freebird(最卧红尘)
可以用rds服务 With rdsConnectInfo .SERVER = "http://" + ZTDataBaseServer If intShuJK = 0 Then .Connect = ZTDataBaseConnect ElseIf intShuJK = 1 Then .Connect = ZTInfoDataBaseConnect End If .ExecuteOptions = rds.adcExecSync .SQL = strSQL .InternetTimeout = 30 * 1000 '30秒 .Refresh End With 自己研究把,如有问题,可meil:[email protected]
如果是局域网就简单了,把数据库共享,用ado来实现。
如果是internet那就用asp开发,也用ado。
用sock开发,工作量有点太大了,你的做一个中间层服务程序来把个客户端的数据发到数据库中。
比如sqlserver.
不用什么socket的
只要把客户机上打开database的连接串里的数据库路径改到服务器的路径就可以了
dim con as new adodb.connection
con.open "……Data sourec=\\YourServerName\DatabasepathAndName"
打开数据库后的操作和本地是一样的
With rdsConnectInfo
.SERVER = "http://" + ZTDataBaseServer
If intShuJK = 0 Then
.Connect = ZTDataBaseConnect
ElseIf intShuJK = 1 Then
.Connect = ZTInfoDataBaseConnect
End If
.ExecuteOptions = rds.adcExecSync
.SQL = strSQL
.InternetTimeout = 30 * 1000 '30秒
.Refresh
End With
自己研究把,如有问题,可meil:[email protected]