Sql den tablo adlarını alma hk.

[cinarbil]

aşağıdaki kodla hatasız sql e bağlanıyorum.

Kod: Tümünü seç

username:=kullanici.Text;
password:= sifre.Text;
server:=server_adi.Text;
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;';

   sunucu_baglan.ConnectionString:= Format(baglanayar,[UserName, PassWord, Server]);
   sunucu_baglan.LoginPrompt := False;
  try
    sunucu_baglan.Connected := True;
    log_memo.Lines.Add('Sunucu Bağlantısı Yapıldı.-'+      datetostr(date)+' ' + timetostr(time())) ;
    panel1.Color:=cllime;
  except
       log_memo.Lines.Add('Sunucu Bağlantısında hata oluştu.-'+ datetostr(date)+' ' + timetostr(time())) ;
       panel1.Color := clred;
   end; // try sonu

aşağıdaki kod ile sql deki database leri almak istedim

Kod: Tümünü seç

ADOConnection1.GetTableNames(Tables, FALSE);

False olunca liste boş geliyor.
True Yapınca master gibi system databaseler içindeki tablolar geliyor.
(GetTableNames sadece tablo adlarını mı alır ? )
Sql de ki Database isimlerini nasıl alabilirim.

[thelvaci]

Konu aslında SQL Server bölümü altında değerlendirilmeli sanırım. Ancak istediğiniz şeyi aşağıdaki kod vasıtası ile yapabilirsiniz:

Kod: Tümünü seç

SELECT * FROM sys.databases

[cinarbil]

İlginiz için teşekkür ederim