ADO et gestion des retoursRésolu

Question

Bonjour,



J'utilise actuellement ADODB et je rencontre quelques soucis qui m'oblige &#224; des bidouilles pas tr&#232;s catholiques.



En fait je peux avoir plusieurs issues &#224; l'interrogation de la bdd.



1) Commande de type select qui renvoie un r&#233;sultat.



2) Commande de type select qui renvoie un recordset vide



3) Commande SQL erron&#233;e



4) Commande de type update qui ne renvoie pas de r&#233;sultat



Voici ma bidouille :

----------------

Public Function mysql_query(ByVal cmd As String, ByRef recset As
ADODB.Recordset, ByRef connec As ADODB.Connection, ByVal login As
String, ByVal password As String, ByVal source As String) As Integer





        Try

            '-------------   Open the Database ----------------

            connec.Open(source, login, password)

        Catch e As Exception

            Return 2

        End Try







        Try

            '----------- send SQL command -------------

            recset.Open(cmd, connec)

        Catch e As Exception

                'commande SQL incorrecte

            Return 1

        End Try



        Try

            If recset.BOF True And recset.EOF True Then

                'recordset vide

                Return 3

            End If



        Catch e As Exception

          'aucun r&#233;sultat n'est
renvoy&#233;, suppose que les instructions de type insert/replace/update se
sont bien deroul&#233;es ?

            Return 4

        End Try



        Return 0



    End Function

----------------

J'aimerai donc pouvoir piloter avec plus de pr&#233;cisions les r&#233;sultats de
mes requ&#234;tes et non pas faire de suppositions (notemment dans le cas 4)



Merci

cs_Jack · Accepted Answer

Salut
Et   recset.RecordCount    ne serait-il pas plus pratique pour savoir combien de r&#233;sultats sont arriv&#233;s ?
Pour les Select : recset.Open
Mais pour les Updates, il faut faire un  Connec.Execute

Vala
Jack, MVP VB
NB : Je ne r&#233;pondrai pas aux messages priv&#233;s 

Le savoir est la seule mati&#232;re qui s'accroit quand on la partage. (Socrate)
(je

jeoff · Answer

c'est bien ce je pensais :/



ca m'arrange pas du tout cette histoire car il faut que je repense une partie de mon application et j'ai plus beaucoup de temps.



Je vais d&#233;j&#224; t&#226;cher de finir le boulot, j'optimiserai plus tard ...



Merci :)

ADO et gestion des retours

2 réponses

Discussions similaires