with DAOQuery1 do
try
begin
Close;
SQL.Clear;
SQL.Add('select * from '+cmbYear.Text+cmbMonth.Text);
Open;
end;
except
begin
Close;
SQL.Clear;
SQL.Add('select * into '+cmbYear.Text+cmbMonth.Text+' from 省站');
Execute(0);
Close;
SQL.Clear;
SQL.Add('select * from '+cmbYear.Text+cmbMonth.Text);
Open;
end;
end;
为什么报错后except 后面的代码执不了?
try
begin
Close;
SQL.Clear;
SQL.Add('select * from '+cmbYear.Text+cmbMonth.Text);
Open;
end;
except
begin
Close;
SQL.Clear;
SQL.Add('select * into '+cmbYear.Text+cmbMonth.Text+' from 省站');
Execute(0);
Close;
SQL.Clear;
SQL.Add('select * from '+cmbYear.Text+cmbMonth.Text);
Open;
end;
end;
为什么报错后except 后面的代码执不了?
解决方案 »
- TFileStream问题
- 图像二值化的问题:请问怎样用双峰法对灰度直方图进行二值化
- Delphi彻底研究.看过这书的给些意见
- 怎麼把cxgrid中的數據保存到excel中?
- com+ 组件的释放问题
- 动态生成CheckBox控件,如何在界面上显示出来?,定义如下,请参考,谢谢~~
- 求DHCP客户端的编程(WIN平台)
- 如何做一个抽奖程序?(高分相送,不够再加!!!)
- delphi图片和文字混合传输
- 请问怎样注册Formula one控件? 急。。。。。。急。。。。。。。。。
- 请教在delphi中如何用OLEAutomatic 技术给EXCEL的指定单元格添加“批注”
- 插入数据后,如何能看到dbgrideh里的数据更新?
try
begin
Close;
SQL.Clear;
SQL.Add('select * from a');
Open;
end;
except
begin
Close;
SQL.Clear;
SQL.Add('select * into a from b');
Execute(0);
Close;
SQL.Clear;
SQL.Add('select * from a');
Open;
end;
end;当不存在a表时,会报错,但为什么报错后,except后面的代码执行不了?没有从已有的B表复制生成A表,并显示出来
把Execute(0); 改成ExecSql;试下
还是执行了但是Except后的语句也出错了!
先执行下面语句
select count(1) from dbo.sysobjects where id = object_id(N'a') and OBJECTPROPERTY(id,N'IsUserTable') = 1
返回值=1则说明a表存在
if 返回值=0 then
begin
SQL.Add('select * into a from b ');
Execsql;
end;