VBA jointure entre table

Question

Bonjour, 

est ce que les jointures suivantes entre les tables sont correcte ? (elle sont faite en VBA sous Outlook)

Je demande cela parce que j'ai une erreur dans mon projet et je crois
bien que c'est le dernier obstacle avant que je termine d&#233;finitivement
ce projet :D Si elles sont fausses pourriez vous les corriger ? Merci
beaucoup :D



    strSQL = "Select [company_name] from Actions, Sites, Companys" & _

           
    "where Actions.[action_siteto] = Sites.[site_id]"
& _

          
     "and Sites.[company_id] = Companys.[company_id]"
& _

          
     "and Actions.[action_dateeche]= '" &
UserForm2.cboDateEche.Value & "' "

fred.toto · Answer

salut
essaye &#231;a pour voir :
"Select company_name 
from Actions
left outer join Sites on Actions.[action_siteto] = Sites.[site_id]
left outer join Companys on  Actions.[action_siteto] = Sites.[site_id]
where Sites.[company_id] = Companys.[company_id] and Actions.[action_dateeche]= ' " & UserForm2.cboDateEche.Value & "' "

Fehn · Answer

Non :( il m'affiche syntaxe incorrecte vers Outer

PtitGrumo · Answer

Salut,

Pour ma part je te donne 3 direction a prendre!

1 - met des espace a chaque ligne car tu les a oubli&#233; (avant le Where et avant les and)
2 - si ta table est de type access alors pour une date ce n'est pas des quotes mais des #
"and Actions.[action_dateeche]= #" & UserForm2.cboDateEche.Value & "# "
3 - v&#233;rifie pour chaque &#233;galit&#233; de ta close where que les champs ont le m&#234;me format!

si c trois points sont ok dit le moi on passera au plan B lol

B&#233;co du PtitGrumo

fred.toto · Answer

essaye soit en virant carr&#233;ment le outer , sinon remplace outer join par inner join?

Fehn · Answer

Ptit Grumo > les 3 verifs sot faite, c'est une base de donn&#233;e SQL
Server, les espace je les ai ajout&#233; avec les guillemet, etc... et j'ai
v&#233;rifi&#233; mes requ&#234;tes en remplacant ma variable dnas SQL Server et elles
sont corrects :D



fred.toto > ca ne marche toujours pas :(

fred.toto · Answer

bon ben j'attends le plan B du PtiGrumo alors lol

PtitGrumo · Answer

Bin pour le plan B j'h&#233;site! appeler l'agence tourisque ou essayer encore un truc!

a tu le debugger?

Tu d&#233;bug et tu affiche ta variable strSQL et tu nous la recopie ici tel quelle va &#234;tre execut&#233;!

Tu me suit? :)

Fehn · Answer

Je vais te copier mon code directement pcq le debugger (debug.print) e
marchera pas vu qu'il se bloque a ma requete (je met juste le module
car c'est la ou le bas blaisse :()



Sub FilllabNomUser(txtNom As ListBox)

    Dim rstNom As ADODB.Recordset

    Dim strSQL As String

    Dim objmyconn As ADODB.Connection

    Dim strChaine As String

    

    Set objmyconn = OpenSQLServerDB("dbauser", "dbauser")

    

    Set rstNom = CreateObject("ADODB.RecordSet")

    

strSQL = "Select [company_name] from Actions" & _

        "left inner join Sites on Actions.[action_siteto] = Sites.[site_id]" & _

        "left inner join Companys on  Actions.[action_siteto] = Sites.[site_id]" & _

        "where Sites.[company_id] = Companys.[company_id]" & _

        "and Actions.[action_dateeche]= ' " & UserForm2.cboDateEche.Value & "' "





    rstNom.Open strSQL, objmyconn

    

    With rstNom

        .MoveFirst

        If (.State = adStateOpen) And (Not (.EOF)) Then

            Do Until .EOF

                strChaine = .Fields("company_name")

                txtNom.AddItem strChaine

                .MoveNext

            Loop

        End If

    End With

    

    

    rstNom.Close

    objmyconn.Close

    Set rstNom = Nothing

    Set objmyconn = Nothing

    

End Sub



C'est un peu le dawa avec les nom de variable (dus a different test :))

fred.toto · Answer

je ne sais pas si Set rstNom = CreateObject("ADODB.RecordSet")
et Set rstNom = new ADODB.RecordSet font la meme chose, mais moi j'utilise tjs la seconde possibilit&#233;.
Sinon &#231;a me parait pas mal moi je vois pas d'erreur flagrante

PtitGrumo · Answer

Si t'oubli encore les espace dans ton SQL lol fait gaffe a ca c'est le genre d'erreur sur laquelle on peu rester bloqu&#233; des semaine lol mdr!

Bon sinon!
Tu ajoute a ton formulaire une textbox  quer tu appel maTxt (ou autre)
et apr&#232;s la fabrication de ta variable strSQL tu mets 
maTxt.text = strSQL

tu lance ta fonction et tu r&#233;cup&#232;re dans ta textBox ta requ&#232;te SQL!
Pourquoi?
une fois que tu as au mot pr&#232;s la requ&#232;te qui va &#234;tre ex&#233;cut&#233;e et bin tu peu aller dans SQL la coller et la lancer! SQL te donnera plus d'info sur le pb!
De plus ca permettra de d&#233;celer vraiment les pb de syntaxe!

A tout!

PtitGrumo

PtitGrumo · Answer

Sinon au passage heuuuu ....
je pense que c'est la m&#234;me chose mais moi comme Fred je pr&#233;f&#232;re Set rstNom = new ADODB.RecordSet
voilou :)

