Problème objet ADO

Version imprimable

Problème objet ADO

Bonjour tout le monde,

Ca fait un bout de temps que je n'avais pas à programmer :( et du coup pas de questions bêtes :D
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:

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!

17/07/2007, 18h24
jfontaine

En espérant répondre a tes questions

Citation:

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]

Citation:

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

Citation:

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:

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

Citation:

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
17/07/2007, 19h39
Maxence HUBICHE

Citation:

Envoyé par sash6

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:

.Fields("Nom Du Champs").Value

Qui est beaucoup plus propre !
17/07/2007, 19h53
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
17/07/2007, 22h52
Maxence HUBICHE

Citation:

Envoyé par jfontaine

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

Ok, je vais redire autrement cette phrase :

Citation:

Envoyé par Maxence Hubiche

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.
18/07/2007, 09h06
jfontaine

merci maxence des ces précisions

amicalement
18/07/2007, 09h54
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:

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

erreur générée:

Citation:

Erreur d'exécution '-21472117900 (80040e14)':
[Microsoft][ODBC Microsoft Access] Erreur de syntaxe dans la clause FROM
18/07/2007, 09h56
jfontaine

et en faisant cette requete dans access?
18/07/2007, 09h58
sash6

la requête sous access fonctionne! je l'ai maintes fois utilisée! je capte pas là

Essai avec ce code

Code:

1
2
 
RS.Open "select CODE, EOG Fournisseur, EUR, annee from qrySTANDARDOUTPUTQUERY-French", Connexion, adOpenKeyset, adLockReadOnly

18/07/2007, 10h48
sash6

Bogage de nouveau: "ODBC driver does not support the requested properties"
18/07/2007, 10h49
Maxence HUBICHE

Citation:

Envoyé par sash6

Citation:

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

Ca ne fonctionne pas mieux en mettant le nom de la table entre crochets ?

Code:

Set RS = Connexion.Execute("SELECT CODE, [EOG Fournisseur], kEUR, annee FROM [qrySTANDARDOUTPUTQUERY-French]")
18/07/2007, 10h57
sash6

Ca génère toujours une erreur Maxence. "Trop peu de paramètres. 1 attendu."

Ca y est :yaisse2: ça marche après une légère modification du code.
Il est largement inspiré du tutoriel de Sebastien (:king: ). Voici donc à quoi ça ressemble:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 Dim cnx As ADODB.Connection Dim rst As ADODB.Recordset Dim cell As Range 'Instanciation des variables Set cnx = New ADODB.Connection Set rst = New ADODB.Recordset 'Connexion à la base de données cnx.Open "DSN=MS Access Database;DBQ=C:\Regroupement.mdb;FIL=MS Access;" 'Exécution de la requête rst.Open "SELECT CODE, [EOG Fournisseur], kEUR, annee FROM [qrySTANDARDOUTPUTQUERY-French] order by kEUR desc", cnx Do While Not rst.EOF Set cell = Range("A65536").End(xlUp)(0) With rst cell(3, 1) = ![EOG Fournisseur] cell(3, 2) = !kEUR .MoveNext End With Loop
En revanche je galère un peu sur les regroupements (group by, having) et les tris. Dès que j'essaie d'enchaîner les conditions (je m'inspire de l'affichage sql de ma requête), je génère des erreurs dans le code.

relance problème ADO

Bonjour tout le monde,

Je galère toujours à formuler une syntaxe propre afin d'extraire les données sous une forme exploitable. Voici la requête SQL, adaptée en langage VBA (ou plutôt inadaptée sic :( )

Code:

1
2
3
4
5
6
rst.Open "SELECT [Natures.CODE], [tblDetailLevel.NewEOGFour] AS [EOG Fournisseur], [tblDetailLevel.Annee], Sum([tblDetailLevel.MntkEUR]) AS kEUR" & _
"FROM [tblDetailLevel] LEFT JOIN Natures ON [tblDetailLevel.NewCodeScat] = [Natures.CODE_SOUS_CATEGORIE] " & _
"LEFT JOIN Contrats ON [tblDetailLevel.NewEOGFour] = [Contrats.CODE_GPG_FOURNISSEUR] " & _
"LEFT JOIN Entites ON [tblDetailLevel.CdEnt] = [Entites.CODE_ENTITE_GPG] " & _
"GROUP BY [Natures.CODE], [tblDetailLevel.NewEOGFour], [tblDetailLevel.Annee] " & _
"HAVING [Natures.CODE]='JURID' AND [tblDetailLevel.Annee]='2007'", cnx

Pourquoi ça ne maaaarche pâs? une idée?

19/07/2007, 15h01
sash6

Pour ceux que ça intéresse et qui galèreront un jour. D'abord il vaut mieux traviller sur l'ensemble des tables, plutôt que sur une requête déjà crée! ou encore mieux, afficher sur access la requête en SQL (après les modifications éventuelles en termes de champs, tris et regroupements), la copier coller dans votre code. Il y a qu'une chose à modifier éventuellement: remplacer les " " par ' '.