Veritabanı İçerisindeki Tablolar

[recepuncu]

S.a. arkadaşlar, TADOTable bağlantılarını ayarladıktan sonra properties bölümünde tablo seçebilmemiz için TableName i tıklayınca aşağı doğru liste açılıyor. Bu açılan listede tabloların isimleri yer alıyor. Bu listeyi RunTime olarak bir combobox içerisine gösterebilirmiyiz _? ve nasıl yapılır. yardımlarınız için şimdiden teşekkürler. (Veritabanı SQL, herhangi bir klasör içerisinde tablo yok, tablolar sunucu bilgisayar üzerinde SQL veritabanı halinde)

[recepuncu]

Derken buldum arkadaşlar:

Kod: Tümünü seç

var
  SL: TStrings;
  index: Integer;
begin
  SL := TStringList.Create;
  try
    ADOConnection1.GetTableNames(SL, False);
    for index := 0 to (SL.Count - 1) do begin
      ComboBox1.Items.Add(SL.Strings[index]);
    end;
  finally
    SL.Free;
    ADOTable1.Close;
  end;

İyi Çalışmalar.