vb中 将id存入数组

Question

vb中怎么将数据库中表中的id字段存到数组里 初学者 希望各位帮助下 
fault_reason_manage表名 怎么样循环存到数组里  id是自动增长列
然后怎么判断数组的第一条还有最后一条记录

Answer 1

既然ID是自动增长列，何必存？
移到下条记录：RecordSet.MoveNext 
RecordSet.BOF、RecordSet.EOF判断记录指针在头/尾

Answer 2

读取表时，先判断RecordSet.BOF、RecordSet.EOF这两个值是否为真，若其中有一个为真，则您查询的记录不存在，若全都为假，表示有记录，则将记录移到下第一条记录RecordSet.MoveFirst，然后要读取每一条记录时就用RecordSet.MoveNext来读取就号了，id可以不用理他，因为是自动增长的

Answer 3

Dim rs As New ADODB.Recordset
Dim arrTmp() As Integer
Dim strTmp As String
rs.Open "select id from fault_reason_manage", Cnn, adOpenStatic, adLockReadOnly
If rs.RecordCount > 0 Then
rs.MoveFirst
For i = 0 To rs.RecordCount - 1
    strTmp = strTmp & "/" & rs.Fields(0).Value
    rs.MoveNext
Next
rs.Close
Set rs = Nothing
strTmp = Right(strTmp, Len(strTmp) - 1)arrTmp = Split(strTmp, "/")
Debug.Print arrTmp(LBound(arrTmp)) '数组第一条
Debug.Print arrTmp(UBound(arrTmp)) '数组最后一条