Ado Connection ile; Db Yolu exe yanı?

[naklov67]

selamın aleyküm herkeze
çok oldu soru sormayalı...
şimdi bu aralar bi proje üzerinde uğraşıyorum çok yol katettim..
ilk kez adoconnection kullanıyorum..
çok kullanışlı bir araç
ancak db nin yerini değiştirirken sorun yaşıyorum...
eskiden:
Path := ExtractFilePath(ParamStr(0));
yazıp hallediyorduk olayı
bunda da aynı şekilde
adoconnection1.connectionstring:=... yazıp kurtulurum sandım
çünkü adotable ile böyle kurtulmuştum..
ama hüsran oldu.. çok uzun ve delphide bu işin daha kolay bi yolu vardır mutlaka diye düşündüm
biraz kurcaladım bulamadım.


nası yapabiliriz bi fikri olan var mı?

[mrmarman]

Selam...

- Format fonksiyonu bu iş için biçilmiş kaftan...

- Bir Constant tanımlarsın, ConnectionString ihtiyacın olan her yerden erişebileceğin bir globalikte olsun.

- Basit bir örnek...

Kod: Tümünü seç

  // MS-Access //
  xBaglanti = 'Provider=Microsoft.Jet.OLEDB.4.0;'
            + 'Data Source=%s;'
            + 'Jet OLEDB:Database Password=%s;';

- Kullanacağın zaman

Kod: Tümünü seç

  AdoConnection1.ConnectionString := Format(xBaglanti, 'veri.mdb', 'password'); 

gibi der yoluna devam edersin...

[naklov67]

Hallettim galiba..
ama dediğin gibi formata gerek kalmadı..

xBaglanti:='Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;'
+'Data Source='''+path+''';'

AdoConnection1.ConnectionString := xbaglanti;

şeklinde hallettim olayı..
şimdi sorunsuz çalışıyor..
benim sorunum bir string e bu kadar uzun boylu metni atayamamaktı.
bu şekilde olabildiğini unutmuşum

eyvallah

[mrmarman]

demek ki yanlış yorumlamışım. Birden fazla katalog dosyası var da her biri için tekrar tekrar ConnectionString yazmak gerekliymiş gibi düşündüm. Nerden böyle bişey düşündüysem

- Önemli olan çözülmüş olması...