Dim cnn as adodb.connection
Dim res as adodb.recordset
Dim strCnn,strTemp as string
Set cnn = New ADODB.Connection
strCnn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=s.mdb;Persist Security Info=False"
cnn.Open strCnn
strTemp="select * into d.sTable from sTable"
(如果在d.mdb中已存在sTable,那么如果要将数据追加到这个表中可用下面语句
strTemp="insert into d.sTable select * from sTable"
否则就要用"drop table d.sTable" 删除掉原表,然后再执行"select * into d.sTable from sTable")
cnn.execute strTemp
运行后便将s.mdb中的stable导入到了d.mdb中 表名为sTable
注:判断表是否已存在可用下面方法:
Dim rstSchema as adodb.recordset
Set rstSchema = cnnMingCe.OpenSchema(adSchemaTables)
TableExist = False
Do Until rstSchema.EOF
If UCase(rstSchema!TABLE_NAME) = UCase(Trim(要查询的表名)) Then
TableExist=true '表存在
Exit Do
End If
loop
rstSchema.MoveNext
Loop
rstSchema.Close