|
~ Edito ~
12/03/2006 @ 13:39
Depuis la dernière mise à jour (qui remonte à... oulala plusieurs mois), un petit ménage de printemps s'impose. Ca tombe bien, c'est presque la période.
Au menu, et progressivement sur les jours à venir, rafraîchissement de plusieurs fonctions et procédures, nouvelles APIs et nouveaux programmes.
~ Rechercher ~
~ Annuaire VB ~
~ Partenaires ~
|
Fonction SQLExecute
Declare Function SQLExecute Lib "odbc32.dll" ( _
ByVal hstmt As Long) As Long
Versions :
. Windows 95/98 : Oui
. Windows NT : A partir de 3.1
. Windows 2000/XP : OuiDescription :
(origine : Philippe Plançon - plancon@onetelnet.fr)
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 |
