广告位联系
返回顶部
分享到

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

Delphi 来源:转载 作者:秩名 发布时间:2021-10-15 14:07:20 人浏览
摘要

1,故障现象 一次程序运行,出现如下错误: 对应代码如下: 2,故障分析 Query_alert_2的语句在查询分析器中单独执行是正常的。排除语句出错。 如果注解掉Query_alert_1,则错误变为Query_alert_3执行出错: 2019-07-11 09:32:26 Query_alert_1执行完毕 2019

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,总结

关于数据库临时表,一定要注意在查询器中执行和在程序代码中执行是有区别的。

区别在于查询器会自动提交交易,并清除临时表,而程序则不一定。


版权声明 : 本文内容来源于互联网或用户自行发布贡献,该文观点仅代表原作者本人。本站仅提供信息存储空间服务和不拥有所有权,不承担相关法律责任。如发现本站有涉嫌抄袭侵权, 违法违规的内容, 请发送邮件至2530232025#qq.cn(#换@)举报,一经查实,本站将立刻删除。
原文链接 : https://www.cnblogs.com/jackkwok/p/11169008.html
相关文章
  • 本站所有内容来源于互联网或用户自行发布,本站仅提供信息存储空间服务,不拥有版权,不承担法律责任。如有侵犯您的权益,请您联系站长处理!
  • Copyright © 2017-2022 F11.CN All Rights Reserved. F11站长开发者网 版权所有 | 苏ICP备2022031554号-1 | 51LA统计