Information générale
Titre:
Bad connection does not raise error event
Hello Group,
When I pass a bad username and password to the following code I get the messagebox that "Connection Failed" but the error handler was not involked. When I send correct username and password it connects. Why isn't an error raised. I am reading Doug Hennig as we speak but it is sinking in slowly.
Thanks
Jim
lParam lcServer, lcUserID, lcPassword, lcDatabase
Local lnHandle,lcConnect
ON ERROR DO ODBCErrorHandler
lcConnect= "DRIVER={SQL Server};Server=" + lcServer + ";UID=" + lcUserID + ";PWD=" + lcPassword + ";Network=DBMSSOCN;" + "DATABASE=" + lcDatabase + ";"
lnHandle = SQLSTRINGCONNECT(lcConnect)
IF lnHandle < 1 then && No Connection was made
MESSAGEBOX("Connection Failed")
RETURN 0
ELSE && connection made return the connection Handle
RETURN lnHandle
ENDIF
ON ERROR
PROCEDURE ODBCErrorHandler
LOCAL lcErrorString
=AERROR(eray)
lcErrorString = "Error Number " + alltrim(str(eray(1)))
MessageBox(lcString)
ENDPROC && ODBCErrorHandler
lParam lcServer, lcUserID, lcPassword, lcDatabase
Local lnHandle,lcConnect
ON ERROR DO ODBCErrorHandler
lcConnect= "DRIVER={SQL Server};Server=" + lcServer + ";UID=" + lcUserID + ";PWD=" + lcPassword + ";Network=DBMSSOCN;" + "DATABASE=" + lcDatabase + ";"
lnHandle = SQLSTRINGCONNECT(lcConnect)
IF lnHandle < 1 then && No Connection was made
MESSAGEBOX("Connection Failed")
RETURN 0
ELSE && connection made return the connection Handle
RETURN lnHandle
ENDIF
ON ERROR
PROCEDURE ODBCErrorHandler
LOCAL lcErrorString
=AERROR(eray)
lcErrorString = "Error Number " + alltrim(str(eray(1)))
MessageBox(lcString)
ENDPROC && ODBCErrorHandler
Suivant
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement