- 23 Eki 2013
- 6
- 0
Merhaba Arkadaşlar,
SQL connection oluşturdugumuzda malum connection string bazen karakterlerden veya o an programın ıcınde testi zahmetli olduğu için projelerimize bir ".udl" dosyayı yerleştırmek daha hızlı ve etkin bir çözüm olabilir.
-Programın bulundugu klasöre Test.Udl adında bır connection hazırlayarak Main Formumuzun create olayına yazmanız yeterli.
-TADOConnection nesnemizin adı "ADC".
procedure TForm1.FormCreate(Sender: TObject);
begin
if FileExists(GetCurrentDir +'\Test.udl') then
ADC.ConnectionString:= 'FILE NAME=HelpDesk.udl';
try
ADC.Connected:=True;
ShowMessage('Veri Tabanı Bağlantısı Kuruldu...');
except
ShowMessage('Veri Tabanı Bağlantısı Kurulamadı.');
end;
end;
SQL connection oluşturdugumuzda malum connection string bazen karakterlerden veya o an programın ıcınde testi zahmetli olduğu için projelerimize bir ".udl" dosyayı yerleştırmek daha hızlı ve etkin bir çözüm olabilir.
-Programın bulundugu klasöre Test.Udl adında bır connection hazırlayarak Main Formumuzun create olayına yazmanız yeterli.
-TADOConnection nesnemizin adı "ADC".
procedure TForm1.FormCreate(Sender: TObject);
begin
if FileExists(GetCurrentDir +'\Test.udl') then
ADC.ConnectionString:= 'FILE NAME=HelpDesk.udl';
try
ADC.Connected:=True;
ShowMessage('Veri Tabanı Bağlantısı Kuruldu...');
except
ShowMessage('Veri Tabanı Bağlantısı Kurulamadı.');
end;
end;