Discussion :

[Z[ee]k]

Bonjour !

Voilà je fais une requete en SQL sous VB ( qui et intégré dans Access© ) et cette requete est un peu ( voir beaucoup ) grande, alors j'utilise & _ à chaque fin du protocole, le problème étant qu'arrivé à FROM la séquencese coup en deux, et tout plante, avait vous une solution ? pourne faire plus q'un avec la séquence FROM ?

Code :

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

1
2
3
4
 
SQL = "SELECT libel_civilite, nom_part, prenom_part, adresse_part, complement_adresse_part, commune_cp, code_cp, tel_priv_part, tel_portable_part, fax_priv_part, email_part, libel_rang, libel_situationfam, libel_prof, libel_aff, libel_compagnie, libel_mtuelle, libel_situation" & _
"FROM tbl_situationfamilialle INNER JOIN (tbl_situation INNER JOIN (tbl_rang INNER JOIN (tbl_profession INNER JOIN (tbl_mutuelle INNER JOIN (tbl_cp INNER JOIN (tbl_compagnie INNER JOIN (tbl_civilite INNER JOIN (tbl_banque INNER JOIN (tbl_affinite INNER JOIN ((((tbl_particulier INNER JOIN tbl_particulier_affinite ON tbl_particulier.num_part = tbl_particulier_affinite.[num_part#]) INNER JOIN tbl_particulier_banque ON tbl_particulier.num_part = tbl_particulier_banque.[num_part#]) INNER JOIN tbl_particulier_compagnie ON tbl_particulier.num_part = tbl_particulier_compagnie.[num_part#]) INNER JOIN tbl_particulier_mutuelle ON tbl_particulier.num_part = tbl_particulier_mutuelle.[num_part#]) ON tbl_affinite.num_aff = tbl_particulier_affinite.[num_aff#]) ON tbl_banque.num_banque = tbl_particulier_banque.[num_banque#]) ON tbl_civilite.num_civilite = tbl_particulier.[num_civilite#]) ON tbl_compagnie.num_compagnie = tbl_particulier_compagnie.[num_compagnie#]) ON tbl_cp.num_cp = tbl_particulier.[num_cp#]) ON tbl_mutuelle.num_mutuelle = tbl_particulier_mutuelle.[num_mutuelle#]) ON tbl_profession.num_prof = tbl_particulier.[num_prof#]) ON tbl_rang.num_rang = tbl_particulier.[num_rang#]) ON tbl_situation.num_situation = tbl_particulier.[num_situation#]) ON tbl_situationfamilialle.num_situationfam = tbl_particulier.[num_situationfam#]" & _
"WHERE tbl_affinite!num_aff <> 0 "

Merci pour vos réponses !

[Pierre Fauconnier]

Bonjour

Si ton code est un copier-coller fidèle, il manque un espace avant FROM.

Cela étant, je crois, sans être certain, que les requêtes ont une longueur maximum acceptable...

Ok?

[pc75]

Bonjour,

Pour une lecture plus facile, je fais comme ça :

Code :

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

1
2
3
4
5
6
 
txtSQL = ""
txtSQL = txtSQL & "select champ1, champ2, champ3 "
txtSQL = txtSQL & "from matable "
txtSQL = txtSQL & "where champ4 = '1'  "
txtSQL = txtSQL & "and champ5 = 2 "

[Le Pharaon]

Je crois que Pierre Fauconnier a raison
Prochainement pour voir où se trouve l'erreur il faudra afficher la requête

Code :

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

1
2
3
msgbox nomRequete
'ou
debug.print nomRequete

[Z[ee]k]

Pour info j'ai pris appuie sur une autre requete du même type qui été comme ça

Code :

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

1
2
3
If Not Me.chkAuteur Then
    SQL = SQL & "And Medias!Auteur like '*" & Me.txtRechAuteur & "*' "
End If

et je l'ai modifié en ça

Code :

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

1
2
3
4
5
6
7
8
9
If Me.chkAffinite Then
   SQL = "SELECT nom_part, prenom_part, adresse_part, complement_adresse_part, tel_priv_part, tel_portable_part, fax_priv_part, email_part, libel_aff " & _
            "FROM tbl_particulier INNER JOIN (tbl_affinite INNER JOIN tbl_particulier_affinite ON tbl_affinite.num_aff = tbl_particulier_affinite.[num_aff#]) ON tbl_particulier.num_part = tbl_particulier_affinite.[num_part#]" & _
            "WHERE tbl_affinite!num_aff <> 0 "
Else
   SQL = "SELECT nom_part, prenom_part, adresse_part, complement_adresse_part, tel_priv_part, tel_portable_part, fax_priv_part, email_part, libel_aff " & _
            "FROM tbl_particulier INNER JOIN (tbl_affinite INNER JOIN tbl_particulier_affinite ON tbl_affinite.num_aff = tbl_particulier_affinite.[num_aff#]) ON tbl_particulier.num_part = tbl_particulier_affinite.[num_part#]" & _
            "WHERE tbl_affinite!num_aff <> 0 " & _
            "AND tbl_affinite!num_aff like '*" & Me.cmbRechAff & "*' "

