如何判断table是否存在?RemoveDir怎么不好使?

huliao 2001-12-18 09:31:06
1.我要判断表名为mytable的sql server表是否存在,怎么做?不要用table控件。
2.RemoveDir怎么会不好使,谁用过?
...全文
77 3 打赏 收藏 转发到动态 举报
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
王集鹄 2001-12-18
  • 打赏
  • 举报
回复
//已经有文件的清除文件先
RemoveDir()
王集鹄 2001-12-18
  • 打赏
  • 举报
回复
//No.1
procedure TForm1.Button1Click(Sender: TObject);
const
cTableName = '<表名>';
begin
ADOQuery1.Close;
ADOQuery1.SQL.Text := Format(
'SELECT COUNT(*) AS Cnt'#13#10 +
'FROM sysobjects'#13#10 +
'WHERE NAME=%s AND TYPE=''U'''#13#10,
[QuotedStr(cTableName)]);
ADOQuery1.Open;
if ADOQuery1.FieldByName('Cnt').AsInteger > 0 then
ShowMessage(cTableName + '存在')
else ShowMessage(cTableName + '不存在');
ADOQuery1.Close;
end;
huliao 2001-12-18
  • 打赏
  • 举报
回复
文件已清空,但还是删不了。我已经用别的办法解决。

5,388

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