Question

vb 如何取出数据库中某字段的所有数据存放在数组中?

vb 如何取出数据库中某字段的所有数据存放在数组中?

要求：用ADO

数据库名：
date.mdb
表名:
mytab
字段名：
user

存放在数组user()中

谢谢！
并且取得字段的行数。

Answer 1

dim user()
Dim db As Connection
Set db = New Connection
db.CursorLocation = adUseClient
db.Open "PROVIDER=Microsoft.Jet.OLEDB.3.51;Data Source=date.MDB;"
Set adoPrimaryRS = New Recordset
adoPrimaryRS.Open "select user from mytab", db, adOpenStatic, adLockOptimistic
redim user(adoPrimaryRS.RecordCount)
adoPrimaryRS.movefirst
i = 0
Do While Not adoPrimaryRS.EOF
user(i) = adoPrimaryRS("user")
i = i + 1
adoPrimaryRS.MoveNext
Loop