Discussion :

[vinzmeister]

Bonjour à tous,

Je viens vers vous, car je n'arrive pas à comprendre pourquoi mon Recorset ne contient rien du tout (valeur du recordcount : -1) alors que j'attends 2 enregistrements.

La requête qui est dans le code ci-dessous me retourne deux enregistrements quand je la lance sous Oracle.

Je me demande si j'ai omis quelque chose ? ...

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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
 
Sub testselect()
ConnexionOracle
nni = "F54170"
Set rs = New ADODB.Recordset
rqst = "SELECT EXPIRATION_DT FROM SC_USR_GRP_USR WHERE TRIM(USER_ID) = UPPER('" & nni & "')"
'rqst2 = "SELECT EXPIRATION_DT FROM SC_USR_GRP_USR"
MsgBox rqst
 
Set rs = cnx.Execute(rqst)
 
'With rs
If rs.RecordCount > 0 Then
MsgBox "il y a des enregistrements : " & rs.RecordCount
Else: MsgBox "il n'y a pas des enregistrements : " & rs.RecordCount
End If
 
'End With
DeconnexionOracle
 
End Sub
 
 
Sub ConnexionOracle()
 
    'récupération info pour connexion gardian
    Open fichierGardian For Input As #2
    Line Input #2, gard
    Close #2
 
    'Définition de la chaîne de connexion
    cnx.ConnectionString = gard
 
    'Si il y a une erreur de Base De Donnees => on stoppe le traitement
    On Error GoTo ErreurBDD
 
    'Ouverture de la base de données
    If cnx.State <> adStateOpen Then
        cnx.Open
    End If
 
    Exit Sub
 
ErreurBDD:
    If cnx.Errors.Count > 0 Then
        'Affichage des erreurs
        reponse = reponse & "Connexion Oracle Impossible : " & Chr(13) & "Erreur : " & Err.Description
        Exit Sub
    Else
        MsgBox Err.Description
    End If
 
End Sub
 
Sub DeconnexionOracle()
    If cnx.State = adStateOpen Then
        cnx.Close
    End If
End Sub

Par avance, merci pour votre aide ...

Vincent.

[Kimy_Ire]

Bonjour vinzmeister,

La variable "cnx" est-elle une variable publique ("globale") ?
Pour moi, ajoute l'Option Explicit avant l'ensemble de tes procédures et déclare correctement l'ensemble de tes variables.

Cela résoudra peut-être ton problème.

Cordialement,
Kimy

[vinzmeister]

Bonjour Kimy,

Bonjour vinzmeister,

La variable "cnx" est-elle une variable publique ("globale") ?
Pour moi, ajoute l'Option Explicit avant l'ensemble de tes procédures et déclare correctement l'ensemble de tes variables.

Cela résoudra peut-être ton problème.

Cordialement,
Kimy

Oui, cnx est une variable publique :

Code :

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

1
2
3
 
'Déclaration de la variable de connexion à la base de données
Public cnx As New ADODB.Connection

Elle est utilisée dans d'autres procédures qui appellent la procédure ConnexionOracle
Et j'avais testé voir si cnx marche vraiment en modifiant le nom de ma table Select en mettant un nom bidon, j'ai eu une erreur.
L'erreur a disparu quand je remettais le vrai nom de la table, la variable cnx marche donc bien.

Pour tester, j'avais remplacé ma requête Select par celle-ci :

Code :

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

select sysdate from dual

qui retourne obligatoirement un résultat.

Dans la procédure testselect(), le recorcount du recordset qui a récupéré le résultat du sysdate me retourne -1 au lieu de 1 ...

Je ne comprends pas ce qui ne va pas ... peut-être manque-t-il du code ? ...

Merci pour votre aide ...

[Invité]

Code :

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

1
2
3
Set rs = CreateObject("ADODB.RecordSet")
rs.open rqst,cnx
If rs.eof=false Then