• Nieuwe artikelen

  • Mijn eerste query met parameters...

    Desiree Willemsen

    Naar aanleiding van al vele voorbeelden op het forum over het gebruik van parameters in een query heb ik het besluit genomen er een artikel over te schrijven. Hierin wordt uitgelegd, wat parameters zijn en hoe je ze kunt gebruiken. Om het makkelijk te maken zal ik er uiteraard ook een voorbeeld bij maken.Ik hoop ook dat er gebruik van gemaakt gaat worden, aangezien het veel speurwerk kan besparen.

    Parameters wat, waarom en hoe?

    Wat zijn parameters?

    Met parameters kun je data in een SQL-Statement vervangen.?áParameters kunnen zowel in designtime als runtime worden gemaakt. De parameters die in designtime worden gemaakt, worden gevuld tijdens het draaien van de applicatie. Parameters maken het mogelijk om een query meerdere keren te gebruiken zonder dat je steeds het SQL-statement moet wijzigen. Denk hierbij aan het toevoegen van een aantal records. Parameters zijn een onderdeel van de SQL-text van je query. Parameters kun je plaatsen?áin een SQL-text waar waarden voor velden en dergelijke verwacht worden.


    Waarom gebruik maken van parameters?

    • Makkelijk in het gebruik;
    • Geen problemen met quotjes en speciale karakters;
    • Geen problemen met data-formaten;
    • Sneller in gebruik;
    • Overzicht houden over je query.



    Hoe maak ik een parameter?

    Zoals gezegd kun je parameters gebruiken op plekken waar je anders waarden zou invullen. Een parameter in een SQL-text van een Query is een naam van die parameter voorafgegaan door een dubbele punt. Veel mensen gebruiken hiervoor de veldnaam.


    De praktijk..

    Ik heb in Access een tabel aangemaakt met de naam 'Personen'. In deze tabel heb ik vier velden: persoonID(autonummering), Naam (varchar), Leeftijd(integer), Datum(datetime).

    Hieronder een paar stukjes code welke weergeven hoe je met en zonder parameters moet werken. In de code ga ik ervan uit dat er al een connectie is gemaakt met de database, en de query ook gekoppeld is aan deze database.

    Als eerste zal ik een stukje code laten zien waarbij er geen gebruik wordt gemaakt van parameters. Je kunt dan goed het verschil zien tussen een query met parameters en een query zonder parameters.

      with qryInsertPersoon do
      begin
        SQL.Clear;
        SQL.Text := 'INSERT INTO Personen(naam, leeftijd, datum) ' +
                    'VALUES('                                      +
                    ' ''Dees'' , 22, ''' + FormatDateTime('yyyy-mm-dd', Now) + ''')';
    
        try
          ExecSQL;
        except
          on e:Exception do
            ShowMessage('Wooopsiee die INSERT ging fout');
        end;
      end; 
    
    
    Zoals je kunt zien worden de waardes die in de query worden weggeschreven gevuld, omdat dit in goed SQL moet, ben je genoodzaakt met quotjes te werken. Een andere oplossing voor dit is het werken met de functie QuotedStr(); deze zorgt zelf voor de quotjes, dit neemt nog niet heb probleem met datum-formaat weg bij de de queries. Op de plaats van de vaste gegevens, kunnen ook variabelen worden ingevoerd, deze moeten dan worden gezet als het FormatDateTime voorbeeld in de query.


    Dit stukje code is gebaseerd op een gewone TQuery uit Delphi.
      with qryInsertPersoon do
      begin
        SQL.Clear;
        SQL.Text := 'INSERT INTO Personen(naam, leeftijd, datum) ' +
                    'VALUES(:naam, :leeftijd, :datum)';
    
        ParamByName('naam').Value     := 'Dees';
        ParamByName('leeftijd').Value := 22;
        ParamByName('datum').Value    := Date;
    
        try
          ExecSQL;
        except
          on e:Exception do
            ShowMessage('Wooopsiee die INSERT ging fout');
        end;
      end;
    
    

    Omdat het vullen van parameters met een TADOQuery net even iets anders gaat dan een gewone TQuery, ook voor de TADOQuery een stukje code:
      with qryInsertPersoon do
      begin
        SQL.Clear;
        SQL.Text := 'INSERT INTO Personen(naam, leeftijd, datum) ' +
                    'VALUES(:naam, :leeftijd, :datum)';
    
        with Parameters do
        begin
          ParamByName('naam').Value     := 'Dees';
          ParamByName('leeftijd').Value := 22;
          ParamByName('datum').Value    := Date;
        end;
    
        try
          ExecSQL;
        except
          on e:Exception do
            ShowMessage('Wooopsiee die INSERT ging fout');
        end;
      end;
    
    
    Een voorbeeld van een parameter in een SELECT-statement:
      with qrySelectPersoon do
      begin
        SQL.Clear;
        SQL.Text := 'SELECT naam, leeftijd ' +
                    'FROM Personen '         +
                    'WHERE datum = atum '  +
                    'ORDER BY naam';
    
        Parameters.ParamByName('Datum').Value := Date;
    
        try
          Open;
        except
          on e:Exception do
            ShowMessage('Het openen van de tabel is mislukt');
        end;
      end;
    
    
    Let op, deze query is gemaakt met een TADOQuery, bij de TQuery moet het vullen van de parameter op een andere manier worden gedaan:
        ParamByName('Datum').Value := Date;
    

    Tot slot

    We hebben nu gezien hoe makkelijk parameters werken in een query. Er hoeft voortaan niet moeilijk meer te worden gedaan met quotes, speciale karakters en datum formaten. Ook is de query een stuk overzichtelijker door het gebruik van parameters. Ik hoop dat jullie er nog lang van mogen genieten. Voor vragen kun je terecht op het forum.

  • Nieuwste forumberichten

    rvk

    Wanneer gebeurt wat?

    Button1.Caption past ie inderdaad wel direct aan. Maar Button1.Width := 400; bijvoorbeeld weer niet
    Zo blijf je aan de gang.
    Het beste

    rvk Yesterday, 14:48 Go to last post
    Reidinga

    Components Converteren van Delphi naar Lazarus

    Dankjewel Frans! Dat was het dus - ik heb alles nagelopen, maar schijnbaar nog niet genoeg onderzoek gedaan heb hier dwars over heen gekeken. Ik heb lazarus

    Reidinga Yesterday, 14:48 Go to last post
    Duiker

    Wanneer gebeurt wat?

    Self.Label1.Caption := 'a';
    Er vind nu geen refresh plaats omdat dat pas aan het einde van de procedure gebeurd. Dit komt omdat het label nergens

    Duiker Yesterday, 14:40 Go to last post
    rvk

    Wanneer gebeurt wat?

    Ja, en alleen de refresh van de labels. Andere componenten zouden e.v. wel direct aangepast kunnen zijn.
    Als je bijvoorbeeld een Self.Memo1.Lines.Add('a')

    rvk Yesterday, 12:13 Go to last post
    EricLang

    grid scroll vreemd verschijnsel (bug)

    Yep, ik snap het probleem. Het is wel degelijk een bug in mijn ogen, want de range-select verandert VOORDAT ik de muis heb losgelaten.
    Ik ga denken

    EricLang Yesterday, 12:08 Go to last post
    Duiker

    Wanneer gebeurt wat?

    Inderdaad Miep. Dat werkt wonderbaarlijk.

    Het komt dus omdat zoals marcov zegt, dat de refresh van het scherm pas na het event komt.

    Duiker Yesterday, 10:54 Go to last post