Tutorial RDS (VBScript)

Ini adalah Tutorial RDS, yang ditulis dalam Microsoft Visual Basic Scripting Edition. Untuk deskripsi tujuan tutorial ini, lihat Tutorial RDS.

Penting

Dimulai dengan Windows 8 dan Windows Server 2012, komponen server RDS tidak lagi disertakan dalam sistem operasi Windows (lihat Windows 8 dan Buku Masak Kompatibilitas Windows Server 2012 untuk detail selengkapnya). Komponen klien RDS akan dihapus dalam versi Windows yang akan datang. Hindari menggunakan fitur ini dalam pekerjaan pengembangan baru, dan rencanakan untuk memodifikasi aplikasi yang saat ini menggunakan fitur ini. Aplikasi yang menggunakan RDS harus bermigrasi ke WCF Data Service.

Dalam tutorial ini, RDS. DataControl dan RDS. DataSpace dibuat pada waktu desain - yaitu, mereka didefinisikan dengan tag objek, seperti ini: <OBJECT>...</OBJECT>. Atau, mereka dapat dibuat pada waktu proses dengan metode CreateObject Method (RDS). Misalnya, RDS. Objek DataControl dapat dibuat seperti ini:

Set DC = Server.CreateObject("RDS.DataControl")  
   <!-- RDS.DataControl -->  
   <OBJECT   
      ID="DC1" CLASSID="CLSID:BD96C556-65A3-11D0-983A-00C04FC29E33">  
   </OBJECT>  
  
   <!-- RDS.DataSpace -->  
   <OBJECT   
      ID="DS1" WIDTH=1 HEIGHT=1  
      CLASSID="CLSID:BD96C556-65A3-11D0-983A-00C04FC29E36">  
   </OBJECT>  
  
   <SCRIPT LANGUAGE="VBScript">  
  
   Sub RDSTutorial()  
   Dim DF1   

Langkah 1 - Tentukan program server

VBScript dapat menemukan nama server Web IIS yang dijalankannya dengan mengakses metode VBScript Request.ServerVariables yang tersedia untuk Halaman Server Aktif:

"https://<%=Request.ServerVariables("SERVER_NAME")%>"  

Namun, untuk tutorial ini, gunakan server imajiner, "yourServer".

Catatan

Perhatikan jenis data argumen ByRef . VBScript tidak memungkinkan Anda menentukan jenis variabel, jadi Anda harus selalu meneruskan Varian. Saat menggunakan HTTP, RDS akan memungkinkan Anda meneruskan Varian ke metode yang mengharapkan non-Varian jika Anda memanggilnya dengan RDS. MetodeCreateObject objek DataSpace. Saat menggunakan DCOM atau server dalam proses, Anda harus mencocokkan jenis parameter di sisi klien dan server atau Anda akan menerima kesalahan "Type Mismatch".

Set DF1 = DS1.CreateObject("RDSServer.DataFactory", "https://yourServer")  

Langkah 2a - Panggil program server dengan RDS. DataControl

Contoh ini hanyalah komentar yang menunjukkan bahwa perilaku default RDS. DataControl adalah melakukan kueri yang ditentukan.

<OBJECT CLASSID="clsid:BD96C556-65A3-11D0-983A-00C04FC29E33" ID="DC1">  
   <PARAM NAME="SQL" VALUE="SELECT * FROM Authors">  
   <PARAM NAME="Connect" VALUE="DSN=Pubs;">  
   <PARAM NAME="Server" VALUE="https://yourServer/">  
</OBJECT>  
...  
<SCRIPT LANGUAGE="VBScript">  
  
Sub RDSTutorial2A()  
   Dim RS  
   DC1.Refresh  
   Set RS = DC1.Recordset  
...  

Langkah 2b - Memanggil program server dengan RDSServer.DataFactory

Langkah 3 - Server mendapatkan Recordset

Langkah 4 - Server mengembalikan Recordset

Set RS = DF1.Query("DSN=Pubs;", "SELECT * FROM Authors")  

Langkah 5 - DataControl dibuat dapat digunakan oleh kontrol visual

' Assign the returned recordset to the DataControl.  
  
DC1.SourceRecordset = RS  

Langkah 6a - Perubahan dikirim ke server dengan RDS. DataControl

Contoh ini hanyalah komentar yang menunjukkan bagaimana RDS. DataControl melakukan pembaruan.

<OBJECT CLASSID="clsid:BD96C556-65A3-11D0-983A-00C04FC29E33" ID="DC1">  
   <PARAM NAME="SQL" VALUE="SELECT * FROM Authors">  
   <PARAM NAME="Connect" VALUE="DSN=Pubs;">  
   <PARAM NAME="Server" VALUE="https://yourServer/">  
</OBJECT>  
...  
<SCRIPT LANGUAGE="VBScript">  
  
Sub RDSTutorial6A()  
Dim RS  
DC1.Refresh  
...  
Set RS = DC1.Recordset  
' Edit the Recordset object...  
' The SERVER and CONNECT properties are already set from Step 2A.  
Set DC1.SourceRecordset = RS  
...  
DC1.SubmitChanges  

Langkah 6b - Perubahan dikirim ke server dengan RDSServer.DataFactory

DF.SubmitChanges "DSN=Pubs", RS  
  
End Sub  
</SCRIPT>  
</BODY>  
</HTML>  

Ini adalah akhir dari tutorial.

Lihat juga

Tutorial RDS