Dim db As DAO.Database Dim tbl As DAO.TableDef On Error Resume Next Set db = DBEngine.CreateDatabase(mdbFullFile, dbLangGeneral) If Err.Number = 3204 Then Set db = Workspaces(0).OpenDatabase(mdbFullFile) End If Set tbl = db.CreateTableDef("Temp") tbl.Connect = "Text;database=c:\" tbl.SourceTableName = "temp#txt" db.TableDefs.Append tbl db.TableDefs.Delete "NewTempTable" db.Execute "select temp.* into NewTempTable from temp" db.TableDefs.Delete tbl.Name db.Close Set tbl = Nothing Set db = Nothing
Dim tbl As DAO.TableDef On Error Resume Next
Set db = DBEngine.CreateDatabase(mdbFullFile, dbLangGeneral)
If Err.Number = 3204 Then
Set db = Workspaces(0).OpenDatabase(mdbFullFile)
End If
Set tbl = db.CreateTableDef("Temp")
tbl.Connect = "Text;database=c:\"
tbl.SourceTableName = "temp#txt"
db.TableDefs.Append tbl
db.TableDefs.Delete "NewTempTable"
db.Execute "select temp.* into NewTempTable from temp"
db.TableDefs.Delete tbl.Name
db.Close
Set tbl = Nothing
Set db = Nothing
照着格式导入