Поделиться через

Шаг 2. Инициализация поля "Основной список"

  • Статья

Чтобы объявить глобальные объекты Record и Recordset, вставьте следующий код в раздел (Общие) (Объявления) для Form1:

Option Explicit  
Dim grec As Record  
Dim grs As Recordset

Этот код объявляет глобальные ссылки на объекты Record и Recordset, которые будут использоваться далее в этом сценарии.

Подключение к URL-адресу и заполнение lstMain

Вставьте следующий код в обработчик событий Загрузки формы для 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

Этот код создает экземпляры глобальных объектов Record и Recordset. Объект Record, grec, открывается с URL-адресом, указанным как ActiveConnection. Если URL-адрес существует, он открывается; Если он еще не существует, он создается. Обратите внимание, что следует заменить https://servername/foldername/ на допустимый URL-адрес из вашей среды.

Объект Recordset, grs, открывается на дочерних элементах Record, grec. Затем lstMain заполняется именами файлов ресурсов, опубликованных в URL-адресе.

См. также

Сценарий интернет-публикации
шаг 1. Настройка проекта Visual Basic
Шаг 3: Заполните список полей