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.
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.
Skenario Penerbitan Internet
Langkah 1: Menyiapkan Proyek Visual Basic
Langkah 3: Isi Kotak Daftar Bidang