没有什么好的办法,只能定义一个2维数组一项一项往里写比如字段数为lngFieldCount
Dim arrRecord(lngFieldCount - 1,0),i,j
i = 0
Do While Not rs.Eof
Redim Preserve arrRecord(lngFieldCount - 1,i)
For j = 0 To lngFieldCount - 1
arrRecord(j,i) = rs(j)
Next
rs.moveNext
Loop
Dim arrRecord(lngFieldCount - 1,0),i,j
i = 0
Do While Not rs.Eof
Redim Preserve arrRecord(lngFieldCount - 1,i)
For j = 0 To lngFieldCount - 1
arrRecord(j,i) = rs(j)
Next
rs.moveNext
Loop
解决方案 »
- VB6.0 怎么获取DataGrid的选中行行号
- 请问高手,如何用vb获得一个单页pdf文件的页面大小啊?比如6.74*9.92英寸
- 关于c/s传送消息系统的设计!!
- 对象属性遍历
- 急购买稳定的vpn软件有的速联系!!!!
- 在线等!!!!如何删除TreeView控件中选中的结点?????
- 为什么 会提示 找不到 工程或库
- VB中如何向MEDIA PLAYER 9。0 的控件中添加播放列表
- 如果在vb中使用SQL server 中analysis services的建立数据挖掘方案
- 为什么会是这样!还望高手指点迷津
- 有关winsock的两个重要bug
- 高人请指点,如何得到指定窗口的状态条文字?(VB),高手看看
a = rs.GetRows()