string ls_sql
ls_sql = "SELECT * FROM " + ls_table + " WHERE 1=2"
EXECUTE IMMEDIATE :ls_sql ;
IF SQLCA.SQLCode = 0 THEN
messagebox("系统提示","数据库中有这张表 !")
END IF
execute immediate "if exists (select * from sysobjects where id = object_id(N'[dbo].[cf_xs]') and OBJECTPROPERTY(id, N'IsUserTable') = 1) drop table [dbo].[cf_xs]";
int li_count
select count(*) into :li_count
from tab_name;
if sqlca.sqlcode <> 0 then
MessageBox('','表不存在或连接错误')
end if
这样做不是十分准确,但比较通用。
对 sybase 或 MsSQL 之类的数据库,可以从 sysobjects 系统表里查。