query in sql weergave een begeleidende tekst

Status
Niet open voor verdere reacties.
T

Trientje

Gebruiker
Lid geworden
9 dec 2012
Berichten
60
goedemorgen,

in de marco's in excel kun je gemakkelijk extra informatie meegeven door een ' voor de tekst te plaatsen
in ems doe je dit met */ fdfjgljgmk sj /*
zodat je weet wat het deel van de query net uitvoert (vooral handig bij unions)
kan iemand me vertellen hoe ik deze info kan weergeven in de query.
een voorbeeld van de query is bijgesloten alsook wat ik bedoel (deze is een macro in excel)
vb query

Code: 
SELECT SCHEPEN.schipnaam, DOSSIERS.reisid, [SCHIPNAAM] & Space(22-Len([SCHIPNAAM])) & Mid([REISID],1,4) & "/" & Mid([REISID],8,3) AS OMSCHRIJVING_NEDERLANDS, ITEMS.DFS, ITEMS.FACTUUR, DOSSIERS.dossierid, FACTUREN.datum, IIf([ITEMS].[DEBCRE]="D",[ADRESSEN].[REKDEBET],[adressen].[REKCREDIT]) AS grootboek, ADRESSEN.NAAM, (Round([ITEMS].[NETTOSUBTOTAAL]/[ITEMS].[KOERS],2)+[ITEMS].[COMMISSIERM])*[ITEMS].[POSNEG] AS vracht, 0 AS liggeld, ADRESSEN.schipper, DOSSIERS.datum, ITEMS.periode,items.debcre
FROM [parameters], ((((((DOSSIERS INNER JOIN SCHEPEN ON DOSSIERS.SCHIPID = SCHEPEN.SCHIPID) INNER JOIN TRAJECTEN ON DOSSIERS.DOSSIERID = TRAJECTEN.DOSSIERID) INNER JOIN ITEMS ON TRAJECTEN.TRAJECTID = ITEMS.TRAJECTID) INNER JOIN FACTUREN ON (ITEMS.FC = FACTUREN.FC) AND (ITEMS.DEBCRE = FACTUREN.DEBCRE) AND (ITEMS.FACTUUR = FACTUREN.FBNUMMER)) INNER JOIN ADRESSEN ON ITEMS.ADRESID = ADRESSEN.ADRESID) INNER JOIN ADRESSEN AS ADRESSEN_1 ON DOSSIERS.ADRESID = ADRESSEN_1.ADRESID) INNER JOIN ADRESSEN AS ADRESSEN_2 ON TRAJECTEN.UITVOERDERID = ADRESSEN_2.ADRESID
WHERE (((DOSSIERS.datum) Between [parameters].[vanaf datum] And [parameters].[tot datum]+#12/30/1899 23:59:59#) AND ((ITEMS.soort)="N"));

union

SELECT SCHEPEN.schipnaam, DOSSIERS.reisid, [SCHIPNAAM] & Space(22-Len([SCHIPNAAM])) & Mid([REISID],1,4) & "/" & Mid([REISID],8,3) AS OMSCHRIJVING_NEDERLANDS, ITEMS.DFS, ITEMS.FACTUUR, DOSSIERS.dossierid, FACTUREN.datum, IIf([ITEMS].[DEBCRE]="D",[ADRESSEN].[COMDEBET],[adressen].[comCREDIT]) AS grootboek, ADRESSEN.NAAM, -[items].[commissierm]*[items].[posneg] AS vracht, 0 AS liggeld, ADRESSEN.schipper, DOSSIERS.datum, ITEMS.periode,items.debcre
FROM [parameters], ((((((DOSSIERS INNER JOIN SCHEPEN ON DOSSIERS.SCHIPID = SCHEPEN.SCHIPID) INNER JOIN TRAJECTEN ON DOSSIERS.DOSSIERID = TRAJECTEN.DOSSIERID) INNER JOIN ITEMS ON TRAJECTEN.TRAJECTID = ITEMS.TRAJECTID) INNER JOIN FACTUREN ON (ITEMS.FC = FACTUREN.FC) AND (ITEMS.DEBCRE = FACTUREN.DEBCRE) AND (ITEMS.FACTUUR = FACTUREN.FBNUMMER)) INNER JOIN ADRESSEN ON ITEMS.ADRESID = ADRESSEN.ADRESID) INNER JOIN ADRESSEN AS ADRESSEN_1 ON DOSSIERS.ADRESID = ADRESSEN_1.ADRESID) INNER JOIN ADRESSEN AS ADRESSEN_2 ON TRAJECTEN.UITVOERDERID = ADRESSEN_2.ADRESID
WHERE (((DOSSIERS.datum) Between [parameters].[vanaf datum] And [parameters].[tot datum]+#12/30/1899 23:59:59#) AND ((ITEMS.soort)="N") AND ((ITEMS.commissierm)<>0));


vb van marco met begeleidende tekst (groene tekst is begeleidende tekst en dit wil ik ook in sql acces)
Code: 
Sub samsung_wit()
'
[COLOR="#00FF00"]' samsung_wit Macro[/COLOR]
'

'
    Application.ActivePrinter = "SAMSUNG WIT op Ne01:"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
        "SAMSUNG WIT op Ne01:", Collate:=True, IgnorePrintAreas:=False
    Application.ActivePrinter = "SAMSUNG DUBBELZIJDIG op Ne06:"
   End Sub

katrien
 
Ik snap je vraag niet, en al helemaal niet als ik naar de tweede code kijk met de groene tekst. Wat wil je daar mee?
 
query in sql weergave een begeleidende tekst (extra info voor jezelf) meegeven

in de eerste code zie je verschillende unions
voor de eerste select wil ik vb schrijven "ophalen vrachten" zodat ik weet dat dit deel van de query vrachten ophaalt
voor de tweede select wil ik vb schrijven "liggelden huidig jaar" zodat ik weet dat dit deel van de query liggelden van dit jaar ophaalt
voor de derde select wil ik vb schrijven "liggelden vorige jaren" zodat ik weet dat dit deel van de query liggelden van vorige jaren ophaalt
........

(de 3e select heb ik niet meer meegegeven)

deze tekst is puur informatief voor mezelf zodat ik niet eerst heel de query moet lezen vooraleer ik weet waar ik iets moet veranderen.

de 2e code is daar een vb van (=macro uit excel). de groene tekst is puur informatief en het programma zelf doet er niets mee tijdens de uitvoering,
het wordt gewoon overgeslagen

groetjes
 
Laatst bewerkt:
Ik zie nergens waar je criterium moet komen. Ik zie alleen (voor Access een beetje onhandige) datumfilters.
 
hmmmm. hoe kan ik het nog uitdrukken

Code: 
bij het bekijken in sql wil ik informatie voor mezelf bvb " deze query berekent de vrachten"  
deze info moet nergens verschijnen niet gebruikt worden in acces... het is puur en alleen om te weten wat het volgende gedeelte van de query doet.

[code]SELECT SCHEPEN.schipnaam, DOSSIERS.reisid, [SCHIPNAAM] & Space(22-Len([SCHIPNAAM])) & Mid([REISID],1,4) & "/" & Mid([REISID],8,3) AS OMSCHRIJVING_NEDERLANDS, ITEMS.DFS, ITEMS.FACTUUR, DOSSIERS.dossierid, FACTUREN.datum, IIf([ITEMS].[DEBCRE]="D",[ADRESSEN].[REKDEBET],[adressen].[REKCREDIT]) AS grootboek, ADRESSEN.NAAM, (Round([ITEMS].[NETTOSUBTOTAAL]/[ITEMS].[KOERS],2)+[ITEMS].[COMMISSIERM])*[ITEMS].[POSNEG] AS vracht, 0 AS liggeld, ADRESSEN.schipper, DOSSIERS.datum, ITEMS.periode,items.debcre
FROM [parameters], ((((((DOSSIERS INNER JOIN SCHEPEN ON DOSSIERS.SCHIPID = SCHEPEN.SCHIPID) INNER JOIN TRAJECTEN ON DOSSIERS.DOSSIERID = TRAJECTEN.DOSSIERID) INNER JOIN ITEMS ON TRAJECTEN.TRAJECTID = ITEMS.TRAJECTID) INNER JOIN FACTUREN ON (ITEMS.FC = FACTUREN.FC) AND (ITEMS.DEBCRE = FACTUREN.DEBCRE) AND (ITEMS.FACTUUR = FACTUREN.FBNUMMER)) INNER JOIN ADRESSEN ON ITEMS.ADRESID = ADRESSEN.ADRESID) INNER JOIN ADRESSEN AS ADRESSEN_1 ON DOSSIERS.ADRESID = ADRESSEN_1.ADRESID) INNER JOIN ADRESSEN AS ADRESSEN_2 ON TRAJECTEN.UITVOERDERID = ADRESSEN_2.ADRESID
WHERE (((DOSSIERS.datum) Between [parameters].[vanaf datum] And [parameters].[tot datum]+#12/30/1899 23:59:59#) AND ((ITEMS.soort)="N"));union

ook hier wil ik puur informatief voor mezelf de tekst "berekening liggeld huidig jaar" zodanig ik weet wat dit gedeelte van de query doet;

Code: 
SELECT SCHEPEN.schipnaam, DOSSIERS.reisid, [SCHIPNAAM] & Space(22-Len([SCHIPNAAM])) & Mid([REISID],1,4) & "/" & Mid([REISID],8,3) AS OMSCHRIJVING_NEDERLANDS, ITEMS.DFS, ITEMS.FACTUUR, DOSSIERS.dossierid, FACTUREN.datum, IIf([ITEMS].[DEBCRE]="D",[ADRESSEN].[COMDEBET],[adressen].[comCREDIT]) AS grootboek, ADRESSEN.NAAM, -[items].[commissierm]*[items].[posneg] AS vracht, 0 AS liggeld, ADRESSEN.schipper, DOSSIERS.datum, ITEMS.periode,items.debcre
FROM [parameters], ((((((DOSSIERS INNER JOIN SCHEPEN ON DOSSIERS.SCHIPID = SCHEPEN.SCHIPID) INNER JOIN TRAJECTEN ON DOSSIERS.DOSSIERID = TRAJECTEN.DOSSIERID) INNER JOIN ITEMS ON TRAJECTEN.TRAJECTID = ITEMS.TRAJECTID) INNER JOIN FACTUREN ON (ITEMS.FC = FACTUREN.FC) AND (ITEMS.DEBCRE = FACTUREN.DEBCRE) AND (ITEMS.FACTUUR = FACTUREN.FBNUMMER)) INNER JOIN ADRESSEN ON ITEMS.ADRESID = ADRESSEN.ADRESID) INNER JOIN ADRESSEN AS ADRESSEN_1 ON DOSSIERS.ADRESID = ADRESSEN_1.ADRESID) INNER JOIN ADRESSEN AS ADRESSEN_2 ON TRAJECTEN.UITVOERDERID = ADRESSEN_2.ADRESID
WHERE (((DOSSIERS.datum) Between [parameters].[vanaf datum] And [parameters].[tot datum]+#12/30/1899 23:59:59#) AND ((ITEMS.soort)="N") AND ((ITEMS.commissierm)<>0));
[/CODE]
 
Laatst bewerkt:
Zitten we allebei te moeilijk te denken; ik omdat ik denk dat je iets aan je query wilt toevoegen, jij omdat je zelf al het antwoord op je vraag hebt gegeven. Kik maar eens naar de groene regel. Access en Excel gebruiken dezelfde programmeertaal (VBA) en dus ook dezelfde manier om commentaar op te nemen.
 
nu dat was ook mijn eerste gedachte,
maar dan krijg ik volgende foutmelding dus ergens zit ik fout.

de info tekst is hier even "dit is een test"

Knipsel.PNG


groetjes,
katrien
 
Je commentaar is prima, de tekst eronder niet. Je kunt nooit (in Excel trouwens ook niet) een SELECT maken, die moet je op zijn minst aan een tekstvariabele toewijzen. Dus zo:
Code: 
Dim strSQL as String
' Hier komt je commentaar
     strSQL = "SELECT Items.Periode " _
     & "Velden etc " _
     & "WHERE etc"
Of zo:
Code: 
' Hier komt je commentaar
strSQL = "SELECT Items.Periode  en nog wat velden " 
     strSQL = strSQL & "Nog meer veldenVelden etc " 
' Met deze werkwijze kun je meer commentaar tussenvoegen
     strSQL = strSQL & "WHERE etc"
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan