Discussion :

[fikou]

Bonjour,

Je suis sous VB6 avec une base Access

J'aimerai lier plusieurs tables de ma base.

Pour ce faire je fais ça :

Code :

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

1
2
3
4
5
6
sSql = sSql & "SELECT T_IdTireur, T_Nom, T_Prenom, T_DateNaiss, T_Licence, T_Categorie, "
sSql = sSql & "CM_IdTireur, CM_Total, CM_Cat "
sSql = sSql & "FROM  Tireurs "
sSql = sSql & "LEFT OUTER JOIN MilitairePist ON Tireurs.T_IdTireur = MilitairePist.CM_IdTireur "
sSql = sSql & "WHERE Tireurs.T_LivretPist IS NOT NULL "
sSql = sSql & "ORDER BY Tireurs.T_Nom"

Si je rajouter ces 2 lignes (3 et 6) :

Code :

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

1
2
3
4
5
6
7
8
sSql = sSql & "SELECT T_IdTireur, T_Nom, T_Prenom, T_DateNaiss, T_Licence, T_Categorie, "
sSql = sSql & "CM_IdTireur, CM_Total, CM_Cat, "
sSql = sSql & "CS_IdTireur, CS_Total, CS_Cat "  'Ligne 3
sSql = sSql & "FROM  Tireurs "
sSql = sSql & "LEFT OUTER JOIN MilitairePist ON Tireurs.T_IdTireur = MilitairePist.CM_IdTireur "
sSql = sSql & "LEFT OUTER JOIN CibleSection ON Tireurs.T_IdTireur = CibleSection.CS_IdTireur " 'Ligne 6
sSql = sSql & "WHERE Tireurs.T_LivretPist IS NOT NULL "
sSql = sSql & "ORDER BY Tireurs.T_Nom"

J'ai le message d'erreur :

Erreur de syntaxe (opérateur absent) dans l'expression "Tireurs.T_IdTireur = militairePist.CM_IdTireur LEFT OUTER JOIN CibleSection ON Tireurs.T_IdTireur = CibleSection.CS_IdTireur

Merci d'avance

Fikou

[al1_24]

Et avec quelques parenthèses ?

Code :

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

1
2
3
4
5
6
7
8
9
10
sSql = sSql & "SELECT T_IdTireur, T_Nom, T_Prenom, T_DateNaiss, T_Licence, T_Categorie, "
sSql = sSql & "CM_IdTireur, CM_Total, CM_Cat, "
sSql = sSql & "CS_IdTireur, CS_Total, CS_Cat "  'Ligne 3
sSql = sSql & "FROM  ( Tireurs "
sSql = sSql & "LEFT OUTER JOIN MilitairePist "
sSql = sSql & "ON Tireurs.T_IdTireur = MilitairePist.CM_IdTireur )"
sSql = sSql & "LEFT OUTER JOIN CibleSection "
sSql = sSql & "ON Tireurs.T_IdTireur = CibleSection.CS_IdTireur " 'Ligne 6
sSql = sSql & "WHERE Tireurs.T_LivretPist IS NOT NULL "
sSql = sSql & "ORDER BY Tireurs.T_Nom"

[fikou]

Merci al1_24

Cela fonctionne

Je ne voudrai pas abuser mais j'ai une dizaine de table à lier.
Je met comment les parenthèse pour les tables suivantes

Fikou

[al1_24]

Je met comment les parenthèse pour les tables suivantes

Ouverture avant la première table, fermeture à la fin de l'avant dernière jointure

[fikou]

Re,
J'ai essayé de rajouter une table :

Code :

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

1
2
3
4
5
6
7
8
9
10
sSql = sSql & "SELECT T_IdTireur, T_Nom, T_Prenom, T_DateNaiss, T_Licence, T_Categorie, "
sSql = sSql & "CM_IdTireur, CM_Total, CM_Cat, "
sSql = sSql & "CS_IdTireur, CS_Total, CS_Cat, "
sSql = sSql & "CA_IdTireur, CA_Total, CA_Cat "
sSql = sSql & "FROM ( Tireurs "
sSql = sSql & "LEFT OUTER JOIN MilitairePist ON Tireurs.T_IdTireur = MilitairePist.CM_IdTireur "
sSql = sSql & "LEFT OUTER JOIN CibleSection ON Tireurs.T_IdTireur = CibleSection.CS_IdTireur )"
sSql = sSql & "LEFT OUTER JOIN CibleArt ON Tireurs.T_IdTireur = CibleArt.CA_IdTireur "
sSql = sSql & "WHERE Tireurs.T_LivretPist IS NOT NULL "
sSql = sSql & "ORDER BY Tireurs.T_Nom"

J'ai la même erreur sur le code entre parenthèse

Fikou

[al1_24]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
sSql = sSql & "SELECT T_IdTireur, T_Nom, T_Prenom, T_DateNaiss, T_Licence, T_Categorie, "
sSql = sSql & "CM_IdTireur, CM_Total, CM_Cat, "
sSql = sSql & "CS_IdTireur, CS_Total, CS_Cat, "
sSql = sSql & "CA_IdTireur, CA_Total, CA_Cat "
sSql = sSql & "FROM ( ( Tireurs "
sSql = sSql & " LEFT OUTER JOIN MilitairePist "
sSql = sSql & "  ON Tireurs.T_IdTireur = MilitairePist.CM_IdTireur ) "
sSql = sSql & " LEFT OUTER JOIN CibleSection "
sSql = sSql & "  ON Tireurs.T_IdTireur = CibleSection.CS_IdTireur )"
sSql = sSql & " LEFT OUTER JOIN CibleArt "
sSql = sSql & "  ON Tireurs.T_IdTireur = CibleArt.CA_IdTireur "
sSql = sSql & "WHERE Tireurs.T_LivretPist IS NOT NULL "
sSql = sSql & "ORDER BY Tireurs.T_Nom"

[fikou]

Salut à tous,

Chu de retour

Merci à al1_24 cela fonctionne nickel

Fikou