数据导入导出问题！

Question

谁有实例代码，delphi+access,数据库数据导成文本，文本导入数据库。
类似代码也可。

Answer 1

到 HTTP://WOLFSOFT.NUGOO.COM 上去有个商场管理

Answer 2

导成文本:procedure TForm1.N5Click(Sender: TObject);
var
str:string;
filename:textfile;
i,j,n:integer;
p:string;
begin
  if SaveDialog2.Execute then
  begin
  str:=SaveDialog2.FileName;
  assignfile(filename,str);
  if fileexists(str) then DeleteFile(SaveDialog1.FileName);
    try
    Screen.Cursor:=crHourGlass;
    rewrite(filename);
    p:='~';//分隔符
    str:='';
    n:=0;//query字段N序号
    Query1.First;
    for n:=0 to Query1.FieldCount -1  do
          begin
          str:=str+Query1.fields[n].DisplayLabel+p;
          end;
    writeln(filename,str);
        n:=0;//query字段N序号
        str:='';
    while not Query1.Eof do begin
      for n:=0 to Query1.FieldCount -1 do
        begin
          str:=str+Query1.fields[n].AsString+p;
        end;
      writeln(filename,str);
      str:='';
      Query1.Next;
      end;
  except
  ShowMessage('写文件时产生错误。可能是该文件已被其他程序打开,或系统错误。');
  closefile(filename);
  END;
  Screen.Cursor:=crdefault;
  Application.MessageBox('操作在没有警告的情况下正常结束！','完成',mb_ok+mb_iconinformation);
  closefile(filename);
  end;
end;

Answer 3

这么麻烦!
用SavetoFile和LoadFromFile两个函数就可以了