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

Шаг 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 открывается с URL-адресом, grecуказанным в качестве ActiveConnection. Если URL-адрес существует, он открывается; Если он еще не существует, он создается. Обратите внимание, что следует заменить https://servername/foldername/ допустимым URL-адресом из вашей среды.

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

См. также:

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