使用英语阅读

通过


步骤 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:填充字段列表框