استفاده از کومبو باکس جهت انتخاب دیتابیس

[یوسف زالی]

اول به دیتابیس مستر وصل بشید
بعد این کد رو روش ران کنید:

var

  s: string;

begin

  with ADOConnection1.Execute('select name from sys.databases') do

    while not EOF do

      begin

      s := Fields[0].Value;

      ShowMessage(s);

      MoveNext;

      end;

end;