只是查询数据库，会让vb产生错误，退出？

[hangdogj]

一个小程序，连接短信网关，登陆没有问题，可是一发送短信vb就产生错误
form_load里面，我是这样定义的
Private Sub Form_Load()
Set conYl001 = New Connection
Set rstSend = New Recordset

With conYl001 '定义连接对象的属性
.Provider = "sqloledb"
.ConnectionString = "user id =sa;password=fjdksla;" & "data source=yl002;" & "initial catalog=yl001;"
.Open
End With

With rstSend '定义记录集属性
.CursorLocation = adUseServer
.CursorType = adOpenDynamic
.LockType = adLockPessimistic
End With

End Sub

发送短信
Private Sub cmdSend_Click()
On Error GoTo errmsg
Dim ret As Byte
Dim destaddr As String '目标地址
Dim userdata As String '发送的短信内容
Dim udlen As Long '数据长度
Dim smid As Long '返回的短信编号
Dim FCS As Byte '返回失败原因
rstSend.Open "select mobile ,content,smsflag from send where smsflag=0 order by id desc", conYl001, 1, 3

'循环发送短信语句
Do While Not rstSend.EOF
rstSend.AddNew
userdata = rstSend.Fields("content")
destaddr = rstSend.Fields("mobile")
udlen = Len(userdata)
'调用发送短信的函数
ret = SubmitAExEx(2, 1, "99999", 2, 1, "13733333333", 0, 0, 0, 0, 0, 8, 0, "2004/12/07 14:55:00", "2004/12/07 14:55:00", 0, 0, udlen, userdata, "service_type ", 0, 0, 0, 0, 3, "999999", "01", destaddr, 20, 1, destaddr, smid, FCS)
rstSend.Update
rstSend.Fields("smsflag") = 1
rstSend.MoveNext
Loop

errmsg:
MsgBox "error " & Err.Number & " error des " & Err.Description & " error help " & Err.HelpContext

End Sub

[myhgyp]

帮你UP一下吧

[hangdogj]

多谢up

[dayanmao]

up

[ryuginka]

Set conYl001 = New adodb.Connection
Set rstSend = New adodb.Recordset

另外不要用ADDNEW的方法，用INSERT INTO的SQL语句执行效率高，你试试

[gordon1979]

短信网关虽然可以连接进去，不过你确定有这个权限（增加记录，也就是发信息）

[hangdogj]

to ryuginka(除了我谁敢用真名：刘银华) ：谢谢，我已经改过来了，但问题还是没有解决。只要一点击发送按钮，就会弹出对话框：“vb6产出了错误，会被windows关闭。你需要重新启动程序。”
事件查看器里面还没有记录

to gordon1979(CGD) : 权限我是有的

[longki]

单步debug~

[hangdogj]

to longki(农民写代码) ：单步debug也不行啊
错误处理都用不上。只要一点击发送按钮，就会弹出对话框：“vb6产出了错误，会被windows关闭。你需要重新启动程序。正在创建错误日志 。”

事件查看器里面没有错误日志阿，请问怎么查看？

[hangdogj]

连接网关 ：
Private Sub cmdConnect_Click()
' On Error GoTo errmsg
Dim ret As Boolean
ret = IFInitInterface(5, 1, "211.xx.xx.xx 7890 5000") '初始化
If ret = True Then
'cmdLoggin.Enabled = True
MsgBox "初始化成功", vbOKCancel, "连接网关"
cmdExit.Enabled = True
Else
MsgBox "初始化失败"
End If

用步进debug运行了
ret = IFInitInterface(5, 1, "211.137.207.101 7890 5000") '初始化
显示 ret的值为true，竟然弹出“初始化失败”的消息框？？