修正了标准工时软件的一个BUG

前几个月为公司写的《标准工时软件》出了点问题,在使用Crystal report时总是提示:

实时错误 '-2147217887 (80040e21)'
Multiple-step OLE DB operation generated errors.Check each OLE DB status value, if available. No work was done.

烦死我了,什么错误呢?从字面看好象哪一个值出问题了。但是找了一下,又没有问题。代码段如下:

txtSQL = "delete tmp_haur"
Set mrc = ExecuteSQL(txtSQL, msgtext)
txtSQL = "select * from manhaur where filname='" & Trim(Texts(0).Text) & "'" & " and docno='" & _
Trim(Texts(1)) & "'" & " and rev='" & Trim(Texts(2)) & "'" & " order by number"
Set mrc = ExecuteSQL(txtSQL, msgtext)
txtSQL = "select * from tmp_haur where filname='" & Trim(Texts(0).Text) & "'" & " and docno='" & _
Trim(Texts(1)) & "'" & " and rev='" & Trim(Texts(2)) & "'"
Set mrcc = ExecuteSQL(txtSQL, msgtext)
Do While Not mrc.EOF
    mrcc.AddNew
    For intCount = 0 To 11 Step 1
            mrcc.Fields(intCount) = Trim(mrc.Fields(intCount))
    Next intCount
    mrcc.Update
    mrc.MoveNext
  
Loop
mrc.Close
mrcc.Close

执行的结果是将一个表里面属合条件的记录copy到另一个表中去,这样的错误,参考了http://216.55.180.187/vbasic22.shtml,问专家的网站给了我提示,会不会我的另一个表的数据类型不匹配,进入Sql Server查看一下,果真一个是8.2,另一个字段的scale是2.0,怎么会匹配呢。补改完成后,再次运行,完全正常,OK?

太开心了,另外也发现一个微软的网站,用于google,也是很爽的。

http://beta.search.msn.com

<script type=text/javascript charset=utf-8 src="http://static.bshare.cn/b/buttonLite.js#style=-1&uuid=&pophcol=3&lang=zh"></script> <script type=text/javascript charset=utf-8 src="http://static.bshare.cn/b/bshareC0.js"></script>
阅读(801) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~
评论热议
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值