var
qy: TADOQuery;
begin
qy := TADOQuery.Create(nil);
qy.ConnectionString := ADOConnection1.ConnectionString; //假设ADOConnection1已设置连接到master数据库
qy.SQL.Add('select name from sysdatabases');
qy.Open;
qy.First;
while not qy.Eof do
begin
ComboBox1.Items.Add(qy.FieldByName('name').AsString);
qy.Next;
end;
qy.Close;
qy.Free;
end;
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024