怎么查询数据库所有实例

如果是在数据库中用SQL查询的话,我也不知道...
下面是用Delphi写的列出可用数据库服务器名称并添加到下拉列表中的过程，希望有用。
procedure TFormConnect.GetServerName(CbServer: TComboBox);
var
SQLServer, ServerList: variant;
i: integer;
begin
Screen.Cursor:=crHourGlass;
CbServer.Clear;
try
SQLServer:=CreateOleObject('SQLDMO.Application');
ServerList:=SQLServer.ListAvailableSQLServers;
if ServerList.Count>0 then
begin
for i:=0 to ServerList.Count-1 do
CbServer.Items.Add(ServerList.Item(i+1));
end;
finally
SQLServer:=Null;
ServerList:=Null;
end;
CbServer.ItemIndex:=-1;
Screen.Cursor:=crDefault;
end;

[例1] 查询全体学生的学号与姓名。
SELECT Sno，Sname
FROM Student；

[例2] 查询全体学生的姓名、学号、所在系。
SELECT Sname，Sno，Sdept
FROM Student；
[例3] 查询全体学生的详细记录。
SELECT Sno，Sname，Ssex，Sage，Sdept
FROM Student；
或
SELECT *
FROM Studen