• 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

    Christian

    FTDI 64 bit invalid handle

    Lekker bezig,

    Heb even een test gedaan warbij ik in de originele code de handle heb vervangen door de TFT_Handle = pointer.
    Hierna

    Christian Yesterday, 15:18 Go to last post
    flabber

    FTDI 64 bit invalid handle

    Nog een stukje vanuit mijn kant dan... het is maar een klein stukje hoor, je bent waarschijnlijk zelf al wel verder gekomen. Nog geen rekening gehouden

    flabber Yesterday, 14:30 Go to last post
    Christian

    FTDI 64 bit invalid handle

    met de hulp van Flabber een eigen unit gemaakt (met enkel de open close functie)
    Hiermee kan ik het device openen en sluiten op zowel 32 / 64 bit

    Christian Yesterday, 13:14 Go to last post
    rvk

    Met RTF-code een tabel zetten op RichMemo

    RichMemo heeft geen notie van wat er in de richedit dll gebeurd met een tabel. Dus het enige dat ik me voor kan stellen is een karakter onder de tabel

    rvk Yesterday, 11:53 Go to last post
    flabber

    FTDI 64 bit invalid handle

    een klein opzetje dan, niet gechecked:

    Delphi Code:
    1. type
    2.   PFT_HANDLE = ^TFT_HANDLE;
    3.   TFT_HANDLE = pointer;
    4.   TFT_STATUS = ULONG;

    flabber Yesterday, 11:14 Go to last post
    Dubbeld

    Met RTF-code een tabel zetten op RichMemo

    Hallo allemaal,

    Ik zet via RTF-code een tabel op Richmemo. De tabel bestaat uit één kolom. Deze kolom
    heeft een breedte van X cm

    Dubbeld Yesterday, 11:00 Go to last post