急急急,如何取得数据库中的所有表名?  在线等待,马上给分!!

解决方案 »

  1.   

    database.session.gettablenames
    adoconn.gettablenames
      

  2.   

    看一下GetTableNames的帮助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;
      

  3.   

    再问一下,如何将取得的表名放入listbox中?
      

  4.   

    var 
    s:string
    begin
      listbox1.items.clear;
      s:=....  //要查的数据库
      session.gettablenames(s,'',true,false,listbox1.items);
    end;