步骤 2：初始化主列表框

  • 项目

若要声明全局 Record 和 Recordset 对象，请将以下代码插入 Form1 的 (General) (Declarations) 中：

Option Explicit  
Dim grec As Record  
Dim grs As Recordset

此代码声明记录和 Recordset 对象的全局对象引用，稍后将在此方案中使用这些对象。

连接到 URL 并填充 lstMain

将以下代码插入 Form1 的 Form Load 事件处理程序中：

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 对象。 使用 ActiveConnection 指定的 URL 打开 Record 对象，即 grec。 如果 URL 存在，则它会打开；如果 URL 尚不存在，则会创建它。 注意，应使用你环境中的有效 URL 替换 https://servername/foldername/。

Recordset 对象 grs 在 Record 的子级 grec 上打开。 然后用发布到 URL 的资源的文件名填充 lstMain。

另请参阅

Internet 发布方案
步骤 1：设置 Visual Basic 项目
步骤 3：填充字段列表框