try
ADOQuery1.SQL.Text:='select * from No_amm';
ADOQuery1.Open;
Showmessage('存在表No_amm');
except
Showmessage('不存在表No_amm');
end;
ADOQuery1.SQL.Text:='select * from No_amm';
ADOQuery1.Open;
Showmessage('存在表No_amm');
except
Showmessage('不存在表No_amm');
end;
解决方案 »
- 使用unidac连接sqlite3时 update、delete速度很慢,如何解决?
- 100分求助:XP系统下如何使自己的程序不使用系统皮肤
- 怎么把inputquery里输入的字显示为密码的样子?
- 谁用过,中文语音朗读控件,来者有分
- WH_CALLWNDPROC类型的钩子问题
- 再问一个SQL语句的问题,还是50分!~
- 我用delphi做了一个报表,但到具体打印时可能要对报表格式做轻微调整,我想把有关调整的数据写入.ini文件以便下次使用。但不知如何做?
- [转载]震区重建中的感人镜头
- 如何才可以獲得MS-SQL中有多少人在線﹖
- 有空大家到我的网站来看看。他不很丰富,但我很虚心。www.aopukj.com。
- HELP ME 来者高分相送
- 如何拦截Del键?(一定给分)
IF NOT EXISTS (SELECT * FROM SYSOBJECTS WHERE ID = OBJECT_ID('DBO.No_amm))
with table1 do
begin
active:=false;
databasename:='aaa';
tablename:='table1';
if not tavle1.exists then
......
var
s:tstrings;
i:integer;
b:boolean;
begin
s:=tstringlist.Create;
adoconnection1.GetTableNames(s,false);
memo1.Lines:=s;
for i:=0 to s.count-1 do
begin
if s.Strings[i]='No_amm' then
begin
b:=true;
break;
end;
end;
if b then
label1.Caption:='No_amm';
end;