用VB開發的代碼如下：是一個查詢頁面
Private Sub call_proc(ByVal num As String, ByVal cname As String, ByVal point As Integer)
Dim cnum As String
Dim in_xh, in_kch, in_cj '存盤程序執行引數
'根據課程名查詢課程號
sqlcmd.CommandType = adCmdUnknown
sqlcmd.CommandText = "Select kch from kcb where kcm='" + cname + "'"
Set SqlRes = sqlcmd.Execute
If Not SqlRes.EOF Then
cnum = SqlRes("kch")
End If
If num <> "" And cnum <> "" And IsNumeric(point) = True Then
sqlcmd.CommandText = "Cj_Data"
sqlcmd.CommandType = adCmdStoredProc
'追加引數法呼叫存盤程序
Set in_xh = sqlcmd.CreateParameter("in_xh", adChar, adParamInput, 6)
sqlcmd.Parameters.Append (in_xh)
Set in_kch = sqlcmd.CreateParameter("in_kch", adChar, adParamInput, 3)
sqlcmd.Parameters.Append (in_kch)
Set in_cj = sqlcmd.CreateParameter("in_cj", adInteger, adParamInput, 2)
sqlcmd.Parameters.Append (in_cj)
'引數賦值
sqlcmd("in_xh") = num
sqlcmd("in_kch") = cnum
sqlcmd("in_cj") = point
sqlcmd.Execute
'洗掉引數
sqlcmd.Parameters.delete ("in_XH")
sqlcmd.Parameters.delete ("in_kch")這里這句話出錯
sqlcmd.Parameters.delete ("in_cj")
'重繪cjADO空間
cjADO.RecordSource = "select * from XS_KC_CJ where XH='" + num + "'"
cjADO.Refresh
Else
MsgBox ("請輸入正確的成績資訊")
End If
要怎么改啊，前面定義的型別也沒錯啊
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/59414.html
上一篇：一個AHK的問題