[求助]由Access数据库导入VB数组
偶是菜菜鸟，有一个问题想请教各位大侠：现在有一个用Access做的数据库文件db1.mdb，里面有一个表为“数据表”。现在想把这个“数据表”里的数据导入VB中的二维数组变量A(2,10)中。请问如何实现？谢谢！
这个问题前面也有人问的,我自己也做过,具体步骤如下:
1 先打开数据库,应该会吧!
Dim i%,j%,A!(),m%,n%
Dim mlink As String, mpath As String, macc As String
Dim Cnn As New ADODB.Connection
Dim Rst As New ADODB.Recordset
mlink = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= db1.mdb"
macc = "select * from 数据表"
Cnn.Open mlink
Set Rst = New ADODB.Recordset
Rst.Open macc, Cnn, adOpenKeyset, adLockOptimistic
2 获得表的字段数和记录数
Rst.MoveLast
i = Rst.RecordCount - 1
j = Rst.Fields.Count - 1
3 利用循环赋值
ReDim A(i, j)
For m = 0 To i
If m > 0 Then
Rst.MoveNext
If Rst.EOF Then
Rst.MoveLast
End If
Else
Rst.MoveFirst
End If
For n = 0 To j
A(m, n) = Rst.Fields(n)
Print A(m, n);
Next n
Print
Next m
Cnn.Close
基本上不管你的表有多少字段和记录都可以实现,包括你的A(2,10)
