使用记录集填充列表框vb6

Question

我有一个从存储过程填充的记录集

    Set PesquisaTabela = cmd.Execute
    If Not PesquisaTabela.EOF Then
      txtUS.Text = PesquisaTabela.Fields(0)
    end if 

如何使用此记录集填充VB6中的fplist / listbox？

Answer 1

使用包含多行的记录集，您需要遍历行以填充列表框。而不是文本框，你不应该使用我想的列表框。

这样做的一种方法如下;

Dim iIndex as integer
If Not Recordset Is Nothing Then

  For iIndex = 0 To Recordset.Fields.Count - 1

    ListBox.Add(Recordset.Fields(iIndex).Column) 

  Next iIndex

End if

你也可以在记录集上使用While循环

 If Recordset.RecordCount > 0 Then
    Recordset.MoveFirst
       While Not Recordset.EOF
         ...

         Recordset.MoveNext
       Wend
 End if