如何显示出数据库服务器中得所有数据库？还有这个选中得数据库中所有得表

[popcom]

1、能够根据用户选择一个数据库
2、把该数据库里的所有表里显示出来

[pilicat]

在SQL Server中，获得所有数据库的列表用：
存储过程：

sp_databases

获取当前数据库的可用表可以用：
sp_tables

也可以执行SQL 语句
select name from sysobjects where type='U' order by name

[popcom]

能不能给一段代码，小弟是初学得

[benny87]

sqlserver
1. select a.name username,b.name databasename from master.dbo.sysxlogins a,master.dbo.sysdatabases b where a.dbid=b.dbid
2. select * from dbo.sysobjects where type='U'

[popcom]

我想在一个列表里面显示出来，比如listbox中显示，怎么才能把数据库名显示出来
还有数据库中所有的表显示出来

[Kshape]

1,首先用ADOQuery连接上你的数据库master;
2,其中master有个表,名字是 sysdatabases;
3,用AQOQuery1去查询就可以了

[Kshape]

这里，你就可以看见所有的数据库了
记住：ADOQuery1的connectionstring要连接到master！！
------------------------------------------------------
procedure TForm1.Button1Click(Sender: TObject);
begin
with adoquery1 do
begin
sql.Clear;
sql.Add('select * from sysdatabases');
open;
while not eof do
begin
showmessage(Fieldbyname('name').AsString);
next;
end;
end;
end;

[Kshape]

如果要一并全部显示就这样：
-----------------------------------
procedure TForm1.Button2Click(Sender: TObject);
var
a:string;
begin
with adoquery1 do
begin
sql.Clear;
sql.Add('select * from sysdatabases');
open;
while not eof do
begin
a :=a+Fieldbyname('name').AsString+'//';{这里把所有数据库合并成字符串了}
next;
end;
showmessage(a);
end;
end;

[popcom]

我已经访问到了，谢谢!!!

[cn2002boy]

用
ADOConnection1.active:=true;
ADOConnection1.GetTableNames(listbox1.Items);什么都不要了

[coeltdit]

来晚了哦