步驟 2:叫用伺服器程式 (RDS 教學課程)
當您在用戶端上叫用方法 Proxy時,伺服器上的實際程式會執行 方法。 在此步驟中,您將在伺服器上執行查詢。
重要
從 Windows 8 和 Windows Server 2012 開始,RDS 伺服器元件已不再包含在 Windows 作業系統中(如需詳細資訊,請參閱 Windows 8 和 Windows Server 2012 兼容性 Cookbook)。 RDS 用戶端元件將在未來的 Windows 版本中移除。 請避免在新的開發工作中使用此功能,並計劃修改目前使用此功能的應用程式。 使用 RDS 的應用程式應該移至 WCF Data Service。
第 A 部分 如果您未在本教學課程中使用 RDSServer.DataFactory,執行此步驟的最方便方式就是使用 RDS。DataControl 物件。 RDS.DataControl 結合了之前建立代理的步驟及此步驟,發出查詢。
設定 RDS。DataControl 物件 Server 屬性,以識別伺服器程式應具現化的位置;Connect 屬性,指定要存取數據源的連接字串;和 SQL 屬性,以指定查詢命令文字。 然後發出 Refresh 方法,讓伺服器程式連線到數據源、擷取查詢指定的數據列,並將 Recordset 物件傳回給用戶端。
本教學不使用 RDS.DataControl,但如果使用,將會是這樣:
Sub RDSTutorial2A()
Dim DC as New RDS.DataControl
DC.Server = "https://yourServer"
DC.Connect = "DSN=Pubs"
DC.SQL = "SELECT * FROM Authors"
DC.Refresh
...
zh-TW: 本教學課程也不會使用 ADO 物件來叫用 RDS,但如果有使用,效果就會是這樣:
Dim rs as New ADODB.Recordset
rs.Open "SELECT * FROM Authors","Provider=MS Remote;Data Source=Pubs;" & _
"Remote Server=https://yourServer;Remote Provider=SQLOLEDB;"
第 B 部分 執行此步驟的一般方法是叫用 RDSServer.DataFactory 物件 Query 方法。 該方法會採用用來連接到數據源的連接字串,以及用來指定要從數據源傳回的數據列的命令文字。
本教學課程使用 DataFactory 物件的 Query 方法:
Sub RDSTutorial2B()
Dim DS as New RDS.DataSpace
Dim DF
Dim RS as ADODB.Recordset
Set DF = DS.CreateObject("RDSServer.DataFactory", "https://yourServer")
Set RS = DF.Query ("DSN=Pubs", "SELECT * FROM Authors")
...