解决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,故障原因及解决

    数据库版本的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方法导致”列名无效“错误的问题就是小编分享给大家的全部内容了,希望能给大家一个参考,也希望大家多多支持lingkb。