select name from master.dbo.sysdatabases --数据库名 select name from dbname.dbo.sysobjects where xtype in ('U','S') --表名可以具体点吗?
procedure TForm1.Button1Click(Sender: TObject); var i:integer; begin adoquery1.Close; adoquery1.SQL.Clear; adoquery1.SQL.Add('select * from sysdatabases'); adoquery1.Open; for i:= 0 to adoquery1.RecordCount-1 do begin combobox1.Items.Add(adoquery1.Fields[0].asstring); adoquery1.Next; end; end;
SELECT name FROM sysdatabases
select name from dbname.dbo.sysobjects where xtype in ('U','S') --表名可以具体点吗?
var
i:integer;
begin
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select * from sysdatabases');
adoquery1.Open;
for i:= 0 to adoquery1.RecordCount-1 do
begin
combobox1.Items.Add(adoquery1.Fields[0].asstring);
adoquery1.Next;
end;
end;