Requete et sql
Laprenti2
-
LApprenti2 Messages postés 13 Date d'inscription Statut Membre Dernière intervention -
LApprenti2 Messages postés 13 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
j'ai une base de donnée sous access 2010, en grande partie écrite en vba, langage que je ne maîtrise pas, cette base de donnée à été écrite par un ancien collaborateur,
est ce qu'il possible de transformer une instruction sql en type "mode création":
je voudrais faire l'inverse de ce que fait access quand je créé une requête en mode création et qu'il la converti en mode sql.
' R11
sql = "INSERT INTO tb_" & AGENCE & "_date_entree_negatif ( HIAGE, DEPOT, NOART, DATE_ENT, NCLFO, HIBON, HILIG, HIQTE, HIPRI, HIMTH, TYPHI, HILIA ) SELECT " & AGENCE & "_AHISTOP1.HIAGE, " & AGENCE & "_AHISTOP1.DEPOT, " & _
AGENCE & "_AHISTOP1.NOART, [hilij] & '/' & [hilim] & '/' & [hilis] & [hilia] AS DATE_ENT, " & AGENCE & "_AHISTOP1.NCLFO, " & AGENCE & "_AHISTOP1.HIBON, " & AGENCE & "_AHISTOP1.HILIG, " & AGENCE & "_AHISTOP1.HIQTE, " & AGENCE & "_AHISTOP1.HIPRI, " & _
AGENCE & "_AHISTOP1.HIMTH, " & AGENCE & "_AHISTOP1.TYPHI, " & AGENCE & "_AHISTOP1.HILIA FROM (" & AGENCE & "_AHISTOP1 INNER JOIN " & AGENCE & "_AARTICP1 ON " & AGENCE & "_AHISTOP1.NOART = " & AGENCE & "_AARTICP1.NOART) LEFT JOIN tb_altimat_depot_agence_cession ON (" & _
AGENCE & "_AHISTOP1.HIAGE = tb_altimat_depot_agence_cession.AGEDE) AND (" & AGENCE & "_AHISTOP1.NCLFO = tb_altimat_depot_agence_cession.CESSION) WHERE (((" & AGENCE & "_AHISTOP1.HIAGE)='" & AGENCE & "') AND ((" & AGENCE & "_AHISTOP1.HIQTE)<0) AND ((" & _
AGENCE & "_AHISTOP1.TYPHI)='LVC') AND ((" & AGENCE & "_AHISTOP1.HILIA)=Right(Year(Date()),2)) AND ((" & AGENCE & "_AARTICP1.art32)<>'DIV') AND ((tb_altimat_depot_agence_cession.CESSION) Is Null))"
' msgbox "R11"
DoCmd.RunSQL sql
j'ai essayer en faisans un copie collé dans une requête vierge, çà me jette.
j'ai une base de donnée sous access 2010, en grande partie écrite en vba, langage que je ne maîtrise pas, cette base de donnée à été écrite par un ancien collaborateur,
est ce qu'il possible de transformer une instruction sql en type "mode création":
je voudrais faire l'inverse de ce que fait access quand je créé une requête en mode création et qu'il la converti en mode sql.
' R11
sql = "INSERT INTO tb_" & AGENCE & "_date_entree_negatif ( HIAGE, DEPOT, NOART, DATE_ENT, NCLFO, HIBON, HILIG, HIQTE, HIPRI, HIMTH, TYPHI, HILIA ) SELECT " & AGENCE & "_AHISTOP1.HIAGE, " & AGENCE & "_AHISTOP1.DEPOT, " & _
AGENCE & "_AHISTOP1.NOART, [hilij] & '/' & [hilim] & '/' & [hilis] & [hilia] AS DATE_ENT, " & AGENCE & "_AHISTOP1.NCLFO, " & AGENCE & "_AHISTOP1.HIBON, " & AGENCE & "_AHISTOP1.HILIG, " & AGENCE & "_AHISTOP1.HIQTE, " & AGENCE & "_AHISTOP1.HIPRI, " & _
AGENCE & "_AHISTOP1.HIMTH, " & AGENCE & "_AHISTOP1.TYPHI, " & AGENCE & "_AHISTOP1.HILIA FROM (" & AGENCE & "_AHISTOP1 INNER JOIN " & AGENCE & "_AARTICP1 ON " & AGENCE & "_AHISTOP1.NOART = " & AGENCE & "_AARTICP1.NOART) LEFT JOIN tb_altimat_depot_agence_cession ON (" & _
AGENCE & "_AHISTOP1.HIAGE = tb_altimat_depot_agence_cession.AGEDE) AND (" & AGENCE & "_AHISTOP1.NCLFO = tb_altimat_depot_agence_cession.CESSION) WHERE (((" & AGENCE & "_AHISTOP1.HIAGE)='" & AGENCE & "') AND ((" & AGENCE & "_AHISTOP1.HIQTE)<0) AND ((" & _
AGENCE & "_AHISTOP1.TYPHI)='LVC') AND ((" & AGENCE & "_AHISTOP1.HILIA)=Right(Year(Date()),2)) AND ((" & AGENCE & "_AARTICP1.art32)<>'DIV') AND ((tb_altimat_depot_agence_cession.CESSION) Is Null))"
' msgbox "R11"
DoCmd.RunSQL sql
j'ai essayer en faisans un copie collé dans une requête vierge, çà me jette.
3 réponses
-
bonjour
C'est de la programmation en sql.Difference entre requete et programmation.
Il faudrait modifier et transformer ce code.
un exemple de requete selection en sql
SELECT Patients.N°Patient, Patients.NomPatient, Patients.PrénomPatient, Patients.DateNaissance, Patients.Sexe, Patients.AdressePatient, Patients.CodePostal, Patients.Ville, Patients.N°Téléphone, Patients.N°SS, Patients.TypeDroitsSociaux, Patients.EchéanceSS, Patients.TypeComplémentaire, Patients.EchéanceComplémentaire, Patients.Remarques
FROM Patients; -
bonjour
tu peux t'insprer de la requete jointe.
exemple
SELECT nom de la Table.Nom du champ, Nom de la table.nom du champ
From Nom de la table;
Tu repetes Nom de la table nom du champ, autant de fois que tu veux suivant le nombre de champ que tu veux extraire; -
bonjour,
merci je vais faire un essai
--
