Discussion :

[LoDev]

Bonjour à tous,

le titre est, je l'espère, assez explicite.

Je développe un bibliothèque en VB qui se connecte sur une base pour insérer ou mettre à jour des données.

Exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Public Function BLABLA (3 paramètres...) As Integer
 
Dim dbcmd ADODB.Command
 
BLABLA
dbcmd.Text = insert ... ... ...
dbcmd.Execute (Resultat)

La variable Resultat me donne le nombre d'enregistrement affecté.

Je voudrais que dans le cas d'une erreur sur l'insert, récupérer cette information pour la remonter à l'utilisateur.
Pour mon cas, j'ai 3 colonnes (compteur, libelle, ID). L'ID doit être unique, mais peut être modifié par l'utilisateur. Par contre, s'il existe déjà, l'insertion ne fonctionne pas. L'information n'est pas remontée à l'utilisateur, car non récupérée.

Si qqun a une solution.

Merci

[ThierryAIM]

si conn est ta connexion (car je ne sais pas):

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Public Function BLABLA (3 paramètres...) As Integer
 
Dim dbcmd ADODB.Command
On Error Goto ErrorHandler
 
BLABLA
dbcmd.Text = insert ... ... ...
dbcmd.Execute (Resultat)
 
ErrorHandler:
    With conn
        If .Errors.Count > 0 Then
            For i = 0 To .Errors.Count - 1
                MsgBox .Errors(i).Number & " : " & .Errors(i).Description
            Next
        End If
    End With

[bidou]

L'erreur doit remonter dans la collection Errors de la connexion

[ThierryAIM]

L'erreur doit remonter dans la collection Errors de la connexion

ben c'est ce que j'ai écrit, non ?

[bidou]

oui, mais j'avais pas vu que tu avais répondu

[LoDev]

Merci, je vais tester ça.

[ThierryAIM]

oui, mais j'avais pas vu que tu avais répondu

pô grave

Dis puisque tu es là et qu'on en cause, y'a aussi la solution char d'assaut qui consiste à écrire un gestionnaire d'évènement, puisque une ADOcommand provoque un ev ExecuteComplete, normalement, et avec un retour d'erreur
Tu as déjà fait ça pour ADO ?

[bidou]

oui j'ai déjà pratiqué la chose, mais c'est une gestion asnchrone et c'est une approche un peu différente

[Vld44]

c'est curieux cela doit dépendre du sgbd car mon oracle m'explose à la tronche en remontant tout bien comme il faut les erreurs quand il y en a

[ThierryAIM]

Normal, ton Oracle, il est pas devin !

Pardon

Plus sérieusement, la discussion est intéressante, tu peux en dire plus ?

[bidou]

En même temps Oracle, c'est si ça pétait pas que ce serait surprenant

C'est oracle ou l'appli VB qui pête ?

[Vld44]

euh dans mon cas on parle bien d'une erreur ORA-XXXXX (ou PLS-XXXX)

J'utilise une procédure stockée par exemple, avec l'objet adodb.command, et au moment du "command.Execute , , adExecuteNoRecords" en cas d'erreur elle est remontée directement.

Je ne préfère par contre pas m'avancer sur les erreurs lors d'exécution de commandes sql conventionnelles (requêtes simples) car nous avons également un gestionnaire de connexion ado qui gère les erreurs remontées par oracle donc je ne suis plus sûr.