怎样在程序中确定数据库中有没有某个表？（用ADOquery或其他)

Question

不会需要用SQL语句吧？

Answer 1

不用sql也可以
用ADOConnection
ADOConnection1.GetTableNames//得到所有表
ADOConnection1.GetProcedureNames//得到所有过程
ADOConnection1.GetFieldNames//得到一个表的所有字段

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var
  TableLists : TStringList;
  i:integer;
begin
  TAbleLists := TStringList.Create;
  adoconnection1.GetTableNames(TableLists);
  ListBox1.Items.Assign(TableLists);
  for i=1 to  listbox1.Items.Count-1 then
    if ilstbox1.items[i].text='tablename' then
.......... 
end;

Answer 3

多谢楼主提问我谢楼上的回答我上次面试就遇过一个问题，在此小问一下如何获得某用户(testaccount)创建的所有表的记录总和？oracle中用存储过程

Answer 4

with ADOQuery1 do
begin
  close;
  SQl.clear;
  SQL.text := 'SELECT count(name) as total FROM sysobjects WHERE name = YourTableName AND type = U';
  open;
end;if ADOQuery1.RecordCount=1 then
  存在
else
  不存在；

Answer 5

用户自己定义一个函数，放在服务器端。语句就用我上面的语句
'SELECT count(name) as total FROM sysobjects WHERE name = YourTableName AND type = U'//大写字母‘U’代表用户表。