Discussion :

[informer]

Bonjour à tous,

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

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
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 :

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

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

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

Quelqu'un aurait une explication ?

[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.

[informer]

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




Bonjour 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é !

[deedolith]

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

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 :

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

Dim Chiffre As Byte

[informer]

Merci deedolith pour l'explication sur la notation hongroise

Par. Notre une idée sur l'erreur gérée par GetRows ?

[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 ?

[Thumb down]

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

Un GetRows positionne Eof à True!

[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 ?

[informer]

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



Si j'exécute un Getrows avec paramètres ---> NOK

[Jean-Philippe André]

Salut,

As-tu essayé un naïf

Code :

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

 vRows =  goADODBRset.GetRows(1,  , Array("LastName"))

[informer]

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

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