R redlegend_126_c Unregistered / Unconfirmed GUEST, unregistred user! 2006-06-11 #1 我知道TEXT 导入到ACCESS比较快的方法是用SQL 那如何从ACCESS中导出为TEXT呢?并且可以自己设置导出的文本格式!!
V vvyang Unregistered / Unconfirmed GUEST, unregistred user! 2006-06-12 #3 uses ComObj; //db: 数据库名称(完整路径);tbl: 表名;bak: 备份文件名称(完整路径); //pwd: 数据库密码(可选,没有密码可以不管) procedure BackupMDB(const db, tbl, bak: WideString; const pwd: WideString = ''); var ac: OleVariant; begin ac := CreateOleObject('Access.Application'); try ac.OpenCurrentDatabase(db, False, pwd); ac.DoCmd.TransferText(2, Null, tbl, bak, True); finally if not VarIsEmpty(ac) then begin ac.Quit; ac := Unassigned; end; end; end;
uses ComObj; //db: 数据库名称(完整路径);tbl: 表名;bak: 备份文件名称(完整路径); //pwd: 数据库密码(可选,没有密码可以不管) procedure BackupMDB(const db, tbl, bak: WideString; const pwd: WideString = ''); var ac: OleVariant; begin ac := CreateOleObject('Access.Application'); try ac.OpenCurrentDatabase(db, False, pwd); ac.DoCmd.TransferText(2, Null, tbl, bak, True); finally if not VarIsEmpty(ac) then begin ac.Quit; ac := Unassigned; end; end; end;