contoh penggunaan RDO

Contoh RDO berikut menggunakan koneksi ODBC "DSN-kurang" sehingga Anda tidak harus mengatur DSN dengan utilitas ODBC Admin sebelumnya.
Memulai sebuah proyek baru dalam Visual Basic. Form1 dibuat secara default.
Tambahkan tombol perintah untuk Form1, Command1 secara default.
Paste kode berikut ke bagian umum Deklarasi Form1.

Catatan Anda harus mengubah Username = <username>dan PWD =<strong password=""> untuk nilai-nilai yang benar sebelum Anda menjalankan kode ini. Pastikan bahwa nama pengguna memiliki izin yang sesuai untuk melakukan operasi ini pada database.</strong> </username>Dim en As rdoEnvironment Dim cn As rdoConnection

 Private Sub Form_Load()
        MousePointer = vbHourglass
        Dim strConnect As String
        ' Change the next line to reflect your driver and server.
        strConnect = "driver={SQL Server};server=jonfo5;" & _"database=pubs;Username=<username>;PWD=<strong password>;"
        Set en = rdoEngine.rdoEnvironments(0)
        Set cn = en.OpenConnection(dsName:="", _Prompt:=rdDriverNoPrompt, _ ReadOnly:=False, _Connect:=strConnect)
        cn.QueryTimeout = 600
        MousePointer = vbNormal
      End Sub
Private Sub Command1_Click() MousePointer = vbHourglass
        Dim rs As rdoResultset
        Set rs = cn.OpenResultset(Name:="Select * from authors", _Type:=rdOpenForwardOnly, _ LockType:=rdConcurReadOnly, _ Options:=rdExecDirect)
        Debug.Print rs(0), rs(1), rs(2)
        MousePointer = vbNormal
 End Sub

Posted in: contoh