如何得到一个Recordset的某一列的所有值。

Question

dim rs as adodb.Recordset 
dim strSql as stringset rs= new adodb.Recordset
strSql = "select name, sex, age from personlist"
rs.open strSql,db,adOpenDynamic,adLockReadOnly要分别得到各列的值存到相应的子集中。

Answer 1

do while not rs.eof
    rs.fields("name").value
    rs.fields("sex").value
    rs.movenext
loop这样就可以得到了。

Answer 2

没有那个必要吧？如果你需要 3 个记录集，可以：
Set rst2 = rst1.Clone
......

Answer 3

楼上说的clone, 得到的rs1与rs2是相同的复制。而我要得到的rs2只是rs1中含有"name"一列的子集。也就是说，我需要的子集rs2只包含一列，为rs1.name.