🚀 go-pugleaf

In news:Fx0gb.60383$b83.2502724@phobos.telenet-ops.be, Marc P. typed:

> Ik werk met Delphi7 en Interbase, en gebruik de component
> SqlClientDatset
>
> procedure TForm1.Button1Click(Sender: TObject);
> begin
>      With SqlClientDatset1 do
>      begin
>           CommandText := 'INSERT INTO Artikels (Artikelnaam,
> Artikelnummer) ' +
>           'VALUES :_Artikelnaam, :_Artikelnummer)';
>           Execute;
>      end;
> end;
>
> Vraag is : waarom kan ik met deze code code g��n record toevoegen aan
> de tabel ? ( met gewone Pascal statements lukt dit natuurlijk wel )
> dank voor uw tijd .........

Waarom lukt het niet? Wat voor foutmelding krijg je? Wat bedoel je met
'gewone Pascal statements'?

Ik zie wel dat je de parameters niet vult voordat het statement uitgevoerd
wordt.

      With SqlClientDataset1 do
      begin
           CommandText := 'INSERT INTO Artikels (Artikelnaam, Artikelnummer)
' +
           'VALUES :_Artikelnaam, :_Artikelnummer)';
           ParamByName('_Artikelnaam').AsString := 'artikel';
           ParamByName('_Artikelnummer').AsInteger := 1251;
           Execute;
      end;

-- 
www.zenobits.com

> Waarom lukt het niet? Wat voor foutmelding krijg je? Wat bedoel je met
> 'gewone Pascal statements'?
bedoel ik dit ;

With SqlClientDataset1 do
begin
        Append:
        FieldByName('Artikelnaam').AsString := 'Artikel1';
        Post;
        ApplyUpdates(-1);
end;

> Ik zie wel dat je de parameters niet vult voordat het statement uitgevoerd
> wordt.
>
>       With SqlClientDataset1 do
>       begin
>            CommandText := 'INSERT INTO Artikels (Artikelnaam,
Artikelnummer)
> ' +
>            'VALUES :_Artikelnaam, :_Artikelnummer)';
>            ParamByName('_Artikelnaam').AsString := 'artikel';
>            ParamByName('_Artikelnummer').AsInteger := 1251;
>            Execute;
>       end;


Als ik onderstaande code invul :

With Artikels do
     begin
          CommandText := 'INSERT INTO Artikels (Artikelnaam) VALUES :test';
          Params.ParamByName('test').AsString := 'Artikelnaam1';
          Execute;
     end;

krijg ik de melding "parameter test not found"   Wat doe ik mis ??

In news:1aagb.61014$K63.2500715@phobos.telenet-ops.be, Marc P. typed:

>> Waarom lukt het niet? Wat voor foutmelding krijg je? Wat bedoel je
>> met 'gewone Pascal statements'?
> bedoel ik dit ;

<snip code>

Blijven er twee vragen open :-)

> Als ik onderstaande code invul :
>
> With Artikels do
>      begin
>           CommandText := 'INSERT INTO Artikels (Artikelnaam) VALUES
>           :test'; Params.ParamByName('test').AsString :=
>           'Artikelnaam1'; Execute;
>      end;
>
> krijg ik de melding "parameter test not found"   Wat doe ik mis ??

Gebruik beter een T(Update)Query. Vul daarvan de SQL property met je
statement en het zal waarschijnlijk beter gaan (zie ik in mijn glazen bol).

-- 
www.zenobits.com

> Ik werk met Delphi7 en Interbase, en gebruik de component SqlClientDatset

 SqlClientDatset is in D7 'deprecated', Borland beschouwt het nu als een
vergissinkje uit D6.

Gebruik dus liever een andere component, TSqlQuery heeft nog de minste
overhead.

Maar wat jij wil kan ook via de TSqlConnection, zie Execute en ExexuteDirect

-hh-