读取mysql的一段函数，看看这段代码哪里出错了 - VB6论坛

楼主

已结贴√ 问题点数：20 回复次数：1

读取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

[此贴子已经被作者于2021-3-4 00:52编辑过]

搜索更多相关主题的帖子: 读取　平台　错误　 mysql　代码　