在運行管理系統修改資訊時候出現問題，具體除錯時候說至少一個引數沒有被指定值。
加粗部分為有問題的那一句
想請各位能幫忙看一下是哪里有問題，該怎么解決，資料庫是Access
'執行資料庫操作陳述句
Public Sub SQLExt(ByVal TmpSQLstmt As String)
'創建Command物件cmd
Dim cmd As New ADODB.Command
'連接到資料庫
DB_Connect
'設定cmd的ActiveConnection屬性，指定與其關聯的資料庫連接
Set cmd.ActiveConnection = cnn
'設定要執行的命令文本
cmd.CommandText = TmpSQLstmt
'MsgBox TmpSQLstmt
'執行命令
cmd.Execute
'清空cmd物件
Set cmd = Nothing
'斷開與資料庫的連接
DB_Disconnect
End Sub
在下面這段代碼中是洗掉資訊時候出現的，提示型別不匹配，具體陳述句也加粗了。我是剛學不多，麻煩大家教導。
Private Sub Cmd_Del_Click()
If Adodc1.Recordset.EOF = True Then
MsgBox "請選擇記錄"
Exit Sub
End If
If MsgBox("是否洗掉當前記錄?", vbYesNo, "確認") = vbYes Then
Call MyContact.Delete(Adodc1.Recordset.Fields(0))
RefreshSaleChance
End If
End Sub
uj5u.com熱心網友回復：
MyContact.Delete 這個方法沒貼，不知道怎么了。uj5u.com熱心網友回復：
您好，我想問一下，您說得是什么意思？我不太明白uj5u.com熱心網友回復：
注釋掉所有On Error Resume Next陳述句，在VB6 IDE中運行，出錯后點擊除錯，游標會停在出錯的那條陳述句處，
或者
事先在懷疑可能有邏輯錯誤的陳述句處設定斷點，運行經過斷點時中斷，
此時可以在立即視窗中使用
?變數名
或
?函式名(函式引數)
或
程序名(引數)
輔助除錯。
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/48472.html
標籤：網絡編程
上一篇：找人寫個AI斗地主