다음을 통해 공유

2단계: 기본 목록 상자 초기화

  • 아티클

전역 Record 및 Recordset 개체를 선언하려면 Form1에 대한 (일반) (선언)에 다음 코드를 삽입합니다.

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이 있으면 열리고, URL이 없으면 만들어집니다. https://servername/foldername/을 환경에서 유효한 URL로 바꿔야 합니다.

Recordset 개체 grs는 Record grec의 자식에 대해 열립니다. 그런 다음, lstMain은 URL에 게시된 리소스의 파일 이름으로 채워집니다.

참고 항목

인터넷 게시 시나리오
1단계: Visual Basic 프로젝트 설정
3단계: 필드 목록 상자 채우기