读取mysql的一段函数，看看这段代码哪里出错了
数据库用的是MYSQL ，能正常返回GetPTID，但就是有错误，就算去掉On Error GoTo Error，也不报错。
程序代码：Public Function GetPTID(ByVal Name As String) As Long '通过 平台名称 获取 平台ID
Dim temprs As ADODB.Recordset
Dim tempsql As String
On Error GoTo Error
tempsql = "SELECT id FROM plugin_账号密码_平台 WHERE 平台名称='" & Name & "'"
Set temprs = New ADODB.Recordset
temprs.Open tempsql, CN, adOpenKeyset, adLockReadOnly, adCmdText
If temprs.RecordCount > 0 Then
GetPTID = CLng(temprs.Fields("ID"))
Else
GetPTID = 0
End If
temprs.Close
Set temprs = Nothing
Error:
Debug.Print "ErrNum=" & Err.Number & ",ErrSource=" & Err.Source & ",ErrDes=" & Err.Description & ",modFunciton-GetPTID"
Resume Next
End Function错误代码：
ErrNum=0,ErrSource=,ErrDes=,modFunciton-GetPTID
ErrNum=20,ErrSource=Project,ErrDes=无错误恢复,modFunciton-GetPTID
ErrNum=20,ErrSource=Project,ErrDes=无错误恢复,modFunciton-GetPTID
[此贴子已经被作者于2021-3-4 00:52编辑过]
