?? unit1.pas
字號:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
ADOCommand1: TADOCommand;
ADOConnection1: TADOConnection;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
adocommand1.CommandText:='backup database st to disk=N''f:\st.bak''';
adocommand1.Execute;
//BACKUP DATABASE [數據庫名] TO DISK = N‘F:\data\數據庫備份‘ WITH NOINIT , NOUNLOAD , NAME = N‘ 數據庫 備份‘, NOSKIP , STATS = 10, NOFORMAT注意:需要修改的地方,數據庫名,DISK=(這里需要填寫路徑和你的數據庫備份的名
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
adoconnection1.Close;
ADOCommand1.CommandText:='use Master';
ADOCommand1.Execute;
adocommand1.CommandText:='RESTORE DATABASE st FROM DISK=''f:\st.bak'' WITH RECOVERY';
adocommand1.Execute;
ShowMessage('數據庫還原成功!');
Try
ADOConnection1.Connected:=True;
Except
ShowMessage('無法重新接連數據庫!,系統即將退出!');
Application.Terminate;
End;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -