高手请进.....

Question

DELPHI没用过
调用oracle的exp与imp吧，用批处理文件不错

Answer 1

请参考：
http://expert.csdn.net/Expert/topic/2042/2042629.xml?temp=.4393885

Answer 2

我这里有一段程序代码，但是adoconnection1.connectionString:='.....'中的内容不是很清楚，有谁知道吗？备份
procedure TForm1.Button1Click(Sender: TObject);
begin
  if SaveDialog1.Execute then
  begin
    try
     adoconnection1.Connected:=False;
     adoconnection1.ConnectionString:='Provider=SQLOLEDB.1;Persist Security 
       Info=False;User ID=sa;Initial Catalog=master;Data Source=FRIEND-YOFZKSCO;'+
          'Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;Works
           tation ID=FRIEND-YOFZKSCO;Use Encryption for Data=False;Tag   
           with column collation when possible=False';
     adoconnection1.Connected:=True;     with adoQuery1 do
       begin
         Close;
         SQL.Clear;
         SQL.Add('Backup DataBase sfa to disk ='''+Savedialog1.FileName+'''');
         ExecSQL;
       end;
    except
      ShowMessage('±?·Y꧰ü');
      Exit;
     end;
  end;
  Application.MessageBox('1§?2?ú￡?êy?Y±?·Y3é1|','ìáê?',MB_OK + 
     MB_ICONINFORMATION);
end;恢复：
procedure TForm1.Button2Click(Sender: TObject);
begin
 if OpenDialog1.Execute then
   begin
     try
      adoconnection1.Connected:=false;
      adoconnection1.ConnectionString:='Provider=SQLOLEDB.1;Persist Security 
         Info=False;User ID=sa;Initial Catalog=master;Data Source=FRIEND- 
           YOFZKSCO;'+'Use Procedure for Prepare=1;Auto Translate=True;Packet  
           Size=4096;Workstation ID=FRIEND-YOFZKSCO;Use Encryption for 
           Data=False;Tag with column collation when possible=False';
       adoconnection1.Connected:=true;       with adoQuery1 do
       begin
         Close;
         SQL.Clear;
         SQL.Add('Restore DataBase sfa from disk='''+opendialog1.FileName+'''  ');
         ExecSQL;
       end;
     except
       ShowMessage('???′꧰ü');
       Exit;
     end;
  end;
  Application.MessageBox('1§?2?ú￡?êy?Y???′3é1|','ìáê?',MB_OK + 
      MB_ICONINFORMATION);
end;