Question

vb新手求助

如何将数据库中信息赋值给数组？
vb与access数据库连接，数据库中有学生表，学生表中有学号，姓名，性别，年龄四个字段，如何将学生的学号，姓名，性别赋值给一个数组
（注意：数据库中学生的数量是不定期变化的）

Answer 1

引用DAO3.6
dim a() as string
dim b() as string
dim c() as string
dim d() as string '数组声明
dim dt as database
dim rs as recordest
dim i as variant
set dt = opendatabase("数据库地址") '打开数据库
set rs = dt.openrecordest("学生表",dbopendynaset) '打开表
do until rs.eof ‘当指针在最后一行时退出循环
a(i) = rs("学号")
b(i) = rs("姓名")
c(i) = rs("性别")
d(i) = rs("年龄")
rs.movenext '指针向下移
i = i + 1
rs.close '关闭表
dt.close '关闭数据库
loop

Answer 2

用循还赋值呀

Answer 3

Dim student [100,4] As String
Dim Conn As New ADODB.Connection
Dim Rs As New ADODB.Recordset
Dim i,j As integer

Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\mydb.mdb"
'请将数据库名及路径换成你的实际数据库名及路径
sql = "Select * From [学生表] "
Rs.Open sql, Conn, 1, 3
If Rs.EOF Then
MsgBox "没有学生记录"
Else
i=1
j=rs.RecordCount
ReDim s(j,4) as String

While ( NOT rs.eof )
s[i,1]=rs.Field(0)
s[i,2]=rs.Field(1)
s[i,3]=rs.Field(2)
s[i,4]=rs.Field(3)
rs.movenext
i=i+1
wend
End If

以上是完成所需功能的基本代码，按照自己需要修改一下，有问题继续交流，祝顺利

追问

学生数量是变化的，不能确定就是100啊