| 发表于:2007-12-13 15:24:012楼 得分:15 |
dim strsql as string dim rs as new adodb.recordset dim conn as new adodb.connection dim i as integer '打开conn省略 strsql="select a from table" rs.open strsql,conn,3,3 combol.clear for i=1 to rs.recordcount combox.additem trim(rs(0) &"") rs.movenext next i | | |
|