vb里，怎么用ado读取mdb数据库

'连接字串

Adodc1ConnectionString = "Provider=MSDASQL1;Password=密码，无密码时为空;Persist Security Info=True;Data Source=MS Access Database;Initial Catalog="yourDatabasePathmdb"

'开始查询

Adodc1RecordSource = "select from table"'这里是你的sql语句

Adodc1Refresh

debugprint Adodc1RecordsetFields(你的字段名或者字段index)

当Adodc1Recordset记录条数为多条时还可通过MoveFirst,movenext,moveprevious,movelast==来定位，定位时需要检查Bof或EOF属性看是否已到第一笔或已到最后一笔。

Dim oExcel As Object

Dim oBook As Object

Dim oSheet As Object

Set oExcel = CreateObject("Excelapplication")

Set oBook = oExcelworkbooksAdd

Set oSheet = oBookworksheets(1)

oSheetName = "新的工作表的名称"

VB还是VBA？如果是VBA，就可以这样

Public Sub aa()

For i = 1 To SheetsCount

Cells(i, 1) = Sheets(i)Name

Next i

End Sub

以上输出到当前面的第一列

VB6的话，最简单的方法，添加 Data 控件（工具箱里就有），

设置 Data 控件的：

DatabaseName 属性 ------ 连接数据库文件

RecordSource 属性 ------ 连接数据表

编写代码：

Data1Refresh ----- 刷新并返回记录集

Text1text = Data1RecordsetFields("配置")

Text2text = Data1RecordsetFields("任务")

Text3text = Data1RecordsetFields("数量")

Text4text = Data1RecordsetFields("难度")

VB读取数据库并显示出来的方法可参考下面用控件的实现方法：

ACCESS数据库，用VB6里的Data控件，选中它，设置属性：

DatabaseName 属性：连接到数据库文件

RecordSource 属性：连接数据表（可以用Select语句返回记录集）

然后使用它的：data1RecordsetFields(“字段名”)，就可以返回获得你说的内容了。

以上就是关于vb里，怎么用ado读取mdb数据库全部的内容，包括:vb里，怎么用ado读取mdb数据库、vb 如何获取当前的工作表的名称、VB如何获取EXCEL中所有的表名等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！