adoQuery1lsql.text:='select * from TableName' adoquery1.sql.add:="drop table tableName"; try adoquery1.execSQL; except on e:exception do showMessage('Table is Not Found');//执行select如果不存在则会出错,跳转到这里显示出错信息 end;
如果你认为这个表是必定要删的,这样就行了。 adoquery1.sql.add:="drop table tableName"; try adoquery1.execSQL; except on e:exception do showMessage('Table is Not Found');//执行select如果不存在则会出错,跳转到这里显示出错信息 end;
下面的代码怎么不行呀! procedure TForm1.Button1Click(Sender: TObject); begin ADOQuery1.Close; ADOQuery1.sql.Text:='select * from baojiad_mx'; try ADOQuery1.open; ADOQuery1.close; if messagebox(form1.Handle,'表存在你想删除吗?','提示',MB_OKCANCEL+MB_ICONINFORMATION)=idok then begin ADOQuery1.SQL.text:='drop tabel baojiad_mx'; ADOQuery1.ExecSQL; end; except on e:exception do showMessage('Table is Not Found');//执行select如果不存在则会出错,跳转到这里显示出错信息 end; end;
adoquery1.sql.add:="drop table tableName";
try
adoquery1.execSQL;
except
on e:exception do
showMessage('Table is Not Found');//执行select如果不存在则会出错,跳转到这里显示出错信息
end;
adoquery1.sql.add:="drop table tableName";
try
adoquery1.execSQL;
except
on e:exception do
showMessage('Table is Not Found');//执行select如果不存在则会出错,跳转到这里显示出错信息
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
ADOQuery1.Close; ADOQuery1.sql.Text:='select * from baojiad_mx';
try
ADOQuery1.open; ADOQuery1.close;
if messagebox(form1.Handle,'表存在你想删除吗?','提示',MB_OKCANCEL+MB_ICONINFORMATION)=idok then
begin
ADOQuery1.SQL.text:='drop tabel baojiad_mx';
ADOQuery1.ExecSQL;
end;
except
on e:exception do
showMessage('Table is Not Found');//执行select如果不存在则会出错,跳转到这里显示出错信息
end;
end;