Baca dalam bahasa Inggris

Bagikan melalui


Langkah 2: Menginisialisasi Kotak Daftar Utama

Untuk mendeklarasikan objek Rekaman dan Recordset global, sisipkan kode berikut ke dalam (Umum) (Deklarasi) untuk Form1:

Option Explicit  
Dim grec As Record  
Dim grs As Recordset  

Kode ini mendeklarasikan referensi objek global untuk objek Record dan Recordset yang akan digunakan nanti dalam skenario ini.

Untuk menyambungkan ke URL dan mengisi lstMain

Sisipkan kode berikut ke dalam penanganan aktivitas Pemuatan Formulir untuk Form1:

Private Sub Form_Load()  
    Set grec = New Record  
    Set grs = New Recordset  
    grec.Open "", "URL=https://servername/foldername/", , _  
        adOpenIfExists Or adCreateCollection  
    Set grs = grec.GetChildren  
    While Not grs.EOF  
        lstMain.AddItem grs(0)  
        grs.MoveNext  
    Wend  
End Sub  

Kode ini membuat instans objek Record dan Recordset global. Objek Rekam, grec, dibuka dengan URL yang ditentukan sebagai ActiveConnection. Jika ada URL, URL akan dibuka; jika belum ada, itu dibuat. Perhatikan bahwa Anda harus mengganti https://servername/foldername/ dengan URL yang valid dari lingkungan Anda.

Objek Recordset, grs, dibuka pada turunan Rekaman, grec. Kemudian lstMain diisi dengan nama file sumber daya yang diterbitkan ke URL.

Lihat juga

Skenario Penerbitan Internet
Langkah 1: Menyiapkan Proyek Visual Basic
Langkah 3: Isi Kotak Daftar Bidang