VBA - ADODB.Recorset.getrows - Erreur d'exécution 424 Objet requis

Version imprimable

1 pièce(s) jointe(s)

Bonjour à tous,

Je tente de comprendre la commande ADODB.Recordset.Getrows sur un recordset alimenté par une requête SQL SERVER.

Code:

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
60
61
62
63
64
65
66
67
68
69
70
71
72
73
Private Sub cmdODBCStoreProc_Click()
 
    Dim vRows As Variant
    Dim sFirstName As String
    Dim iRows As Integer
 
    Call mfADODBCnxOpen
 
    Set goADODBRset = New ADODB.Recordset
 
    sFirstName = ""
    'sFirstName = """Le Nom"""
 
    With goADODBRset
        Set .ActiveConnection = goADODBCnx
        .Source = "EXEC [SalesLT].[spOrder]  " & sFirstName
        .LockType = adLockOptimistic
        .CursorType = adOpenKeyset
        .CursorLocation = adUseClient
        .Open
    End With
 
    iRows = goADODBRset.RecordCount
    MsgBox iRows
 
    'Set Forms("frmMain").Form.Controls("ctnrFrm2").Form.Recordset = goADODBRset
    Set Forms("frmMain").Form![ctnrFrm2].Form.Recordset = goADODBRset
 
    '********************************************************************************
    '
    '  Demonstration*of*the*Fields*Parameter*of*GetRows()
    '
    '********************************************************************************
 
    'Let's retrieve only the LastName Field in the rstEmployees Recordset
    vRows =  goADODBRset.GetRows(1,  , "LastName")
 
    'Let's retrieve only the 3rd Field ([Address]) in the rstEmployees Recordset
    varEmployees = rstEmployees.GetRows(rstEmployees.RecordCount, , 2)
 
    'Let's retrieve the [Address], [City], and [Region Fields by passing an Array of these Field Names as the Fields Parameter 
    vFieldNames = Array("CustomerID", "FirstName")
    vRows =  goADODBRset.GetRows(,  ,  avarFieldNames)
 
    goADODBRset.Close
    Set goADODBRset = Nothing
    Call mfADODBCnxClose
 
End Sub
 
 
Public Function mfADODBCnxOpen()
 
    Dim i  As Integer
    On Error GoTo Err_ 
 
    gsMsgErr = ""
 
    Set goADODBCnx = New ADODB.Connection
 
    With goADODBCnx
        .CommandTimeout = 15
        .Mode = adModeReadWrite
        .ConnectionString = ADODB_STRINGCNX
    End With
 
    goADODBCnx.Open    
Exit_:
        Exit Function
Err_:   
    gsMsgErr = Err.Number & Chr(13) & Err.Description
    GoTo Exit_
End Function

avec le code sur GetRows

Code:

1
2
3
4
5
6
7
8
9
 'Let's retrieve only the LastName Field in the rstEmployees Recordset
 vRows =  goADODBRset.GetRows(1,  , "LastName")
 
 'Let's retrieve only the 3rd Field ([Address]) in the rstEmployees Recordset
 varEmployees = rstEmployees.GetRows(rstEmployees.RecordCount, , 2)
 
 'Let's retrieve the [Address], [City], and [Region Fields by passing an Array of these Field Names as the Fields Parameter 
 vFieldNames = Array("CustomerID", "FirstName")
 vRows =  goADODBRset.GetRows(,  ,  avarFieldNames)

Quand une ligne de code GetRows est exécutée alors il y a l'erreur suivante

Citation:

Erreur d'exécution '424' -Objet requis

Pièce jointe 630796

Quelqu'un aurait une explication ?

16/12/2022, 01h00
deedolith

Je n'ai pas resussi à reproduire ce comportements, cependant:
Je pense que pour une raison quelconque, ta référence goADODBRset à "sauté", n'y a t'il pas une gestionnaire d'évènements qui interfère ?

PS:
Abandonne la notation hongroise, ca ne sert qu'a polluer ton code source.
16/12/2022, 15h29
informer

1 pièce(s) jointe(s)

Citation:

Envoyé par deedolith

Je n'ai pas resussi à reproduire ce comportements, cependant:
Je pense que pour une raison quelconque, ta référence goADODBRset à "sauté", n'y a t'il pas une gestionnaire d'évènements qui interfère ?

deedolith, tu avais raison, il semblerait que le goADODBRset n'était pas interprété comme un recordset. En le copiant collant juste depuis With goADODBRset pour le remplacer là où ca demandait un objet, ça a résolu le bug.

Mais nouveau bug

Pièce jointe 630870

Bonjour deedolith

Citation:

Envoyé par deedolith

PS:
Abandonne la notation hongroise, ca ne sert qu'a polluer ton code source.

J'adore ce pays, mais là tu m'as largué ! :chin:
16/12/2022, 16h41
deedolith

Citation:

Envoyé par informer

J'adore ce pays, mais là tu m'as largué ! :chin:

La notation hongroise consiste à ajouter un prefix aux noms de variables (g, o, s, str, i, l, frm ect .....) en fonction de leur type.
Mais, un bon nom de variable doit avant tout nous renseigner sur son role, le type n'est important que pour le compilateur.
De plus, les IDE proposent plein de façon pour connaître le type d'une variable.
Donc, dans le nom de la variable, c'est superflu, redondant, et rend la lecture plus difficile.

Garde bien en tête que le but premier d'un code source est d'être lu. Produire le comportement attendu n'arrive qu'en seconde position.

Exemple concret:
On désire stocker un chiffre.
Que ce soit un octet (Byte), entier (integer), entier long (Long), chaine (String), on s'en fout !
L'important est: Ca représente un chiffre.
Une implémentation possible:

Code:

Dim Chiffre As Byte
19/12/2022, 18h10
informer

Merci deedolith pour l'explication sur la notation hongroise

Par. Notre une idée sur l'erreur gérée par GetRows ?
23/12/2022, 22h45
Jean-Philippe André

Salut,

~~est-ce que GetRows n'est pas considéré ici comme un objet, nécessitant un Set dans l'affectation ?~~

Ton erreur n'apparait que sur la seconde occurence de ton objet, et pas sur la premiere, correct ?
23/12/2022, 22h48
Thumb down

Bonsoir,
Non GetRows retourne le recordset sous forme d'array

Un GetRows positionne Eof à True!
25/12/2022, 16h02
Jean-Philippe André

Salut,

dans ce cas de figure, est-ce qu'après ton erase, il reste encore des données dans ton getrows ?

Le fait de tenter le tout avec un EXEC dans SQL Server, ca peut expliquer ?

Quel est exactement le but de ton code ici stp ?
26/12/2022, 12h24
informer

2 pièce(s) jointe(s)

Bonjour Jean-Philippe,

Mon objectif est de créer une requête générique pour ensuite récupérer les champs qui me sont nécessaires

Si j'exécute un Getrows sans paramètres ---> OK
Pièce jointe 631378

Si j'exécute un Getrows avec paramètres ---> NOK
Pièce jointe 631379
26/12/2022, 16h54
Jean-Philippe André

Salut,

As-tu essayé un naïf

Code:

vRows = goADODBRset.GetRows(1, , Array("LastName"))
26/12/2022, 17h37
informer

Merci pour ta suggestion Jean-Philippe mais toujours l'erreur 3421 :mur:

Et j'ai vérifié le recordset, il est correctement affecté car avec getRows() -> Ok