MON problème, survient quand je fais une grande requete il me met au minimum 2 ligne de FROM et donc je chercherai à savoir comment je peux les remettre ensemble.

[Pierre Fauconnier]

Puisque tu es dans Access,

Peux-tu découper ta requête en plusieurs sous-requêtes? Ce serait probablement plus simple de les gérer.

[Z[ee]k]

La et bien la le problème, je ne peux pas faire de sous requete, car tout plante
Je dois donc passer par une grosse requete...enfin si quelqu'un peut me pondre des sous requetes je l'appel Monsieur...

[Le Pharaon]

C'est quoi le message d'erreur envoyé ?

[Z[ee]k]

Il n' y a pas de message d'erreur, il n'effectue pas la requete s'tout (>_<)

[Pierre Fauconnier]

Comment lances-tu ta requête?

[Z[ee]k]

Par un formulaire, j'ai des critères, à cocher ( ou non ) et les requetes s'effectue dans une zone.
Un p'tit screen !

[Pierre Fauconnier]

Utilises-tu ADODB ou DAO?

Quel est le code après la ligne SQL = ... ?

P.S.: Essaie d'être plus complet, on pourra mieux t'aider (... sans nous balancer 100 lignes de code, bien sûr...)

[Z[ee]k]

Euh, j'avouerai que tu me parle en langue totalement étrangère !

Tout d'abord, la j'ai fais simple, mais si il faut etre complet je vais caller le code complet...mais sa sert à rien, je veux juste savoir comment lier le deuxième bout venant d'un FROM en langage SQL quand VB la mis à la deuxième ligne...par exemple, pour faire suivre une éxécution de la première ligne à al deuxième on met & _ ! donc je voudrai savoir comment faire pour le FROM ?!

[Le Pharaon]

Qu'est ce qui te dit que le problème vient au niveau de la clause FROM ?

[Z[ee]k]

Car ma requete étant trop longue je n'arrive pas à executer la requete...

Code :

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

1
2
3
 SQL = "SELECT tbl_civilite.libel_civilite, tbl_particulier.nom_part, tbl_particulier.prenom_part, tbl_particulier.adresse_part, tbl_particulier.complement_adresse_part, tbl_cp.commune_cp, tbl_cp.code_cp, tbl_particulier.tel_priv_part, tbl_particulier.tel_portable_part, tbl_particulier.fax_priv_part, tbl_particulier.email_part, tbl_rang.libel_rang, tbl_situationfamilialle.libel_situationfam, tbl_profession.libel_prof, tbl_affinite.libel_aff, tbl_compagnie.libel_compagnie, tbl_mutuelle.libel_mtuelle, tbl_situation.libel_situation" & _
        "FROM tbl_situationfamilialle INNER JOIN (tbl_situation INNER JOIN (tbl_rang INNER JOIN (tbl_profession INNER JOIN (tbl_mutuelle INNER JOIN (tbl_cp INNER JOIN (tbl_compagnie INNER JOIN (tbl_civilite INNER JOIN (tbl_banque INNER JOIN (tbl_affinite INNER JOIN ((((tbl_particulier INNER JOIN tbl_particulier_affinite ON tbl_particulier.num_part=tbl_particulier_affinite.[num_part#]) INNER JOIN tbl_particulier_banque ON tbl_particulier.num_part=tbl_particulier_banque.[num_part#]) INNER JOIN tbl_particulier_compagnie ON tbl_particulier.num_part=tbl_particulier_compagnie.[num_part#]) INNER JOIN tbl_particulier_mutuelle ON tbl_particulier.num_part=tbl_particulier_mutuelle.[num_part#]) ON tbl_affinite.num_aff=tbl_particulier_affinite.[num_aff#]) ON tbl_banque.num_banque=tbl_particulier_banque.[num_banque#]) ON tbl_civilite.num_civilite=tbl_particulier.[num_civilite#]) ON tbl_compagnie.num_compagnie=tbl_particulier_compagnie.[num_compagnie#]) ON tbl_cp.num_cp=tbl_particulier.[num_cp#])" & _
        "ON tbl_mutuelle.num_mutuelle=tbl_particulier_mutuelle.[num_mutuelle#]) ON tbl_profession.num_prof=tbl_particulier.[num_prof#]) ON tbl_rang.num_rang=tbl_particulier.[num_rang#]) ON tbl_situation.num_situation=tbl_particulier.[num_situation#]) ON tbl_situationfamilialle.num_situationfam=tbl_particulier.[num_situationfam#];"

Je souhaite mettre On...ect sur le même prologement que FROM sinon la requete ne fonctionne pas

[Pierre Fauconnier]

Je t'ai dit tout à l'heure: tu dois mettre un espace avant le from à la deuxième ligne...

Code :

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

1
2
3
 
SQL = "SELECT tbl_civ...libel_situation" & _
    " from ..."

Cela étant, cette ligne ne fait qu'attribuer du texte à une variable Texte appelée SQL. Il faut encore que tu envoies cette variable à un objet qui accepte une chaine de caractères comme "source" de ta requête.

Que fais-tu de cette variable après?

