delphi TAdoQuery组件的close方法可能导致”列名无效“错误

Posted 2022-04-04 jackkwok

1，故障现象

 一次程序运行，出现如下错误：

 

对应代码如下：

 

 

2，故障分析

Query_alert_2的语句在查询分析器中单独执行是正常的。排除语句出错。

 

如果注解掉Query_alert_1，则错误变为Query_alert_3执行出错：

2019-07-11 09:32:26 Query_alert_1执行完毕

2019-07-11 09:32:27 Query_alert_2执行完毕

2019-07-11 09:32:42 Do_Update_Statis出错:列名 ‘bat_pos1‘ 无效。

 

如果注解掉Query_alert_1、Query_alert_2，则Query_alert_3执行正常。

 

可见，出现错误是delphi内数据库组件产生的，与数据库执行无关。

 

3，故障原因及解决

将执行过程中TADOQuery的close方法改为 “active := False”，如下：

 

结果多条SQL语句顺序执行正常。

4，总结

网上查询TADOQuery的close方法和设置属性“active := False”有何区别，发现大部分是说，query.close和query.active:＝false 意义一样
按ctrl 点击close 会发现 close 就是设置active为false

 

那为何实际代码执行效果却不一样呢？令人费解。看来坑还是不少的。