高分列出本机上所有SQLServer数据库名称?马上给分

Question

rt

Answer 1

select name from master.dbo.sysdatabases --数据库名
select name from dbname.dbo.sysobjects where xtype in ('U','S') --表名

Answer 2

master
model
msdb
Northwind
pubs
tempdb
student_db
ts300_db

Answer 3

uses Comobj;    procedure TForm1.Button1Click(Sender: TObject);    var    SQLServer:Variant;    ServerList:Variant;    i,nServers:integer;    sRetValue:String;    begin      SQLServer := CreateOleObject('SQLDMO.Application');      ServerList:= SQLServer.ListAvailableSQLServers;      nServers:=ServerList.Count;      for i := 1 to nservers do      ListBox1.Items.Add(ServerList.Item(i));      SQLServer:=NULL;      serverList:=NULL;    end;