解决delphi TAdoQuery组件的close方法导致”列名无效“错误的问题
1，故障现象
一次程序运行，出现如下错误：
对应代码如下：
2，故障分析
Query_alert_2的语句在查询分析器中单独执行是正常的。排除语句出错。
如果注解掉Query_alert_1，则错误变为Query_alert_3执行出错：
2019-07-1109:32:26Query_alert_1执行完毕
2019-07-1109:32:27Query_alert_2执行完毕
2019-07-1109:32:42Do_Update_Statis出错:列名'bat_pos1'无效。
如果注解掉Query_alert_1、Query_alert_2，则Query_alert_3执行正常。
可见，出现错误是delphi内数据库组件产生的，与数据库执行无关。
3，故障原因及解决
数据库版本的SQLServer2005，执行的这些SQL语句含有临时表，如：
ifOBJECT_ID('tempdb..#t1')>0
droptable#t1
执行正式的SQL之前，会运行以上语句，以删除当前同名的临时表。
但实际运行发现，这些临时表不一定会被删除，而当引用时，可能会引用到以前的临时表，导致栏位不存在错误。
因此，在Query_alert_1、Query_alert_2，Query_alert_3语句的最后，都加上drop临时表的语句，以确保临时表在下次使用前一定不存在。如：
--检查临时表是否在用，有则删除，以防错误
ifOBJECT_ID('tempdb..#t1')>0
droptable#t1
ifOBJECT_ID('tempdb..#t2')>0
droptable#t2
/*
执行相关业务逻辑SQL
select*
into#t1
fromtable1
。。。
。。。
*/
--执行完毕，清除临时表，以便下次再使用
ifOBJECT_ID('tempdb..#t1')>0
droptable#t1
ifOBJECT_ID('tempdb..#t2')>0
droptable#t2
修改后，结果多条SQL语句顺序执行正常。
4，总结
关于数据库临时表，一定要注意在查询器中执行和在程序代码中执行是有区别的。
区别在于查询器会自动提交交易，并清除临时表，而程序则不一定。
以上这篇解决delphiTAdoQuery组件的close方法导致”列名无效“错误的问题就是小编分享给大家的全部内容了，希望能给大家一个参考，也希望大家多多支持毛票票。
声明：本文内容来源于网络，版权归原作者所有，内容由互联网用户自发贡献自行上传，本网站不拥有所有权，未作人工编辑处理，也不承担相关法律责任。如果您发现有涉嫌版权的内容，欢迎发送邮件至：czq8825#qq.com（发邮件时，请将#更换为@）进行举报，并提供相关证据，一经查实，本站将立刻删除涉嫌侵权内容。