做个数据库备份。BDE连接数据库。要求把MySQL里的数据表和数据(并非全部有条件设置)导出存放在一个文件夹,并打包成压缩文件。导出的表全是DBF格式的。
做过的朋友给个方法,可以的话写下具体的,或者留个即时联系方式。
我现在脑子有点乱!

解决方案 »

  1.   


    procedure TForm1.Button2Click(Sender: TObject);
    begin
      ADOQuery1.Close;
      ADOQuery1.ConnectionString := 'Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=master';
      try
        with ADOQuery1 do
        begin
          Close;
          SQL.Clear;
          SQL.Add('restore database PeoMan from disk = ''c:\back1.bak''');
          ExecSQL;
        end;
        ShowMessage('还原成功。');
      except
        On e: exception do
        ShowMessage('还原失败。');
      end;
    end;procedure TForm1.Button3Click(Sender: TObject);
    begin
      ADOQuery1.Close;
      ADOQuery1.ConnectionString := 'Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=PeoMan';
      try
        with ADOQuery1 do
        begin
          Close;
          SQL.Clear;
          SQL.Add('backup database PeoMan to disk = ''c:\back1.bak''');
          ExecSQL;
        end;
        ShowMessage('备份成功。');
      except
        On e: exception do
        ShowMessage('备份失败。');
      end;
    end;
      

  2.   

    导出的是DBF格式吗?也不是有选择的备份数据表 吧!?