1.例如:要取表的第i行,j列数据 Private Function GetData(i As Integer, j As Integer) As Variant rs.MoveFirst Dim StrRowData As Variant StrRowData = rs.GetRows(i) GetData = StrRowData(j, i - 1) End Function 不知这样行不行!
如果你仅仅是读取记录: set rs = cnn.execute("select * form yourDB") 这样打开的记录集可以自由移动记录指针,而且再次打开前不必close。
把rs重设了或重取一个能移动指针的rs.
2.cdate
format在处理日期的时候也比较有用
Private Function GetData(i As Integer, j As Integer) As Variant
rs.MoveFirst
Dim StrRowData As Variant
StrRowData = rs.GetRows(i)
GetData = StrRowData(j, i - 1)
End Function
不知这样行不行!
set rs = cnn.execute("select * form yourDB")
这样打开的记录集可以自由移动记录指针,而且再次打开前不必close。