Discussion :

[sash6]

Bonjour tout le monde,

Ca fait un bout de temps que je n'avais pas à programmer et du coup pas de questions bêtes
Actuellement, je travaille sur des extractions de base de données. Ca fait toute l'après-midi que je fouille sur le site pour comprendre comment ça marche et d'essayer de trouver un code:

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
Public Sub extraction()
 
   Dim Connexion As New ADODB.Connection
    Dim RS As New ADODB.Recordset
    Dim Cellule As Range
 
    Connexion.Open "DSN=MS Access Database;DBQ=C:\Regroupement.mdb;FIL=MS Access;"
    Set RS = Connexion.Execute("select CODE, EOG Fournisseur, EUR, annee from qrySTANDARDOUTPUTQUERY-French")
 
    Do While Not RS.EOF
        Set Cellule = Range("a65536").End(xlUp)(2)
        With RS
            Cellule(3, 1) = !EOG Fournisseur
            Cellule(3, 2) = !EUR
            .MoveNext
        End With
    Loop
 
End Sub

Malgré mes recherches j'ai plusieurs questions:
1.Le nom de champ "EOG Fournisseur" semble poser des problèmes...Peut-on laisser des espaces dans le champ d'un nom? Toutefois lorsque je l'enlève l'erreur demeure...
2.D'où ma seconde question: peut-on travailler sur des requêtes où il faut prendre les tables d'origine?
3.Peut-on faire des tris (décroissant, somme, regroupement)?
4.Dernière question, puis-je utiliser l'explorateur windows pour séléctionner le fichier de base de données? En fait chez nous, chaque année on prend un nouveau fichier pour stocker les données mais qui garde exactement la même structure que l'année précédente.

Je vous remercie d'avance pour vos réponses! en attendant je continue ma fouille!

[jfontaine]

En espérant répondre a tes questions

1.Le nom de champ "EOG Fournisseur" semble poser des problèmes...Peut-on laisser des espaces dans le champ d'un nom? Toutefois lorsque je l'enlève l'erreur demeure...

un champ ne doit pas comporter d'espace. Dans ton cas il faut mettre le nom du champ entre crochets [EOG Fournisseur]

D'où ma seconde question: peut-on travailler sur des requêtes où il faut prendre les tables d'origine?

C'est comme tu veux, les 2 fonctionne

3.Peut-on faire des tris (décroissant, somme, regroupement)?

oui, il suffit de le faire dans la requete
Ex : tri sur le code en décroissant

Code :

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

select CODE, EOG Fournisseur, EUR, annee from qrySTANDARDOUTPUTQUERY-French order by Code desc

4.Dernière question, puis-je utiliser l'explorateur windows pour séléctionner le fichier de base de données? En fait chez nous, chaque année on prend un nouveau fichier pour stocker les données mais qui garde exactement la même structure que l'année précédente.

dans ce cas le chemin de la base doit être une variable que tu chargeras de la facon que tu souhaites

[Maxence HUBICHE]

1.Le nom de champ "EOG Fournisseur" semble poser des problèmes...Peut-on laisser des espaces dans le champ d'un nom? Toutefois lorsque je l'enlève l'erreur demeure...

Contrairement à mon prédescesseur, je vais te dire : Oui, tu en as le droit.
Ton souci provient d'une syntaxe incorrecte.
L'écriture avec les "!" est propre à Access.
Elle n'est donc pas parfaitement compatible VBA (puisque spécifique Access pour conserver la compatibilité avec les premières versions d'Access)

Utilises plutôt la syntaxe

Code :

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

.Fields("Nom Du Champs").Value

Qui est beaucoup plus propre !

[jfontaine]

Salut maxence

Le ! n'est pas propre a access mais a ADO.
Il fonctionne très bien avec des base de donnée SQL server, AS400, Oracle.

Bien vu pour fields est une autre syntaxe

[Maxence HUBICHE]

Le ! n'est pas propre a access mais a ADO.

Ok, je vais redire autrement cette phrase :

Elle n'est donc pas parfaitement compatible VBA (puisque spécifique Access pour conserver la compatibilité avec les premières versions d'Access)

Le ! n'est pas fullCompatible VBA.
En effet, c'est un symbole qui ne permet que de simplifier une écriture qui est :
.fields(index)
où index peut être le numéro d'ordre du champ ou son nom.

Maintenant, puisqu'il faut être hyper précis...
Cette syntaxe n'est pas propre à ADO puiqu'elle fonctionne aussi avec DAO. Elle est implémentée dans les bibliothèques d'Accès aux données afin de ne pas trop perturber les programmeurs Access de la première heure qui utilisaient cette syntaxe dans leurs programmes.
Elle n'est, bien sûr, plus valable dans les évolution du langage, comme, par exemple, en DotNet.
D'où l'intérêt de l'abandonner pour programmer comme il faut.

Enfin, je ne pense pas que ni SQLServeur ni Oracle ni AS400 ne permettent le langage VBA. Ils permettent seulement l'accès à leur données VIA des bibliothèques qui, elles, implémentent une écriture obsolète pour des raisons de compatibiltés ascendantes (ce que j'expliquais ci-dessus) avec ACCESS, car, sauf erreur de ma part, en macrosXL4 pas plus qu'en WordBasic, on ne pouvait associer de références à nos programmes. Pourtant, on faisait déjà de l'accès aux données avec Access à cette époque, en utilisant le "!" pour référencer les champs. D'où la compatibilité Access.

[jfontaine]

merci maxence des ces précisions

amicalement

[sash6]

Merci beaucoup messieurs pour l'exhaustivité de ces réponses! Malheureusement je ne peux tester aucune des deux 2 syntaxes proposées puisque mon prog bloque à la ligne:

Code :

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

    Set RS = Connexion.Execute("SELECT CODE, [EOG Fournisseur], kEUR, annee FROM qrySTANDARDOUTPUTQUERY-French")

erreur générée:

Erreur d'exécution '-21472117900 (80040e14)':
[Microsoft][ODBC Microsoft Access] Erreur de syntaxe dans la clause FROM