Question

vb 生成exe 后提示运行的错误'5',无效的过程调用或参数

Private Sub cmddelete_Click()
Dim a As Integer
If renzheng() Then
If Adodc1.Recordset.RecordCount = 0 Then
MsgBox "暂时没有消费记录!"
Exit Sub
End If
a = MsgBox("删除后无法恢复!确认要删除该记录吗?", vbYesNo + vbInformation, "警告信息")
If a = vbYes Then
Adodc1.Recordset.Delete
Adodc1.Recordset.UpdateBatch

If Adodc1.Recordset.RecordCount = 0 Then
MsgBox "暂时没有消费记录!"
Exit Sub
End If
If Adodc1.Recordset.EOF Then
Adodc1.Recordset.MoveLast
Else
Adodc1.Recordset.MoveNext
If Adodc1.Recordset.EOF Then
Adodc1.Recordset.MoveLast
End If
End If
MsgBox "恭喜您!删除成功!"
End If
Else
MsgBox "身份认证失败,密码错误!"
End If
End Sub

Answer 1

你应御纤该在调试状态看一下出错在哪 一行哗拆粗
别直接编译成EXE文件乱镇后执行

天知道出错在什么地方

追问

调试状态没有错误啊，能过去，也能成功。

Answer 2

这里可只有一个过程renzheng() ，检查一个是不是定义了，是不是函数，或者是否需要参数。

Answer 3

这个你光给一部分没有用啊，要看全部的内容才行啊。