Jag har bytat från MyVbQL http://www.icarz.com/mysql/ till VBMySQLDirect http://www.vbmysql.com/projects/vbmysqldirect/.

Nu har jag fått ett problem, så fort någon tex: skriver felanvändarnamn så blir det runtime error 40003, server error dettected. Innan så kom min egen felruta upp se kod nedan. Någon som vet om man kan fixa så att inte runtime error meddelandet kommer upp?

'Anslut till server ...
MyConn.OpenConnection SERVER, frmLogin.txtUserName, frmLogin.txtPassword, DATABAS

' Kontrollera ifall det finns en db connection
ControlMySQLConn

End Sub

Sub ControlMySQLConn()
If MyConn.State = MY_CONN_OPEN Then
MsgBox ("Ansluten till MySQL server"), vbInformation
Else
If MyConn.Error.Number <> 0 Then 'ShowDBError
MsgBox "Error " & MyConn.Error.Number & ": (" & MyConn.Error.Description & ")", vbCritical
End If

End If
'MsgBox "Error " & MyConn.Error.Number & ": (" & MyConn.Error.Description & ")", vbCritical

End Sub

Du får lägga till felhantering (On Error...) så slipper du runtime-felet.

/Johan

Jag la till

On Error Resume Next

innan

'Anslut till server ...
MyConn.OpenConnection SERVER, frmLogin.txtUserName, frmLogin.txtPassword, DATABAS

så nu fungerar det.

Tack för hjälpen.