Contoh Properti Handler (VB)

Penting

Dimulai dengan Windows 8 dan Windows Server 2012, komponen server RDS tidak lagi disertakan dalam sistem operasi Windows (lihat Windows 8 dan Windows Server 2012 Compatibility Cookbook untuk detail selengkapnya). Komponen klien RDS akan dihapus di 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.

Contoh ini menunjukkan properti objek RDS DataControl Handler. (Lihat Kustomisasi DataFactory untuk detail selengkapnya.)

Asumsikan bahwa bagian berikut dalam file parameter, Msdfmap.ini, terletak di server:

[connect AuthorDataBase]  
Access=ReadWrite  
Connect="DSN=Pubs"  
[sql AuthorById]  
SQL="SELECT * FROM Authors WHERE au_id = ?"  

Kode Anda terlihat seperti berikut ini. Perintah yang ditetapkan ke properti SQL akan cocok dengan pengidentifikasiAuthorByIddan akan mengambil baris untuk penulis Michael O'Leary. Properti DataControl objek Recordset ditetapkan ke objek Recordset yang terputus murni sebagai kenyamanan pengkodan.

'BeginHandlerVB  
Public Sub Main()  
    On Error GoTo ErrorHandler  
  
    Dim dc As New DataControl  
    Dim rst As ADODB.Recordset  
  
    dc.Handler = "MSDFMAP.Handler"  
    dc.ExecuteOptions = 1  
    dc.FetchOptions = 1  
    dc.Server = "https://MyServer"  
    dc.Connect = "Data Source=AuthorDataBase"  
    dc.SQL = "AuthorById('267-41-2394')"  
    dc.Refresh                  'Retrieve the record  
    Set rst = dc.Recordset      'Use another Recordset as a convenience  
    Debug.Print "Author is '" & rst!au_fname & " " & rst!au_lname & "'"  
  
    ' clean up  
    If rst.State = adStateOpen Then rst.Close  
    Set rst = Nothing  
    Set dc = Nothing  
    Exit Sub  
  
ErrorHandler:  
    ' clean up  
    If Not rst Is Nothing Then  
        If rst.State = adStateOpen Then rst.Close  
    End If  
    Set rst = Nothing  
    Set dc = Nothing  
  
    If Err <> 0 Then  
        MsgBox Err.Source & "-->" & Err.Description, , "Error"  
    End If  
End Sub  
'EndHandlerVB  

Lihat Juga

DataControl Object (RDS)
Properti Handler (RDS)