想把数据库表中的记录全都检索到listbox中

想把数据库表中的记录全都检索到listbox中，怎么做，给出代码   ，谢谢 问题点数：50、回复次数：2Top

1 楼cbgn（小玉）回复于 2005-06-24 10:19:12 得分 0

用ADODBTop

2 楼haipingma（今天你过得快乐吗?）回复于 2005-06-24 10:29:52 得分 50

Dim   cn   As   New   ADODB.Connection  
  Dim   rs   As   New   ADODB.Recordset  
  Dim   strList   As   String  
  Private   Sub   Form_Load()  
                  cn.CursorLocation   =   adUseClient  
                  cn.Open   "Provider=SQLOLEDB.1;Persist   Security   Info=False;User   ID=sa;Initial   Catalog=Northwind;Data   Source=(local)"  
                  rs.Open   "select   *   from   Orders",   cn,   adOpenKeyset,   adLockReadOnly  
                  Dim   i   As   Integer  
                  If   rs.RecordCount   >   0   Then  
                        rs.MoveFirst  
                        Do   Until   rs.EOF  
                              strList   =   ""  
                              For   i   =   0   To   rs.Fields.Count   -   1  
                                      strList   =   strList   &   vbTab   &   rs.Fields(i).Value  
                              Next  
                              List1.AddItem   strList  
                              rs.MoveNext  
                        Loop  
                  End   If  
  End   SubTop

相关问题

• 检索
• 数据库
• strlist
• 记录
• rs
• 想把数据库表
• 检索到listbox
• cn
• dim
• sub

• 帖主：cbgn
• haipingma

• Visual Basic类图书
• Visual Basic类源码下载