Merhabalar,
Uygulamalarımızdan veritabanı bağlantısı yapabilmek için bir bağlantı dizesine (connection stringe) ihtiyacımız olur. Sunucu bağlantı bilgilerini (server , username , pwd , database ..) kullanıcıdan almak için genellikle formlar tasarlanır.
Ancak Ado bileşen kütüphanemizin windows api aracılığı ile bize sunduğu bir kolaylık var.
Projemizde AdoConnection nesnemizin olduğu formun uses kısmına Data.Win.ADODB veya sadece ADODB 'yi eğer yoksa ekliyoruz. (Muhtemelen otomatik eklenmiştir).
Kullanacağımız fonksiyonun adı :
function PromptDataSource(ParentHandle: THandle; InitialString: WideString): WideString;
ParentHandle :
birinci parametreye mevcut formun veya ana formun handle'sini verebiliriz datamodül kullanıyorsak 0 da verebiliriz.
InitialString :
ikinci parametreye, elimizde olan mevcut connection stringi verebiliriz eğer yoksa boş string verebiliriz.
procedure TfMain.Button1Click(Sender: TObject);
var cnnstr:string;
begin
cnnstr := PromptDataSource(HWND,'');
ShowMessage(cnnstr);
end;
fonksiyonu çalıştırdığımız da süpriz : windows apinin veritabanı bağlantı oluşturma penceresi;
Fonksiyonun dönüş değerinde (result) kullanıcımızın belirlediği ve test ettiği parametrelere göre oluşan connection string döner.
Form tasarlamaya gerek kalmadan hazır api ile database connection string oluşturduk.
Sağlıklı Başarılı
Çalışmalar Dilerim...
