ADO 레코드 집합을 사용하여 목록 상자 채우기

Question

다음은 ADO 레코드 집합을 사용하여 ListBox를 POpulating하기위한 코드입니다. 그것은 작동하지만 양식으로 표시되어야하는 방식이 아닙니다.

Function PopulatelstReview() 
    Dim sList As String 
    Dim i As Long 
    Dim ADORs As ADODB.Recordset 
    Dim strSearchResult As String 
    Set AdoCn = New ADODB.Connection 

    Set AdoCmd = New ADODB.Command 

    AdoCn.Open AdoConnectionString 

    AdoCmd.ActiveConnection = AdoConnectionString 
    Debug.Print AdoConnectionString 

    Set ADORs = New ADODB.Recordset 
    'rs.Open "TestListReview", AdoCn 
    ADORs.CursorLocation = adUseClient 
    'rs.Open strSQL, AdoConnectionString, adOpenDynamic, adLockOptimistic, adCmdText 


     AdoCmd.CommandType = adCmdStoredProc 
     AdoCmd.CommandText = "TestListReview" 
     Set rs = AdoCmd.Execute 
    Set ADORs = ExecuteStoredProcedure("TestListReview", AdoCmd) 

    With ADORs 
    lstReview.RowSourceType = "Value List" 
      lstReview.ColumnHeads = False 

       Label43.Caption = ADORs.Fields(0).Name 
     Label44.Caption = ADORs.Fields(1).Name 
      Label45.Caption = ADORs.Fields(2).Name 
      Label48.Caption = ADORs.Fields(3).Name 
      Label49.Caption = ADORs.Fields(4).Name 
       Label50.Caption = ADORs.Fields(5).Name 
       Label51.Caption = ADORs.Fields(6).Name 
       Label52.Caption = ADORs.Fields(7).Name 

       lstReview.AddItem ADORs!id 
       lstReview.AddItem ADORs!TradePartner 
       lstReview.AddItem ADORs!TrustAccount 
       lstReview.AddItem ADORs!Date 
       lstReview.AddItem ADORs!CurrentBalance 
       lstReview.AddItem ADORs!FileName 
       lstReview.AddItem ADORs!RecordNum 
       lstReview.AddItem ADORs!ImportDateTime 

       sList = ADORs.GetString(adClipString, , ";", ";") 
      'lstReview.RowSourceType = "Value List" 
      'lstReview.RowSource = sList 
     End With 
    'Call RS2WS(ADORs, "A3") 
    'lstReview.Column(0, 1) = "ID" 

    End Function 

나는 각각의 값은 내가이

Answer 1

당신이 Excel 또는 Access를 사용하고 할 수있는 방법을 말해 labels.please에 배치 appropiate 열을 받게해야해야합니까? Access를 사용하는 경우 테이블을 가져 오거나 링크 할 수 있으며 일반 쿼리를 (레코드 소스)로 사용하여 목록 상자를 채울 수 있습니다.

어쨌든 여기에 사용자의 메서드를 사용하여 목록 상자를 채우는 의사 코드가 있습니다. 서버에 연결하고 SQL 문을 실행 한 후 다음 코드를 시도하십시오.

Dim RC, CC As Long 
ADORs.MoveLast ' vba will not know the total row until you scroll down to the last 
RC = ADORs.RecordCount ' get the result row count 
CC = ADORs.Fields.count ' get the field/column count 
ADORs.MoveFirst ' Move back to the first record 

lstReview.ColumnHeads = True 
lstReview.ColumnCount = CC ' Number of column as in the recordset 

'Fill the column names 
Dim I As Integer 
For I = 0 To CC - 1 
    lstReview.Column(I, 0).value = ADORs.Fields(I).name 
Next I 


'Fill the data 
Dim J As Integer 
While Not ADORs.EOF 
    For I = 1 To RC - 1 
     For J = 0 To CC - 1 
      lstReview.Column(J, I).value = ADORs.Fields(J).value 
     Next J 
    Next I 
    ADORs.MoveNext 'moving to next record 
Wend 

또한 SQL 실행이 레코드를 반환 한 경우와 같은 트래핑 오류를 고려해야합니다. 당신이 엑셀을 사용하는 경우

접근을 위해 당신을 위해 :