Description :
(origine : Philippe Plançon - plancon@onetelnet.fr)
La fonction SQLError retourne l'erreur du dernier appel d'une instruction ODBC.
HEnv est un handle d'environnement.
Hdbc est un handle de connection.
hstmt est un handle de requête.
Requete est une chaîne de caractères contenant l'instruction SQL.
NativeError est le numéro de l'erreur ODBC Buffer est une chaîne de caractères recevant la description de l'erreur.
LenBuffer est la taille de Buffer OutLen retourne le nombre de caractères de la description de l'erreur.

Exemple d'utilisation :

' Procédure d'envoi d'une requête
' Retourne vraie si la requête n'a pas abouti
Function EnvoyerRequete(HEnv As Long, Hdbc As Long, _
                        Requete As String) As Boolean
' ---Déclaration des variables---
Dim NativeError As Long
Dim OutLen As Long
Dim BufLen As Long
Dim hstmt As Long
Dim Buffer As String
Dim SqlState As String
Dim i As Long
' ---Envoi d'une requete SQL---
SQLFreeStmt hstmt, 0
EnvoyerRequete = SQLPrepare(hstmt, Requete, Len(Requete))
EnvoyerRequete = SQLExecute(hstmt)
' ---retourne le message d'erreur---
If EnvoyerRequete Then
    Buffer = String$(256, 0) ' Remplir le Buffer
    SQLError HEnv, Hdbc, hstmt, Requete, NativeError, _
             Buffer, Len(Buffer), OutLen
    ' Retourne le message
    MsgBox Mid$(Buffer, 1, OutLen), _
           vbOKOnly + vbExclamation, "Erreur ODBC"
End If
End Function

Retour à la liste des API