ADO connection bişeninin kendine içerisinde bulunan iki fonksiyon ile SQL tablo ve detaylarını almak çok kolay. Aslında bu iki fonksiyon ile kendim bir uygulama geliştirmiştim ama çok yavaş olması ve çok büyük tablo sayısına ulaştığınızda TreeView'e bunu eklemek uygulamayı patlatıyodu. Bu abimizin yöntemi hem 800 küsür tablo ve yirmi den fazla kolonu olan veritabanlarında çok güzel sonuçlar veriyor.
ADO Connection fonksiyonlarımızı yazacak olursak:
"ADOConnection1.GetTableNames(Tables, FALSE);
ADOConnection1.GetFieldNames('Company', FieldNames);"
Alıntıdır(excerpt)
Kullanımı ise çok kolay sadece bir adet TStringList oluşturup içine ister tablomuzu yada detaylarını alıyoruz. Örneğin:
"begin
Tables := TStringList.Create;
AdoConnection1.Connected := TRUE;
ADOConnection1.GetTableNames(Tables, FALSE);
Memo1.Lines := Tables;
Tables.Free;
end; "
"begin
FieldNames := TStringList.Create;
AdoConnection1.Connected := TRUE;
ADOConnection1.GetFieldNames('Company', FieldNames);
Memo1.Lines := FieldNames;
Tables.Free;
end;"
Alıntıdır(excerpt)
Uygulama ne yapar ona gelelim ilk önce SQL veritabanınız ile bağlantı yapmalısınız. Bunu çoğu kişi biliyordur zaten bilmeyenler için ilk önce ConnectionString'imizi girmemiz lazım. ADO Connectiona tıklayarak ConnStr ayarımızı yapıyoruz.
Bu kısımdan sonra yerel ağdaki yada isterseniz landaki veritabanımızı seçiyoruz ve connected'ı true yapıyoruz.
Bundan sonrası sadece tuşa basmak. Bütün tablo ve detayları TreeViewe eklenecektir. Fonsiyon ve procedure detaylarını kaynak kodlardan bakarak anlayabilirisiniz.
Source material: http://francois-piette.blogspot.com.tr/2013/01/using-ado-to-display-database-schema.html
Okuduğunuz İçin Teşekkür Ederim
Hakan UÇAR
İstatistikçi ve Amatör Programcı
İçerikler Tamamen Ücretsiz Olup Özgün Anlatımdır Paylaşırken Kaynak Belirtiniz Lütfen.
Uygulamayı Yandex Diskimden indirebilirsiniz.
Soru Sormak ve Bilgi Almak İçin Mail Atınız: hakanucaar@yandex.com
0 yorum:
Yorum Gönder