Question

VB如何从一个文件夹里查询多个数据库

VB利用ADO，datagrid 怎么实现查询文件夹里面的所有数据库，最好有源码和讲解

Answer 1

Dim db As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim SQL As String
Private Sub Command1_Click()
db.Open "PROVIDER=microsoft.jet.oledb.4.0;persist security info =false;data source=AFC.mdb;Jet OLEDB:Database Password="
SQL = "select * from 表1"
rs.Open SQL, db, 1, 3
Text1.Text = rs.RecordCount
rs.Close: db.Close
Set rs = Nothing
Set db = Nothing
End Sub
'注意，表1更改为你需要的表

Answer 2

Set Rs1 = Server.CreateObject("ADODB.Recordset")
Set Rs2 = Server.CreateObject("ADODB.Recordset")
sql1 = "select * From [表一]"
sql2 = "select * From [表二]"
Rs1.Open sql1,conn,1,1
Rs2.Open sql2,conn,1,1