次の方法で共有

手順 2:Main リスト ボックスを初期化する

  • [アーティクル]

グローバルな Record オブジェクトと Recordset オブジェクトを宣言するには、Form1 の (General) (Declarations) に次のコードを挿入します。

Option Explicit  
Dim grec As Record  
Dim grs As Recordset

このコードにより、このシナリオで後ほど使う Record オブジェクトと 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 オブジェクトがインスタンス化されます。 Record オブジェクト grec は、ActiveConnection として指定された URL で開かれます。 URL が存在する場合は、開かれます。まだ存在していない場合は、作成されます。 https://servername/foldername/ はご利用の環境の有効な URL に置き換える必要があることに注意してください。

Recordset オブジェクト grs は、Record grec の子で開かれます。 その後、URL に発行されたリソースのファイル名で lstMain が設定されます。

参照

インターネットへの発行のシナリオ
手順 1:Visual Basic プロジェクトを設定する
手順 3:Fields リスト ボックスに値を設定する