解决delphi TAdoQuery组件的close方法导致”列名无效“错误的问题
更新时间：2020年02月15日 14:33:00 作者：jack0424
今天小编就为大家分享一篇解决delphi TAdoQuery组件的close方法导致”列名无效“错误的问题，具有很好的参考价值，希望对大家有所帮助。一起跟随小编过来看看吧
（福利推荐：【腾讯云】服务器最新限时优惠活动，云服务器1核2G仅99元/年、2核4G仅768元/3年，立即抢购>>>：9i0i.cn/qcloud）
（福利推荐：你还在原价购买阿里云服务器？现在阿里云0.8折限时抢购活动来啦！4核8G企业云服务器仅2998元/3年，立即抢购>>>：9i0i.cn/aliyun）
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，故障原因及解决
数据库版本的SQLServer2005，执行的这些SQL语句含有临时表，如：
if OBJECT_ID('tempdb..#t1')>0
drop table #t1
执行正式的SQL之前，会运行以上语句，以删除当前同名的临时表。
但实际运行发现，这些临时表不一定会被删除，而当引用时，可能会引用到以前的临时表，导致栏位不存在错误。
因此，在Query_alert_1、Query_alert_2，Query_alert_3语句的最后，都加上drop 临时表的语句，以确保临时表在下次使用前一定不存在。如：
--检查临时表是否在用，有则删除，以防错误
if OBJECT_ID('tempdb..#t1')>0
drop table #t1
if OBJECT_ID('tempdb..#t2')>0
drop table #t2
/*
执行相关业务逻辑SQL
select *
into #t1
from table1
。。。
。。。
*/
--执行完毕，清除临时表，以便下次再使用
if OBJECT_ID('tempdb..#t1')>0
drop table #t1
if OBJECT_ID('tempdb..#t2')>0
drop table #t2
修改后，结果多条SQL语句顺序执行正常。
4，总结
关于数据库临时表，一定要注意在查询器中执行和在程序代码中执行是有区别的。
区别在于查询器会自动提交交易，并清除临时表，而程序则不一定。
以上这篇解决delphi TAdoQuery组件的close方法导致”列名无效“错误的问题就是小编分享给大家的全部内容了，希望能给大家一个参考，也希望大家多多支持程序员之家。
相关文章
这篇文章主要介绍了Delphi 实现软件自动升级的功能的相关资料,希望通过本文能帮助到大家实现这样的功能，需要的朋友可以参考下2017-09-09
这篇文章主要介绍了Delphi实现毫秒级别的倒计时实例代码,需要的朋友可以参考下2014-07-07
这篇文章主要介绍了delphi实现将BMP格式图形转化为JPG格式图形的方法,通过简单的自定义函数调用系统自带的changefileext及SaveToFile等方法来实现格式转换功能,是非常实用的技巧,需要的朋友可以参考下2014-12-12
这篇文章主要介绍了delphi 判断字符串是否为纯数字组合,需要的朋友可以参考下2022-12-12
这篇文章主要介绍了TImage组件实现保存图片到Stream以及从stream中读取图片的方法，非常的实用，有需要的小伙伴可以参考下2016-05-05
这篇文章主要介绍了Delphi实现判断网址是否存在及是否可以打开的方法,需要的朋友可以参考下2014-07-07
这篇文章主要介绍了Delphi7中群发Email邮件的方法,涉及邮件服务器软件的使用,电子邮件的判断与发送功能的实现,是非常实用的技巧,需要的朋友可以参考下2014-12-12
前言我写Delphi程序是从MIS系统入门的，开始尝试子系统划分的时候采用的是MDI窗体的结构。随着系统功能的扩充，不断有新的子系统加入系统中，单个工程会变得非常大，每次做一点修改都要重新编译，单个工程的形式也不利于团队协作。为了提高工作效率，我希望利用DLL动态链接库的形式实现插件结构的编程。2008-03-03
这篇文章主要介绍了Delphi实现截屏存盘的方法,涉及Delphi图片操作的相关技巧,需要的朋友可以参考下2015-05-05
插件管理框架 for Delphi许多软件采用“插件”（PlugIns）来扩展其功能，比如PhotoShop所支持的各类滤镜就是插件；我们所熟知的Winamp，也有许多皮肤以及可视效果插件。再有微软的windows media player，以及QQ，冲浪软件Opera……采用插件技术的软件数不胜数，而各个软件的具体实现方式也是五花八门，各有特点。2008-03-03
最新评论