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

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

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

原文地址：https://www.cnblogs.com/jackkwok/p/11169008.html