procedure TForm1.SqlSelect(sSql: string);
begin adoQuery1.CommandTimeout:=2000;
adoQuery1.Close;
adoQuery1.sql.Clear;
adoQuery1.SQL.Text :=sSql;
adoQuery1.Open;
//这里连接查询Informix数据,但是有时候因为表锁定,会报错,那么程序就有异常,而停止了,现在如何处理,让异常不显示,然后程序照常继续执行呢? if adoQuery1.RecordCount <= 0 then
begin
adoQuery1.CommandTimeout:=3000;
adoQuery1.Close;
adoQuery1.sql.Clear;
adoQuery1.SQL.Text :=sSql;
adoQuery1.Open;
end ;
end;
begin adoQuery1.CommandTimeout:=2000;
adoQuery1.Close;
adoQuery1.sql.Clear;
adoQuery1.SQL.Text :=sSql;
adoQuery1.Open;
//这里连接查询Informix数据,但是有时候因为表锁定,会报错,那么程序就有异常,而停止了,现在如何处理,让异常不显示,然后程序照常继续执行呢? if adoQuery1.RecordCount <= 0 then
begin
adoQuery1.CommandTimeout:=3000;
adoQuery1.Close;
adoQuery1.sql.Clear;
adoQuery1.SQL.Text :=sSql;
adoQuery1.Open;
end ;
end;
解决方案 »
- 怎么拷贝adoquery控件中的结果
- 面向公司求零售,超市系统
- delphi 中sql语句的字符串怎么使用和处理?
- ▉▉▉win98机器接宽带上网,有时能连上网,有时连不上,网络不通。真是怪了。
- Webbrowser问题,深受困扰,求指点迷津
- delphi中调用dll
- 我的delphi 6菜单的project---options...不能打开?
- 求教 Delphi Uses RT_ClientServerInterface问题
- 比较基本的问题,怎么样让代码折行(一行里太长,在下一行显示)?
- 新年献礼,发分了:CSDN博客备份博客下载神器、cnblogs博客备份博客下载神器
- 急聘DELPHI高手
- delphi+sql server环境下,如何读取EXCEL表,并存入数据表中?
cmdData.CommandText := sql;
cmdData.Execute;
except
begin end;
end;
//如果try到except之间的语句发生异常,将执行这里的语句,并不抛出异常
end;