delphi4arab منتديات دلفي للعرب

بعد تحية السلام لدي مشكلة وهي كيفية انشاء قاعدة بيانات من طرف العميل sqlserver client مع العلم اني قمت بتثبيت الخادم في جهاز و العميل في جهاز آخر و هاهو الكود لكنه لا يعمل

كود :
procedure TForm1.Button1Click(Sender: TObject);
var s,s1:String;
begin
s:='Provider=SQLOLEDB.1; Data Source=NOURA-F67B35289;Integrated Security=SSPI; Persist Security Info=False; AttachDbFilename=c:\MSQLDB_Data.mdf;Database=MSQLDB_Data;Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096';
//s1:='Use Encryption for Data=False;
ADOConnection1.ConnectionString:=s;
ADOConnection1.Connected:=True;
//adoconnection1.Close;
//adoconnection1.ConnectionString:='Provider=SQLOLEDB.1;Remote Server=NOURA-F67B35289\SQL Server Enterprise Manager;Trusted_Connection=yes;Integrated Security=SSPI;Persist Security Info=False;Data Source=NOURA-F67B35289;Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096';
//adoconnection1.Open;
if not fileexists(extractfilepath(application.ExeName)+'archive\'+Edit2.text+'.mdf') then
begin
ADOCommand1.CommandText := 'CREATE DATABASE"'+Edit2.text+'"ON ' +
                     '( NAME = "'+Edit2.text+'_dat",    ' +
                     'FILENAME = '''+extractfilepath(application.exename)+'archive\'+Edit2.text+'.mdf'', ' +
                     'SIZE = 4, ' +
                     'MAXSIZE = 10, ' +
                     'FILEGROWTH = 1 )FOR ATTACH';
                     messagedlg('áËÏ Êã ÇäÔÇÁ ÞÇÚÏÉ ÇáãÚØíÇÊ ',mtinformation,[mbok],0);




// ADOCommand1.CommandText :=' CREATE DATABASE MyAdventureWorks ON (FILENAME = 'C:\MySQLServer\AdventureWorks_Data.mdf'), (FILENAME = 'C:\MySQLServer\AdventureWorks_Log.ldf')FOR ATTACH;

ADOCommand1.Execute;
shellexecute(handle,'open','','',pchar(extractfilepath(application.ExeName)+'archive\'),sw_shownormal);
end
else
begin
if messagedlg('åá ÊÑíÏ ÊÚÏíá ÇáãÚáæãÇÊ ÇáÎÇÕÉ ÈåÐÇ ÇáÈÑíÏ',mtinformation,[mbyes,mbno],0)=mryes then
                 begin

       {ADOCommand1.CommandText := 'CREATE DATABASE"'+Edit2.text+'"ON ' +
                     '( NAME = "'+Edit2.text+'_dat",    ' +
                     'FILENAME = '''+extractfilepath(application.exename)+'archive\'+Edit2.text+'.mdf'', ' +
                     'SIZE = 4, ' +
                     'MAXSIZE = 10, ' +
                     'FILEGROWTH = 1 )';
                    ADOCommand1.Execute;
                     shellexecute(handle,'open','','',pchar(extractfilepath(application.ExeName)+'Archive\'),sw_shownormal);  }
                   
  CopyFile(Pchar(extractfilepath(application.exename)+'archive\'+Edit2.text+'.mdf'),Pchar(extractfilepath(application.exename)+'archive\'+Edit2.text+ '.mdf'),False);
  shellexecute(handle,'open','','',pchar(extractfilepath(application.ExeName)+'archive\'),sw_shownormal);
       end;
       end;

biba06121963