高手!能帮我吗?一个菜鸟的问题!

Question

如何列出指定数据库中的所有表！
我建立一个数据库名为：student.mdf 在sqlsever2000中建立的!我自己在这个数据库中建立了好多自己的表!!我想把这些表在listbox中列出来,怎么操作!高手帮忙!!!

Answer 1

database.gettables(listbox);
         --------
         好象是gettables方法，你用ctrl+space看看有没有

Answer 2

database.gettables(listbox.items);
         --------
         好象是gettables方法，你用ctrl+space看看有没有

Answer 3

在 ORACLE 中，可以从系统视图中得到某一用户的所有的表，
在 SQL SERVER 也应该可以吧！
你找找看。

Answer 4

在oracle 用SQL  select TABLE_NAME from cat. SQL SERVER也应有！

Answer 5

procedure TForm1.Button1Click(Sender: TObject);var
  SL: TStrings;
  index: Integer;
begin
  SL := TStringList.Create;
  try
    ADOConnection1.GetTableNames(SL, False);
    for index := 0 to (SL.Count - 1) do begin
      Table1.Insert;
      Table1.FieldByName('Name').AsString := SL[index];
      if ADOTable1.Active then ADOTable1.Close;
      ADOTable1.TableName := SL[index];
      ADOTable1.Open;
      Table1.FieldByName('Records').AsInteger := ADOTable1.RecordCount;      Table1.Post;
    end;
  finally
    SL.Free;
    ADOTable1.Close;
  end;
end;多看看DELPHI的帮助。

Answer 6

在Delphi的数据库组件中（TDatabase或TIBDatabase或TADOConnection）都有这一方法：
GetTableNames(List: TStrings; SystemTables: Boolean = False)
其中的List就是TStrings类型的数据或组件，SystemTables取true时将列出系统表，取false时只列出用户的表。例：Database1.GetTableNames(ListBox1.Items, False);

Answer 7

ADOConnection.GetTableNames(ListBox.Items, false);

Answer 8

ADOConnect.GetTableNames
  
或者 
select name from sysobjects where type ='U'
或者
sp_tables   @table_owner =dbo, @table_qualifier= DB_6631, @table_type="'TABLE'"
（DB_6631是数据库名)