VB 数据库 以及VBA鈭尖埣急100分

来源：百度知道 编辑：UC知道 时间：2024/06/06 09:40:02
我有两个问题，请尽量给出可以执行的代码，谢谢…都用VB
问题一：我现在有一个access的数据库，里面有n个表，我要从input这个表中读取num字段下的全部内容，但是一共多少个数据不知道（最多100）…放入数值变量（数组）里…
问题二：我有一个名为2.doc的WORD文件…在C盘根目录下，我还有一段录制好的宏，用vb做一个程序，使它自动打开文件并执行宏…

1.
首先在【工程】-【引用】中添加 Microsoft ActiveX Data Objext 2.x 引用
Private Sub Command1_Click()
Dim conn As New ADODB.connection
Dim rs As New ADODB.Recordset
Dim sql As String
Dim connstr As String
Dim dbPath As String
Dim tableName As String
Dim field1 As String
Dim A()
dbPath="d:\A.mdb" '数据库路径
tableName="input" 'input-表名
field1="num" 'num-你需要读取的字段名
connstr = "provider=microsoft.jet.oledb.4.0;data source=" & dbPath
sql = "select " & field1 & " from " & tableName
conn.open (connstr)
rs.open sql, conn, 1, 1
If rs.recordcount > 0 Then
rs.MoveFirst
For i=1 to rs.recordCount
Redim Preserve A(i)
A(i)=rs(field1) '放入数组A
rs.MoveNext
Next
rs.Close
conn.Close
Set rs = Nothing
Set conn = Nothing
End Sub

2.将写好的宏直接拿到VB中执行就可以了。
首先在【工程】-【引用】中