Veri tabanı listesi seçimi

[cmkare]

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?

[xozcanx]

Merhaba,
Veri tabanı olarak ne kullanmaktasınız?

[esistem]

Merhaba,
Klasörde dosya uzantısından VT lerinizi taratıp combobox içine atmanız yeterli olur.

[cmkare]

Merhabalar. Pardon veri tabanını yazmayı atlamışım.

Veri tabanı MSSQL

[xozcanx]

Burayı bir inceleyin.
Kolay gelsin.

[cinarbil]

Hayırlı sabahlar
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;';

isterseniz aşağıdaki kod ile local ağ daki SQL SERVER ların listesini alın

Kod: Tümünü seç

ListAvailableSQLServers(server_liste.Items); // ağdakı server listekini al

Form' a 1 listbox 1 buton 1 Adoquery ekle adlarını değiştir

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;

Yukardaki kod ile bağlandığın Databases içindeki tüm tabloları alabiliyorsun.
Sonra listbox içinden istediğini seçebilirsin

[cmkare]

Çok Teşekkürler Arkadaşlar.