怎样用VBA取得Access数据库中的查询结果

对于这种写法不是很了解，如果用ado+sql可以帮到你。

Sub bb()

Dim cnn As ADODBConnection

Dim rs As ADODBRecordset

Set cnn = New ADODBConnection

mydata = ThisWorkbookPath & "\123mdb"

With cnn

Provider = "microsoftjetoledb40"

Open mydata

End With

Set rs = New ADODBRecordset

Sql = "select Flux_Amount from Mytable"

rsOpen Sql, cnn, 3, 2

ReDim arr(rsRecordCount)

For i = 0 To rsRecordCount - 1

arr(i) = rsFields("Flux_Amount")

rsMoveNext

Next i

MsgBox Join(arr, ",")

End Sub

应该说这种用法比较主流，复制代码到vbe，然后引用ado 28,将access与excel文件放在一个文件夹，将数据库名变动一下，就可以测试了。（要改为同你的access,表名，字段名一致）

你可以用sql语句

insert

into

表名(字段1,字段2)

values（'字段1内容','字段2内容'）

可以用vba和access链接后

用update功能

rstaddnew

'添加的内容

rstupdate

Set conn = New ADODBConnection

Set rs = New ADODBRecordset

connOpen "Provider=MicrosoftJetOledb40;Persist Security Info = False;extended properties='Excel 80;HDR=YES;IMEX=0';Data Source=“各科成绩表xls"

If connState = adStateOpen Then

sSql = "select from [sheet1$] where 姓名 like '" & str1 & "' and 成绩 like '" & str2 & "'

rsOpen sSql, conn, 1, 1

If rsBOF And rsEOF Then

。。。。。。

首先用VBA控件画好窗体，连接成绩表，再执行相应的 *** 作。。。

如下即可：

Private Sub Text2_Change()

    meChild75SourceObject="数据表99规范列表"

    with meChild75form

        Filter="规范名称 like '" & Text2Value & "'"

        FilterOn = True

    end with

End Sub

以上就是关于怎样用VBA取得Access数据库中的查询结果全部的内容，包括:怎样用VBA取得Access数据库中的查询结果、利用VBA从Access数据库中查找数据、如何在excel里用vba编程制作一个简单的数据库等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！