首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

关于rs的怪有关问题,请进来看一下

2012-01-19 
关于rs的怪问题,请进来看一下SQLselect*fromsmswherestatus0 rs.OpenSQL,conn,3,3DoWhileNotrs.EOFAnd

关于rs的怪问题,请进来看一下
SQL   =   "select   *   from   sms   where   status=0 "

        rs.Open   SQL,   conn,   3,   3
       
Do   While   Not   rs.EOF   And   Not   rs.BOF

        If   SmsControl.SendMsg(rs( "to_number "),   rs( "content "))   =   0   Then

        rs( "status ")   =   1
        rs( "finish_time ")   =   Now()
        rs.Update
        rs.MoveNext
        i   =   i   +   1

        Else

        rs( "status ")   =   2
        rs( "finish_time ")   =   Now()
        rs.Update
        rs.MoveNext
        j   =   j   +   1

        End   If
loop

SmsControl.SendMsg是一个发短信控件的短信发送的方法,返回值为0表示一条短信发送成功。上面代码的意思就是发送成功了,就在数据库把该条短信的标志置为1,失败刚为2。现在的问题是,连发5条短信,如果用上述代码,就会有几条发送失败,而且有规律,成功的和失败是隔着来的。
如果去掉else和end   if之间的代码,5条短信就都能发送成功。

这算不算怪问题,请高人们给指点指点。

[解决办法]

Do While Not rs.EOF
...........
loop
[解决办法]
流程有问题
[解决办法]
我觉得除了代码冗余了一点
看不来问题
你断点进去看看
[解决办法]
是不是SmsControl.SendMsg发送信息有时间的要求,你增加一个延时的函数试试

热点排行