Merhaba arkadaşlar,
Aklıma takılan bir soru var..
Veri tabanım baya bir dolduğu için aynı veri tabanından bir tane daha yarattım farklı bir isimle.
Programın ilk açılışında veri tabanı seçimi yaptırmak istiyorum. Yani kullanıcı adı şifre ekranında adını ve şifreyi yazdıktan sonra comboboxdan veri tabanındaki hangi vtyi seçerse o veri tabanında açılsın.
ilk açılışta veri tabanı listesini nasıl getirtebilirim acaba?
Veri tabanı listesi seçimi
Forum kuralları
Forum kurallarını okuyup, uyunuz!
Forum kurallarını okuyup, uyunuz!
Re: Veri tabanı listesi seçimi
Merhaba,
Veri tabanı olarak ne kullanmaktasınız?
Veri tabanı olarak ne kullanmaktasınız?
Nasibinde varsa, alırsın karıncadan bile ders, Nasibinde yoksa, bütün cihan önüne serilse, sana ters..
Re: Veri tabanı listesi seçimi
Merhaba,
Klasörde dosya uzantısından VT lerinizi taratıp combobox içine atmanız yeterli olur.
Klasörde dosya uzantısından VT lerinizi taratıp combobox içine atmanız yeterli olur.
Re: Veri tabanı listesi seçimi
Merhabalar. Pardon veri tabanını yazmayı atlamışım.
Veri tabanı MSSQL
Veri tabanı MSSQL
Re: Veri tabanı listesi seçimi
Burayı bir inceleyin.
Kolay gelsin.
Kolay gelsin.
Nasibinde varsa, alırsın karıncadan bile ders, Nasibinde yoksa, bütün cihan önüne serilse, sana ters..
Re: Veri tabanı listesi seçimi
Hayırlı sabahlar
Ben bu form' dan öğrenmiştim.
Mssql databases aşağıdaki connectionstring ile bağlanıyorum
isterseniz aşağıdaki kod ile local ağ daki SQL SERVER ların listesini alın
Form' a 1 listbox 1 buton 1 Adoquery ekle adlarını değiştir
Yukardaki kod ile bağlandığın Databases içindeki tüm tabloları alabiliyorsun.
Sonra listbox içinden istediğini seçebilirsin
Ben bu form' dan öğrenmiştim.
Mssql databases aşağıdaki connectionstring ile bağlanıyorum
Kod: Tümünü seç
baglanayar:= 'Provider=SQLOLEDB.1;Persist Security Info=False;' +
'User ID=%s;Password=%s;Data Source=%s;Use Procedure for Prepare=1;' +
'Auto Translate=True;Packet Size=4096;Use Encryption for Data=False;'+
'Tag with column collation when possible=False;';
Kod: Tümünü seç
ListAvailableSQLServers(server_liste.Items); // ağdakı server listekini al
Kod: Tümünü seç
procedure Tyedekfrm.ListeClick(Sender: TObject);
begin
tablo_liste.Clear;
sorgu.Close;
sorgu.SQL.Clear;
sorgu.SQL.Add ('SELECT name FROM sysdatabases WHERE name NOT IN (''master'', ''tempdb'',''model'',''msdb'',''ReportServer'',''ReportServerTempDB'')');
sorgu.Open; // NOT IN ile sistem dosyalarını almıyorum
sorgu.First;
while not sorgu.Eof do begin
tablo_liste.Items.Add(sorgu.Fields[0].asstring);
sorgu.Next;
end;
Sonra listbox içinden istediğini seçebilirsin
"…De ki: "Hiç bilenlerle bilmeyenler bir olur mu? Şüphesiz, temiz akıl sahipleri öğüt alıp-düşünürler" (Zümer Suresi, 9)
Re: Veri tabanı listesi seçimi
Çok Teşekkürler Arkadaşlar.