MSSQL 2017 de Kullanıcı tanımlı Veritabanı isimlerini veren kodları Delphi10.2'ye uyarlamak

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
izmirlikemal
Üye
Mesajlar: 155
Kayıt: 10 Oca 2014 01:08
Konum: izmir/Buca

MSSQL 2017 de Kullanıcı tanımlı Veritabanı isimlerini veren kodları Delphi10.2'ye uyarlamak

Mesaj gönderen izmirlikemal »

Merhaba
Arkadaşlar internetdeki araştırmalarımda aşağıdaki kodları buldum. Bu kodları MSSQL Management studio programında ExeCute yaptığımda
benim düzenlediğim veri tabanı listesini alabiliyorum.
Benim sorunum bu kodları Delphi 10.2 ye uyarlamak. Bana yardımcı olabilirmisiniz?

Kod: Tümünü seç

SELECT [name]
FROM master.dbo.sysdatabases
WHERE dbid > 9
ertank
Kıdemli Üye
Mesajlar: 1650
Kayıt: 12 Eyl 2015 12:45

Re: MSSQL 2017 de Kullanıcı tanımlı Veritabanı isimlerini veren kodları Delphi10.2'ye uyarlamak

Mesaj gönderen ertank »

Merhaba,

Sorunuzu cevaplamak için yeterli bilgi yok. Öncelikle kullanacağınız/kullandığınız database bileşenleri nedir?
izmirlikemal
Üye
Mesajlar: 155
Kayıt: 10 Oca 2014 01:08
Konum: izmir/Buca

Re: MSSQL 2017 de Kullanıcı tanımlı Veritabanı isimlerini veren kodları Delphi10.2'ye uyarlamak

Mesaj gönderen izmirlikemal »

ertank merhaba arkadaşım!
Çözümü yine delphiturkiye de buldum. Aşağıda tekrar olacak ama yine de ilgili arkadaşlar için paylaşıyorum.Sizin ilginize de ayrıca teşekkür ederim.
Forma1 ad. ADOQuery(sorgu) ve 1 ad. de Listbox(tablo_liste) ekleyeceğiz.

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;
Cevapla