怎么用SQL语句实现以下功能?

chengxuejun 2003-02-20 08:58:00

在Access数据库中有一个名为A的数据表如何用SQL语句实现以下功能:

如果存在A数据表就删除它
...全文
41 7 打赏 收藏 转发到动态 举报
写回复
用AI写文章
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
票票飞扬 2003-02-21
  • 打赏
  • 举报
回复
//ADOConnection
procedure TForm1.Button1Click(Sender: TObject);
var LS: TStringList;
tb: String;
begin
tb := 'TableName';
LS := TStringList.Create;
ADOConnection1.GetTableNames(LS);
if LS.IndexOf(tb) > = 0 then
//drop table tablename

end;

//要不直接删除
用Try捕获异常
guestman 2003-02-21
  • 打赏
  • 举报
回复
你用什么连的access?ado还是bde
maoke000 2003-02-21
  • 打赏
  • 举报
回复
procedure TForm1.Button1Click(Sender: TObject);
var LS: TStringList;
tb: String;
begin
tb := 'TableName';
LS := TStringList.Create;
ADOConnection1.GetTableNames(LS);
if LS.IndexOf(tb) > = 0 then
//drop table tablename
LS.Free; //千万别忘了写这行哦

end;
maoke000 2003-02-21
  • 打赏
  • 举报
回复
procedure TForm1.Button1Click(Sender: TObject);
var LS: TStringList;
tb: String;
begin
tb := 'TableName';
LS := TStringList.Create;
ADOConnection1.GetTableNames(LS);
if LS.IndexOf(tb) > = 0 then
//drop table tablename
LS.Free; //千万别忘了写这行哦

end;
csdnyong 2003-02-21
  • 打赏
  • 举报
回复
可以!!
Delphi_Li 2003-02-21
  • 打赏
  • 举报
回复
使用ADO就搞定了!!!

Try
Drop Table Your_Table //这是SQL语句
Except
End
hongqi162 2003-02-21
  • 打赏
  • 举报
回复
up

5,388

社区成员

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

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