Отображение данных в Listbox в VB

Question

Я хочу отображать данные из базы данных в Listbox ... Вот мой код, он не работает. В Listbox это отображение в качестве объекта [,]. Массив ..... Что я могу сделать ...

Dim DBCONSRT, QRYSTR As String

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 используется для получения заданного числа строк из набора записей и для заполнения массива результирующими данными. поэтому решение состоит в том, чтобы сначала добавить элементы в массив, а затем итерации, чтобы добавить данные в список.

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

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

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

Для DataGrid:

Set DataGrid1.DataSource = rs 
DataGrid1.Refresh