++

Fehn · Answer

Beh au niveau de la requete, c'est pas vraiment le probl&#232;me. Sous SQL
server elle marche (avec les where). Moi ce qui me faudrais c'est juste
la fonction qui permet de relier (comme je l'indique dans mon premier
post) mais je ne la connais pas. Je pense pas qu'il y ait une erreur
dans la requ&#234;te m&#234;me mais que c'est la fonction qui permet la jointure
qui est incorrect !

tbbuim1 · Answer

Ta requ&#234;te peut marcher, il n'y a pas d'erreur.

Seuleument est-ce vraiment cela que tu veux afficher.

Y a t'il des liaisons entre les tables?

Y a t'il des cl&#233;s primaires qui se retrouvent en cl&#233; &#233;trang&#232;res dans les autres tables?

Si c'est le cas, tu dois faire des join.

Mais ensuite faut voir ce que tu veux comme liaison.

Jte conseil de faire tes requ&#234;tes sous l'assistant ACCESS

Et de regarder le type de jointure qu'il offre ainsi que la syntaxe.

Il ne te restera plus qu'&#224; faire un copier coller en rempla&#231;ant quelques trucs.
TBBUIM

tbbuim1 · Answer

Toutefois...

Si tu regades bien tu as &#233;cris.



"blablabla blablabla" & _

"Bliblbil blbiblbi" &_ ...;



Si tu concat&#232;nes &#231;a fait blalblalbblbilbiblb



Il semblerait qu'il manque un espace entre les lignes!

"balbalabalbna      " & _

"blbilbiblbiulb     " & _

Pour faire blalblalbvalgva  bliblbilbiblb 

TBBUIM

Fehn · Answer

ok lol, je viens juste de comprendre le truc des espaces :D je suis
long a la detente. mais est il possible de faire des jointure en VBA
grace &#224; Where NomTable1.ChampTable=NomTable2.ChampTable

PtitGrumo · Answer

oui c'est posssible! 

Sinon d'apr&#232;s ton exemple tu s&#233;lectionne qu'un champ! Alors pourquoi vouloir faire des jointures?


strSQL = "Select [company_name] from Actions"

suffis non?

sinon essai cela
strSQL = "Select [company_name] from Actions, Sites, Companys " & _
                "where Actions.[action_siteto] = Sites.[site_id] " & _
                "and Sites.[company_id] = Companys.[company_id] " & _
                "and Actions.[action_dateeche]= '" & UserForm2.cboDateEche.Value & "' "

Mais bon dur dur de te r&#233;pondre vu que l'on ne sait pas quel sont les cl&#233; primaire ou indexe cad sur quelle table a tu le ID comme cl&#233; primaire et sur lesquel tu les a en indexe!

++

(on va y arriver sisisi on va y arriv&#233;)


PtitGrumo

Fehn · Answer

lol je vous remercie pour le coup de main. mais en fait je peu pas
faire sans jointure car l'id&#233;e &#233;tant que lorsque l'on selectionne la
date d'echance de la tache qui est dans la table Action, le nom de la
company envers laquelle la tache est a effectu&#233; doit s'afficher dnas
une list box (la date d'echeance se selctionne dans une combobox) et si
on part de action pour aller vers Company, il faut passer par la table
Site.



Recapitulatif des cl&#233;s primaire : ACTIONS : action_id, SITES : site_id,
COMPANYS : company_id. Les cl&#233;s &#233;trang&#232;res &#233;tant celle indiqu&#233; dnas la
jointure et je veux qu'il affiche company_name. De plus, l'erreur
engendrer apres mainte et mainte test est la suivante :
[Microsoft][ODBC SQL Server Driver][SQL Server]Les tables ou les
fonctions "Sites" et "Sites" ont le m&#234;me nom d'expos&#233;. Utiliser les
noms de corr&#233;lation pour les distinguer.



Voici mon code mis a jour:



Sub FilllstNomComp(lstComp As ListBox)

    Dim rstComp As ADODB.Recordset

    Dim strSQL As String

    Dim objmyconn As ADODB.Connection

    Dim strChaine As String

    

    Set objmyconn = OpenSQLServerDB("dbauser", "dbauser")

    

    Set rstComp = CreateObject("ADODB.RecordSet")

    

    strSQL = "Select [company_name] from Actions, Sites, Companys " & _

           
"left outer join Sites on Actions.[action_siteto] = Sites.[site_id] "
& _

           
"left outer join Companys on Action.[action_siteto] = Sites.[site_id] "
& _

            "where Sites.[company_id] = Companys.[company_id] " & _

            "and
Actions.[action_dateeche]= ' " & UserForm2.cboDateEche.Value &
"' "





    rstComp.Open strSQL, objmyconn

    

    With rstComp

        .MoveFirst

        If (.State = adStateOpen) And (Not (.EOF)) Then

            Do Until .EOF

                strChaine = .Fields("company_name")

                lstComp.AddItem strChaine

                .MoveNext

            Loop

        End If

    End With

    

    

    rstComp.Close

    objmyconn.Close

    Set rstComp = Nothing

    Set objmyconn = Nothing

    

End Sub

cs_dan80 · Answer

ta essay&#233; avec des inner join?

PtitGrumo · Answer

oui partout ou tu as "left outer"  met "inner" &#224; la place

++

PtitGrumo

Fehn · Answer

oui, il me dit que la syntaxe est incorrect (faut til uniquement remplac&#233; outer par inner ?)

VBA jointure entre table

35 réponses

Discussions similaires