Discussion :

[BERRACHED SAID]

Bonjour tout le Monde et Bonne journée

je travaille sur une application VB6 et pour pouvoir faire des recherches j'utilise un code qui devrait normalement prendre la 5 eme colonne de cette table comme référence et m'affiche le résultat escompté sur des labels je tâtonne ça fait plus d'une semaine mais rien a faire je bloque il m'affiche rien et aucun message d'erreur

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
18
19
20
21
22
23
24
25
26
27
28
29
30
Private Sub Find_Click()
Dim rs As String
Dim crit As String
On Error Resume Next
If IsNumeric(Text1.Text) = False Then
MsgBox ("Entrer le Nr de la Rente ici.")
Exit Sub
End If
If Text1.Text = "" Then
MsgBox ("Entrer le N° du Rentier")
Exit Sub
End If
crit = "Rente = " & "'" & Text1.Text & "'"
rsIdentif.Find (crit), 0, adSearchForward
Set rsIdentif = New ADODB.Recordset
rs = "select * from TIdentif (crit)"
rsIdentif.Open rs, conn, adOpenKeyset, adLockOptimistic, adCmdText
If rsIdentif.RecordCount = 0 Then
MsgBox ("Ce Rentier n´existe pas encore, veuillez l´enrégistrer.")
Text1.Text = ""
Else
rsIdentif.MoveLast
Label14.Caption = rsIdentif!NumEnreg
Label15.Caption = rsIdentif!Nom
Label16.Caption = rsIdentif!Prenom
Label17.Caption = rsIdentif!Adresse
Label18.Caption = rsIdentif!Rente
Label19.Caption = rsIdentif!MontantAnnuel
End If
End Sub

Merci d'avance pour l'aide et vos contributions

[DAUDET78]

Je ne comprend pas grand chose à ton soft (je suis un débutant!) mais tu as au début :

Code :

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

On Error Resume Next

Donc tu n'as aucune gestion d'erreur !

[ProgElecT]

Code :

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

rs = "select * from TIdentif Where "  & crit

[BERRACHED SAID]

merci a vos deux

ProgElect je te tire chapeau c'est bien ce qui manqué merci ça marche très bien

[justgreat]

Je ne comprend pas grand chose à ton soft (je suis un débutant!) mais tu as au début :

Code :

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

On Error Resume Next

Donc tu n'as aucune gestion d'erreur !

y a beaucoup,d'ailleurs qui se moquent de "On Error Resume Next", mais c'est parce qu'ils ne savent pas s'en servir comme il faut, bien que c'est une instruction très importante des fois pour la gestion des erreurs !

De meme, le "Resume Next" tout seul c'est super important pour la bonne gestion d'erreur

[DAUDET78]

y a beaucoup,d'ailleurs qui se moquent de "On Error Resume Next",

Oh que je suis d'accord avec toi pour gérer les erreurs VB6 qui sont générées par l'extérieur (exemple : un open avec un string égal à "" car le nom du fichier n'est pas encore disponible)

Code :

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

1
2
3
4
5
6
7
8
Fichier$=Valeur$
On Error resume next
open Fichier$ for input as #1
Er%=Err
On Error goto 0
if Er% >1 then
' gestion de l'erreur
End If

Mais mettre un On Error resume next en tête de procédure , c'est idiot (et dangereux !)

[justgreat]

Oh que je suis d'accord avec toi pour gérer les erreurs VB6 qui sont générées par l'extérieur (exemple : un open avec un string égal à "" car le nom du fichier n'est pas encore disponible)

Code :

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

1
2
3
4
5
6
7
8
Fichier$=Valeur$
On Error resume next
open Fichier$ for input as #1
Er%=Err
On Error goto 0
if Er% >1 then
' gestion de l'erreur
End If

Mais mettre un On Error resume next en tête de procédure , c'est idiot (et dangereux !)

Oui je ne parlais pas du cas de BERRACHED SAID, dans son cas tout ce qu'il fait est que s'il y a une erreur l'application ne fait pas un "Crash" mais il gère aucune erreur , je parlais en général car j'ai entendu beaucoup de personne qui se moquent de "resume next" parce qu'ils ne savent pas s'en servir ils disent que c'est inutile.