آموزش طریقه ساخت datbase در sql و restore کردن فایل backup توسط یک برنامه دلفی!
سلام
(براي ديدن نسخه جديد restore كردن به صفحه دوم برويد و يا لينك زير را ببنيد:
https://barnamenevis.org/showth...052#post624052
و گرفتن backup از پايگاه داده در sql توسط دلفي لينك زير را
https://barnamenevis.org/showthread.php?t=32985
اين پرانتز در تاريخ 9 آبان 87 اضافه شد)
به این روش می تونید با استفاده از backup ای را که database تون تو sql گرفتید. توسط یک برنامه دلفی ساده databse را در sql در كامپيوتر ديگري ساخته و توسط همین برنامه با تمام table های دورنش و اطلاعات آنها restore کنید
یک adoconneciton روی فرم بگذارید! سپس روی سه نقطه خصوصیconncetion string کلیک کرده. build کلیک کرده. microsoft OLE DB Provider for SQL Server را ناتخاب کرده و next بزنید و use windows Nt را انتخاب کنید و next بزنید! test conection و ok و ok
سپس یک adocommand روی فرم بگذارید. و خصوصیت connection آنرا را برابر adoconnection1 انتخاب کنید.
یک button برای ساخت database ویکی برای restore در نظر بگیرید!
در رویداد کلیک buuton اول این کد را بنویسید!
procedure TForm1.Button1Click(Sender: TObject);
begin
with ADOCommand1 do
begin
CommandText:='CREATE DATABASE mydatabase1';
execute
end;
ShowMessage(' پایگاه داده موفقیت آمیز ساخته شد');
end;
البته به جای mydatabase1 نام database خودتان را بنویسید!
در همان فولدری که exe این برنامه را قرار می دهید. backup مورد نظر را نیز قرار دهید!
و دو رویداد کلیک button دوم این کد را بنویسید!
procedure TForm1.Button2Click(Sender: TObject);
var
s:string;
begin
s:=ExtractFilePath( Application.ExeName );;
s:=s+'MYBACKUP';
with ADOCommand1 do
begin
CommandText:='RESTORE DATABASE mydatabase1 FROM DISK='+QuotedStr (s);
execute
end;
ShowMessage('فایل پشتیبان موفقیت آمیز احیا شد');
end;
ایبته به جای mybackup نام backup خودتان را بنویسید!
و به جای mydatabase1 اسم database خودتون را!
این برنامه را تازه ساختم. و تا جایی چک کردم درست بود! ولی اگه هر ایراد و انتقادی باشه با کمال میل می پذیرم.
موفق باشید!
نمونه برنامه را هم ضمیمه کردم!
موفق باشید!
پاسخ با نقل قول
