access:
procedure tdatabackupform.bitbtn1click(sender: tobject);
begin
if messagedlg('備份資料庫將重寫以前的資料備份。'+#13+#10+
''+#13+#10+
'你確定要備份資料庫嗎？',mtconfirmation,
[mbyes,mbno], 0) = mrno then exit;
if trim(edit1.text)='' then
begin
messagedlg('請選擇資料庫備份路徑！',mtinformation,[mbyes],0);
edit1.setfocus;
exit;
end;
path:=false;
progressbar1.visible:=true;
try
begin
dir:=dir+'\data\';//獲取源資料庫所在目錄
createdir(pchar(edit1.text));//建立備份目錄
//備份資料表（cl）
copyfile(pchar(dir+'cl.db'),pchar(edit1.text+'\'+'cl.db'),false);
copyfile(pchar(dir+'cl.fam'),pchar(edit1.text+'\'+'cl.fam'),false);
copyfile(pchar(dir+'cl.px'),pchar(edit1.text+'\'+'cl.px'),false);
copyfile(pchar(dir+'cl.tv'),pchar(edit1.text+'\'+'cl.tv'),false);
//備份資料表（clcl）
copyfile(pchar(dir+'clcl.db'),pchar(edit1.text+'\'+'\clcl.db'),false);
copyfile(pchar(dir+'clcl.fam'),pchar(edit1.text+'\'+'\clcl.fam'),false);
copyfile(pchar(dir+'clcl.px'),pchar(edit1.text+'\'+'\clcl.px'),false);
copyfile(pchar(dir+'clcl.tv'),pchar(edit1.text+'\'+'\clcl.tv'),false);
//備份資料表（pz）
copyfile(pchar(dir+'pz.db'),pchar(edit1.text+'\'+'\pz.db'),false);
copyfile(pchar(dir+'pz.fam'),pchar(edit1.text+'\'+'\pz.fam'),false);
copyfile(pchar(dir+'pz.px'),pchar(edit1.text+'\'+'\pz.px'),false);
copyfile(pchar(dir+'pz.tv'),pchar(edit1.text+'\'+'\pz.tv'),false);
//備份資料表（users）
copyfile(pchar(dir+'users.db'),pchar(edit1.text+'\'+'\users.db'),false);
copyfile(pchar(dir+'users.fam'),pchar(edit1.text+'\'+'\users.fam'),false);
copyfile(pchar(dir+'users.px'),pchar(edit1.text+'\'+'\users.px'),false);
copyfile(pchar(dir+'users.tv'),pchar(edit1.text+'\'+'\users.tv'),false);
//備份資料表（ylfb）
copyfile(pchar(dir+'ylfb.db'),pchar(edit1.text+'\'+'\ylfb.db'),false);
copyfile(pchar(dir+'ylfb.fam'),pchar(edit1.text+'\'+'\ylfb.fam'),false);
copyfile(pchar(dir+'ylfb.px'),pchar(edit1.text+'\'+'\ylfb.px'),false);
copyfile(pchar(dir+'ylfb.tv'),pchar(edit1.text+'\'+'\ylfb.tv'),false);
thread.execute;//執行執行緒
//設定介面
shelltreeview1.visible:=false;
databackupform.height:=312;
messagedlg(#13+#10+' 資料庫備份成功！',mtinformation,[mbyes],0);
progressbar1.visible:=false;
progressbar1.position:=0;
end;
except
shelltreeview1.visible:=false;
databackupform.height:=312;
messagedlg(#13+#10+'資料庫備份失敗！' ,mtwarning,[mbyes],0);
end;
path:=true;
shelltreeview1.visible:=false;
databackupform.height:=312;
bitbtn3.caption:='選擇目錄';
end;
sql方式
多種資料庫的處理方式
1 oracle8 8i 9i資料庫 thin模式 載入驅動 class.forname oracle.jdbc.driver.oracledriver string url jdbc oracle thin localhost 1521 orcl orcl為資料庫的sid string user ...
MySQL多種需求的備份方式
備份工具mysqldump 1 直接使用命令mysqldump可以檢視使用格式 usage mysqldump options database tables or mysqldump options databases options db1 db2 db3.or mysqldump option...
多種資料庫操作
using system using system.data using system.configuration using system.linq using system.web using system.web.security using system.web.ui using syste...