PDA

View Full Version : سوال: attach



ayub_coder
یک شنبه 19 خرداد 1387, 09:45 صبح
سلام
چطور میشه با دلفی دیتابیس رو به اس کیو ال سرور attach کرد؟
یعنی رو سیستم دیگه که دیتابیس من attach نیست با کد نویسی دلفی اون رو اتچ کنم!!!:گریه:

Mah6447
یک شنبه 19 خرداد 1387, 10:59 صبح
برای Attach



procedure attach_database;
var
strcommand, dbase_Name, file1, file2: string;

begin
//database name
dbase_Name:=trim(EditAttachedDBase.Text);
file1:=trim(EditDatabaseFIle.Text);//database file
file2:=trim(EditLogFile.Text);//log file
with AttachConn do begin
close;//connect to master system database
ConnectionString:='Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog='+'master'+';Data Source='+computer_name+'';
open;
end;//with attachconn

//sql commands for attaching
strcommand:='EXEC sp_attach_db @dbname = '+dbase_Name+', ';
strcommand:=strcommand + '@filename1 = "'+File1+'"'+', ';
strcommand:=strcommand + '@filename2 = "'+File2+'"'+'';
with qryAttach do begin
close;
sql.Clear;
sql.Text:=strcommand;
try
ExecSQL;
ShowMessage('Database Successfully attached');
Except on E:Exception do begin
Showmessage('Error Attaching the Database');
Application.Terminate;
end;
end;//try - except
end;//with query attach

end;

برای DeAttach




procedure detach_database;
var
strcommand, detachedDB: string;
begin

detachedDB:=trim(EditDetachedBName.Text);//database name
strcommand:='EXEC sp_detach_db @dbname = '+detachedDB+'';//detaching
with AttachConn do begin//AttachConn is ADOConnection
close;//attach on the master system database.
//computer_name is the name of your computer
ConnectionString:='Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog='+'master'+';Data Source='+computer_name+'';
open;
end;//with attachconn
with qryDetach do begin//qryDetach is AdoQuery
close;
sql.Clear;
sql.Text:=strcommand;
try
ExecSQL;
ShowMessage('Detach was Successfull');
Except on E:Exception do begin
Showmessage('Error Dettaching the Database');
Application.Terminate;
end;
end;//try - except
end;
end;//detach

ayub_coder
سه شنبه 21 خرداد 1387, 13:49 عصر
برای دلفی رو ندارین؟
این کد ها رو چطور تو دلفی استفاده کنم؟ ممنون:متفکر:
:خجالت:

Mah6447
سه شنبه 21 خرداد 1387, 14:28 عصر
برای دلفی رو ندارین؟
این کد ها رو چطور تو دلفی استفاده کنم؟ ممنون:متفکر:
:خجالت:

این کد برای لفی است ... ؟؟؟ !!!
چون مثالی برای سوالتان آماده داشتم برایت گذاشتم . موفق باشید .