正好看到MSDN里一段话你看看：Remoting Features of Visual Basic"Remoting" is the process of passing parameters between two different processes, usually across a network. ……ADO Recordset objects can also be remoted. With this capability, ADO recordsets are especially suited for use on intranet and Internet client-server applications. For example, you can create an HTML or DHTML page that accesses data across the Internet from a web server application. When creating the HTML page, you can include the Microsoft ActiveX Data Access Recordset 2.0 Library, which features only the Recordset object. Since that library doesn't include the Command, Connection, and Parameter objects, your application will have the smallest possible footprint while retaining the functionality of the ADO Recordset features. The code below shows an example of remoting ADO recordsets.' This code is in a code module. ' Set a reference to the Microsoft ActiveX Data Objects 2.0 Library Private MyADORecordset As ADODB.RecordsetPublic Function GetCustomer(LastName As String) As ADODB.Recordset ' Query the DB MyADORecordset.Open "SELECT * FROM Customers WHERE " & _ "LastName = '" & LastName & "'", cn, adOpenForwardOnly, adLockReadOnly Set MyADORecordset.ActiveConnection = Nothing Set GetCustomer = MyADORecordset ' Return the recordset. End FunctionWhile code on the client machine that calls the function would be:Option Explicit Private SomeServer As ObjectPrivate Sub Command1_Click() ' Client can use the lighter ADOR library. Set a reference to ' the Microsoft ActiveX Data Objects Recordset 2.0 Library. Dim MyData As ADOR.Recordset Set SomeServer = CreateObject("foo.bar", myserver) Set MyData = SomeServer.GetCustomer("Smith") ' Do something with the data. End Sub
' Set a reference to the Microsoft ActiveX Data Objects 2.0 Library
Private MyADORecordset As ADODB.RecordsetPublic Function GetCustomer(LastName As String) As ADODB.Recordset
' Query the DB
MyADORecordset.Open "SELECT * FROM Customers WHERE " & _
"LastName = '" & LastName & "'", cn, adOpenForwardOnly, adLockReadOnly
Set MyADORecordset.ActiveConnection = Nothing
Set GetCustomer = MyADORecordset ' Return the recordset.
End FunctionWhile code on the client machine that calls the function would be:Option Explicit
Private SomeServer As ObjectPrivate Sub Command1_Click()
' Client can use the lighter ADOR library. Set a reference to
' the Microsoft ActiveX Data Objects Recordset 2.0 Library.
Dim MyData As ADOR.Recordset
Set SomeServer = CreateObject("foo.bar", myserver)
Set MyData = SomeServer.GetCustomer("Smith")
' Do something with the data.
End Sub
若加盟店连安装一根ADSL的费用都不愿意拿,你还能指望他们会愿意购买智能卡的读写设备吗?
有的地区也许不提供ADSL接入
一句话，这种情况最好使用red hat+oracle+tuxedo+gcc，windows和vb性能都太差了。