اموزش Backup and restore

سطح مقاله :متوسط
سیستک عامل : تست شده در ویندوز اکس پی

Backup گیری تو دلفی
این کد Sql ای است که تو اس کیو ال تستش میکنیم :
use master

کد:

---

backup database pro to disk='c:\aa.dat'

---

حالاچرا دیتابیس مستر رو یوز میکنیم بهدلیل اینه که ممکنه اصلا" دیتابیس pro وجود نداشته که بخوایم pro را یوز کنیم
اینم نمونه تو دلفی که من پیاده کردم :

کد:

---

Procedure tform1.button1click)
Sender:tobject)
begin
if MessageDlg('do you want do?',mtWarning,[mbyes,mbno],0)=mryes then
begin
try
ADOCommand1.CommandText :='backup database pro to disk='+QuotedStr('c:\Pro.dat');
ADOCommand1.Execute ;
MessageDlg('successful backup',mtInformation,[mbOK],0);
except
MessageDlg('Sorry Cannot backup database',mtError,[mbOK],0);
Abort();
end;

---

نکات :
1-بجای پیغامهای انگلیسی فارسی تایپ کنید (اگه لغات انگلیسی غلط است به بزرگواری خود ببخشید) d:
-------------------------------------------------------------------------------------------------------
Restore کردن دیاتابیس تو دلفی
این کد Sql ای است که تو اس کیو ال تستش میکنیم :

کد:

---

restore database project1 from disk='c:\back pro.dat'

---

اینم نمونه تو دلفی که من پیاده کردم :

کد:

---

WITH ADOCommand1 DO
  BEGIN
    CommandText:='create database PRO';
    Execute;
  end;
ShowMessage('پايگاه داده ساخته شد');
----------------------------------------
with ADOCommand1 do
  begin
  CommandText:='RESTORE DATABASE project1 FROM DISK='+QuotedStr (s);
  Execute;
  end;
ShowMessage('عمليات نصب انجام شد');

end;

---

نکات: 1- اینا رو من خودم تستش کردم و هیچمشکلی نداره . اگر دستورات اشتباه بگیدتا با هم درستش کنیم!؟
2-دستورات فوق کاملا" واضح است (چون سطح مقاله متوسط است پس معلومات قبلی بدردتان میخوره)

همه دست به دست هم بدید تا بخش دلفی رو رونق بدیم(راستی صلوات بر محمد وآل محمد فراموش نشود)

منتظر مقالات خوب و اموزشهای مفید از طرف کاربران محترم برنامه نویس هستیم(من خودم 2 یا 3 تای دیگه رو دارم اماده میکنم)

هیچ کی نظری نداره یا من مبتدی هستم!!!!؟

سلام

من بايد از پشتيبان گيري و بازيابي توي پروژم استفاده کنم.

استادم راهنماييم کرده کدهاي زير رو واسم فرستاده اما من نميفهمم اين کدها چه کارايي انجام ميدن که بخام تو پروژم استفاده کنم.

مثلا نميدونم اون آدرسي که جلوي dataنوشته چي هست و من چه آدرسي بايد بدم.

مثلا خط آخرش يعني چي؟ اونجا که نوشته cmdUnknown از کجا اومده؟

اگه اين قطعه کد رو واسم توضيح بديد ممنون ميشم.آخه از پروژم همين قسمتش مونده بايد زود کامل کنم.

کد:

var

Data , x ,bkadd: string ;

------------------------------------

Dm1.Adotable1.close ;

bkadd :=DirectoryListBox1.Directory +Edit1.Text ;

IF NOT DirectoryExists(bkadd) THEN

CreateDir(bkadd);

Data :='c:\lib\library.mdf';

x:= 'use ['+Data+'] ;';

x :=x+ 'BACKUP DATABASE [' + Data +' ] ';

X:= x+ 'TO DISK = N'''+bkadd +'\Library.BAK ''';

X:= X+' WITH NOFORMAT,NOINIT,NAME = N'''+ Edit1.Text +'-Full Database Backup''';

X:= X+', SKIP,STATS = 10;';

DM1.Con1.Execute(x,cmdUnknown,[eoExecuteNoRecords]);

X: متغيير رشته اي است.
Data: نام کامل بانک در سرور پايگاه داده.
Bkadd: آدرس محل فايل پشتيبان.
Edit1.text: کادر متني است که کاربر نام پوشه فايل هاي پشتيبان است.

سلام
واقعا ممنون جواب گرفتم.