步骤 2:初始化主列表框
若要声明全局 Record 和 Recordset 对象,请将以下代码插入 Form1 的 (General) (Declarations) 中:
Option Explicit
Dim grec As Record
Dim grs As Recordset
此代码声明记录和 Recordset 对象的全局对象引用,稍后将在此方案中使用这些对象。
将以下代码插入 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
。