VBでリストボックスにデータを表示

Question

データベースからの表示データをリストボックスに表示したい...これは私のコードですが、動作しません。リストボックスでは、

Dim strSQL As String 

    Dim DBCON, myConn, myCommand, rs As Object 

    Dim NoOfRecords As Long 

    rs = CreateObject("ADODB.Recordset") 

    Const DB_CONNECT_STRING = "Provider=MSDASQL.1;Persist Security Info=False;User ID=cpa5k;Data Source=NP1;DSN=NP1;UID=user;PASSWORD=pass;SDSN=Default;HST=ibslnpb1.sysplex.homedepot.com;PRT=4101;Initial Catalog=QA1MM;" 

    myConn = CreateObject("ADODB.Connection") 
    myCommand = CreateObject("ADODB.Command") 
    myConn.Open(DB_CONNECT_STRING) 
    myCommand.ActiveConnection = myConn 
    strSQL = "select * from QA1MM.STRSK_OH with ur;" 
    rs.Open(strSQL, myConn) 
    ListBox1.Items.Add(rs.GetRows(2)) 
    myConn.Close() 

Answer 1

GetRowsメソッドは、指定された番号を取得するために使用され

薄暗いDBCONSRT、QRYSTR文字列として...私は何ができるか.....オブジェクト[、]。配列として表示していますRecordsetからの行を取得し、結果のデータで配列を塗りつぶします。最初に項目を配列に追加した後、繰り返してリストボックスにデータを追加します。

DataGridの

rs.Open(strSQL, myConn) 
    While Not rs.EOF 

     ListBox1.Items.Add(rs(0).value) 

     rs.MoveNext() 
    End While 
myConn.Close() 

：？私はテーブル全体を表示したい。この後

Set DataGrid1.DataSource = rs 
DataGrid1.Refresh