如何把txt文件导入到access数据库,希望各位大虾告诉我,小弟感之不尽,定会给与高分

解决方案 »

  1.   

    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
      

  2.   

    把access数据库导出成txt看看格式
    照着格式导入