requete SQL lors du transfert table+ champ ente access et excel

Version imprimable

18/10/2007, 10h56
oscar.cesar

requete SQL lors du transfert table+ champ ente access et excel

bonjour
lors d'un transfert de access vers excel , j'ai dans ma base access 2 tables.
la table1 contient un champ nommé INDEX qui contient des valeurs numeriques comme (1,2,3,..)
dans ma table 2 j'ai , en autre, un champ index et couleur ou :
index =1 alors couleur= rouge
index= 2 alors couleur=vert
etc....

j'aimerai dans ma requete SQL remplacer le contenu du champ INDEX de la table1 par la COULEUR correspondante contenu dans la tABLE2 directement dans ma feuille excel

merci
18/10/2007, 11h11
Lou Pitchoun

Salut,

Dans ta requête, tu places les 2 tables.
Et au lieu de mettre le Champ Index de la table 1 : tu mets le champ Couleur.
18/10/2007, 11h35
Commodore

aie, j'ai pas venu assez rapide...

bon,

dans access, tu peux modéliser les requetes en graphique.
on va faire simple: tu lies les 2 tables par le champ index, et tu affiches la couleur :mrgreen:
18/10/2007, 11h44
oscar.cesar

sql

ouais (je debute)
voila le voila le code de la requete

Code:

.CommandText = Array("SELECT * FROM arrivee,prix WHERE annee>2006 and numero<6 and type='Haie' and numero<6 ")

dans table arrivee il ya le champ indexprix
dans la table prix il y a le champ index et le champ couleur

je souhaite afficher dans mon tableau excel
si indexprix(table arrivee)=index (table prix) alors recuperer le contenu du champ couleur (table prix)

J'aurais + vu un truc du genre en sql

Code:

1
2
3
SELECT prix.couleur [,autres_champs] FROM prix,arrivee [,autres tables]
WHERE prix.index=arrivee.index
[AND/OR autres_conditions]

18/10/2007, 13h55
oscar.cesar

sql

ok merci je regarde
18/10/2007, 15h04
oscar.cesar

sql requete

bonjour
bon j'ai une erreur quand dans mon where je fais la comparaison
table1.index1=table2.index2
l'erreur est "erreur d'excecution 13" imcompatibilite de type'
j' ai regarde les 2 champs index1 et index2 ils sont de type numerique

A+
18/10/2007, 15h13
Commodore

peux-tu poster la requete entiere ? (quitte à falsifier les noms de champs et tables si c'est confidentiel)

voici le code complet
des que j'enleve la conditon dans le where , le code se deroule sans erreur.

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
'transfert du fichier access vers excel
Private Sub CommandButton1_Click()
Dim NomBase As String
 
NomBase = "G:\turf.MDB" 'chemin ou se trouve la base access à ouvrir
 Sheets("feuil1").Range("A2:AA64000").Clear 'efface le contenu du fichier excel et de la feuille d'acceuil
With Sheets("Feuil1").QueryTables.Add(Connection:=Array("OLEDB;Provider=Microsoft.jet.OLEDB.4.0;" & _
        "Data source=" & NomBase), Destination:=Sheets("Feuil1").Range("A2")) 'endroit dans la feuil excel ou on commence à ecrire
 
    .CommandText = Array("SELECT copointeur,codate,coreunion,cocourse,cotypecourse,cospéciale,coprix,coallocation,copartant,codistance, rapports.rarapport, copointeur, rapointeurco,hippodrome.hippodrome FROM Entetecourses,rapports,hippodrome WHERE Entetecourses.copointeurhi=hippodrome.hipointeur and codate>#01/01/2007# and cospéciale='Quinté'  ") 'selection de la table et des champs
    .Name = "TestRequete"
    .CommandType = xlCmdTable
    .FieldNames = True 'nom des champs de la table access qui servent d'entete vers la feuille excel
    .RowNumbers = False
    .PreserveFormatting = False
    .BackgroundQuery = True
    .RefreshStyle = xlOverwriteCells
    .AdjustColumnWidth = True
    .PreserveColumnInfo = False 'format
    .Refresh BackgroundQuery:=False
End With
 
 
 
End Sub

Code:

1 2 3 4 5 SELECT copointeur, codate, coreunion, cocourse, cotypecourse, cospéciale, coprix, coallocation, copartant, codistance, rapports.rarapport, copointeur, rapointeurco, hippodrome.hippodrome FROM Entetecourses, rapports, hippodrome WHERE Entetecourses.copointeurhi=hippodrome.hipointeur AND codate > #01/01/2007# AND cospéciale = 'Quinté'
Ce ne serait pas dû au cospéciale = 'Quinté'
Je me demande si les ' ne sont pas censés entourer un seul caractère...

As-tu essayé avec des " ?

(note: en VBA il faut doubler les " dans une chaine de caractères)

edit: chouette, tu travailles à la française des jeux :yaisse2:

18/10/2007, 15h52
oscar.cesar

sql

vouais
j'ai tout essayé.
cela plante des que je rentre la comparaison dans deux bases.????????:(
j'ai essaye d'autre criteres c'est pareil.8O

les " ne marchent pas :(

:lol:j'ai essaie de me faire une base sur les courses en collectant à droite et à gauche.

je cherche en core un peu sinon il faudra faire cela sous excel ???????

A+
18/10/2007, 17h03
Lou Pitchoun

Question bête...
Ce code est sous Excel ??
Pourquoi ne pas créer la requête sous Access et importer cette requête.
C'est juste une idée comme ça...
18/10/2007, 18h11
oscar.cesar

sql

bonsoir
oui le code est ecrit à partir d'excel , en vbA.

pour le reste je maitrise pas access pour faire une requete.

A+

tiens ,'jai essayé qql chose qui semble marche !!!!!!!!!!!!!!
.CommandText = "SELECT * FROM ......WHERE index1 = index2

j'ai enleve le array et les ()

je teste :yaisse2: