如何把字段的数据在控件里显示出来,如MSFlexGrid1，DataGrid1。

[gzlpyb]

rs.Open "select * from test", cn, adOpenDynamic, adLockOptimistic

VB+ORACLE8I，建立连接并打开后如何把字段的数据在控件里显示出来,如MSFlexGrid1，DataGrid1。（用文本框只显示一条，要按下一条逐条浏览，不直观。），控件一边要设置吗？

[fengyuyun]

With MSFlexGrid1
.Cols = 7
.Rows = 1
.TextMatrix(0, 0) = "文件路径"
.TextMatrix(0, 1) = "出入标志"
.TextMatrix(0, 2) = "通道"
.TextMatrix(0, 3) = "起始时间"
.TextMatrix(0, 4) = "结束时间"
.TextMatrix(0, 5) = "通话时间"
.TextMatrix(0, 6) = "ID 号"

MSFlexGrid1.FixedCols = 8
'设置单元大小
.ColWidth(0) = 2500
.ColWidth(1) = 800
.ColWidth(2) = 500
.ColWidth(3) = 1200
.ColWidth(4) = 1200
.ColWidth(5) = 1200
.ColWidth(6) = 800

Do While Not rs.EOF
.Rows = .Rows + 1
.TextMatrix(.Rows - 1, 0) = rs.Fields(6)
.TextMatrix(.Rows - 1, 1) = rs.Fields(1)
.TextMatrix(.Rows - 1, 2) = rs.Fields(2)
.TextMatrix(.Rows - 1, 3) = rs.Fields(3)
.TextMatrix(.Rows - 1, 4) = rs.Fields(4)
.TextMatrix(.Rows - 1, 5) = rs.Fields(5)
.TextMatrix(.Rows - 1, 6) = rs.Fields(0)
rs.MoveNext
Loop
End With
这样就可以了

[gzlpyb]

用set datagrid1.datasource=rs,我试了可以。