Tu l'attribues à un listbox, tu l'utilises pour un recordset?

[Z[ee]k]

Admettons, je met l'espace à FROM je me demande toujours comment faire correspondre la ligne FROM...ect et la ligne ON...ect pour que la requete puisse fonctionner...

Code :

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

1
2
3
 SQL = "SELECT tbl_civilite.libel_civilite, tbl_particulier.nom_part, tbl_particulier.prenom_part, tbl_particulier.adresse_part, tbl_particulier.complement_adresse_part, tbl_cp.commune_cp, tbl_cp.code_cp, tbl_particulier.tel_priv_part, tbl_particulier.tel_portable_part, tbl_particulier.fax_priv_part, tbl_particulier.email_part, tbl_rang.libel_rang, tbl_situationfamilialle.libel_situationfam, tbl_profession.libel_prof, tbl_affinite.libel_aff, tbl_compagnie.libel_compagnie, tbl_mutuelle.libel_mtuelle, tbl_situation.libel_situation" & _
        " FROM tbl_situationfamilialle INNER JOIN (tbl_situation INNER JOIN (tbl_rang INNER JOIN (tbl_profession INNER JOIN (tbl_mutuelle INNER JOIN (tbl_cp INNER JOIN (tbl_compagnie INNER JOIN (tbl_civilite INNER JOIN (tbl_banque INNER JOIN (tbl_affinite INNER JOIN ((((tbl_particulier INNER JOIN tbl_particulier_affinite ON tbl_particulier.num_part=tbl_particulier_affinite.[num_part#]) INNER JOIN tbl_particulier_banque ON tbl_particulier.num_part=tbl_particulier_banque.[num_part#]) INNER JOIN tbl_particulier_compagnie ON tbl_particulier.num_part=tbl_particulier_compagnie.[num_part#]) INNER JOIN tbl_particulier_mutuelle ON tbl_particulier.num_part=tbl_particulier_mutuelle.[num_part#]) ON tbl_affinite.num_aff=tbl_particulier_affinite.[num_aff#]) ON tbl_banque.num_banque=tbl_particulier_banque.[num_banque#]) ON tbl_civilite.num_civilite=tbl_particulier.[num_civilite#]) ON tbl_compagnie.num_compagnie=tbl_particulier_compagnie.[num_compagnie#]) ON tbl_cp.num_cp=tbl_particulier.[num_cp#])" & _
        " ON tbl_mutuelle.num_mutuelle=tbl_particulier_mutuelle.[num_mutuelle#]) ON tbl_profession.num_prof=tbl_particulier.[num_prof#]) ON tbl_rang.num_rang=tbl_particulier.[num_rang#]) ON tbl_situation.num_situation=tbl_particulier.[num_situation#]) ON tbl_situationfamilialle.num_situationfam=tbl_particulier.[num_situationfam#];"

[Pierre Fauconnier]

Je ne comprends pas ce que tu veux dire.

je me demande toujours comment faire correspondre la ligne FROM...ect et la ligne ON...

Ce que tu peux faire, c'est y aller pas à pas avec F8 dans la proc qui génère la variable SQL...
Après les trois lignes de SQL = ...
mets ceci

Code :

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

debug.print sql

pour afficher la valeur de SQL dans la fenêtre d'exécution... Tu pourras ainsi voir la chaîne de ta requête, et éventuellement nous la donner en copier-coller.

Mais je voudrais que tu me dises ce que tu fais de ta variable SQL après...

[Z[ee]k]

Alors ce que je souhaite faire avec ce code et donc avec le SQL est en relation avec ce sujet là !

Ensuite, ce que tu me donnes, pourrai etre un avancement, mais je m'y connait en rien dans ce domaine, Je peux à la limite comprendre, mais s'tout !

Merci pour ton aide !

[Pierre Fauconnier]

Avec ceci, pris dans ton message en lien

Code :

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

Me.lstResults.RowSource = SQL

Si tu n'as pas de lignes dans ta liste, c'est que ta requête renvoie un jeu d'enregistrements vide, ce qui veut dire qu'aucun enregistrement ne correspond à la requête que tu as créée...

Pour moi, le problème ne vient donc pas d'un sql sur plusieurs lignes, mais de conditions ou de jointures qui posent problème...

C'est fréquent avec des requêtes utilisant des inner join en cascade.

Je pense qu'il faut vraiment décomposer la requête en plusieurs parties.

N'oublie pas que tu peux attribuer une requête Access à une liste.

Moi, j'essaierais de créer mes requêtes Access "en dur". Tu peux aussi, lors de la création d'une requête dans Access, te baser sur une ou plusieurs requêtes existantes...

N'oublie pas non plus mon idée du

Code :

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

debug.print sql

qui te permettra de voir exactement la chaîne que tu passes à ta liste. Les outils de débogage sont là pour que l'on s'en serve

Autre idée: Prendre le texte de sql et le coller dans la fenêtre SQL d'une requête access, puis valider la requête. Tu auras alors un message d'erreur si ta requête est mal construite.

Une fois cette requête sans erreurs, tu peux la sauver et la référencer comme propriété RowSource de ta liste
Ok?