再次求助 沈军 老师:
下面是我网上找到的链接另一个 AAAAAA.mde 数据库表的代码,经运行没问题。那么如果是要导入 AAAAAA.mde 数据库中的表,其代码又该怎样写呢?谢谢!!!
Private Sub Ljsjk_Table()
Dim rs, conn
Set rs = CreateObject("ADODB.Recordset")
Set conn = CreateObject("ADODB.Connection")
conn.Open "provider=microsoft.jet.oledb.4.0;Jet OLEDB:Database Password=111111;data source=" & CurrentProject.Path & "\AAAAAA.mde"
Set rs = conn.OpenSchema(adSchemaTables)
Do While Not rs.EOF
Call Link2MDB(CurrentProject.Path & "\AAAAAA.mde", 111111, rs!TABLE_NAME, rs!TABLE_NAME)
rs.MoveNext
Loop
rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing
End Sub
Sub Link2MDB(sDBPath$, pwd$, sTable$, dTable$)
On Error Resume Next
Dim tbldef As TableDef
Set tbldef = CurrentDb.CreateTableDef(dTable)
tbldef.Connect = "MS Access;PWD=" & pwd & ";Database=" & sDBPath
tbldef.SourceTableName = sTable
CurrentDb.TableDefs.Append tbldef
End Sub