Problem mit bool Datenbankeintrag.

[The_ New_Guy]

Hi leute! Ich habe in Problem mit meiner datenbank - Ich möchte die checkbox.checked eigenschaft in meine datenbank bringen -

in etwa so:

Delphi-Quellcode:

query1.sql.clear;
query1.sql.add('insert into ***** (FELD) Values(' + quotedstr(booltostr(checkbox1.checked)) + ')';

leider funzt das mit dem booltostr nicht so .
das FELD in der datenbank läuft übrigens unter boolschen ausdruck.

delphi liefert mir auf diesen sql einen fehler

was kann ich tun?
danke schonmal im vorraus!

[mkinzler]

Verwende Parameter:

Delphi-Quellcode:

    sql.Text := 'insert into ***** (FELD) Values( :feld)';
    ParamByName('feld').Value := checkbox1.checked;

[The_ New_Guy]

er findet die parameter nicht - muss ich da noch irgendwas einstellen?

[mkinzler]

Query.ParamCheck := True;

[The_ New_Guy]

Delphi-Quellcode:

Query1.Active:=false;
  query1.SQL.Clear;

  // hier bei glanzahl kontrolle auf zahlen einführen + kontrolle auf datum

  query1.SQL.Add( 'INSERT into exceltabDatabase (AKZ, NACHNAME, VORNAME, '
                + 'Adresse, datum, GL, erfolg, abrechnung_erfasst, nur_beratung) VALUES('
                + quotedstr(edit1.Text)
                + ',' + quotedstr(edit2.text)
                + ',' + quotedstr(edit3.Text)
                + ',' + quotedstr(edit4.Text)
                + ',' + quotedstr(edit5.Text)
                + ',' + quotedstr(edit6.Text)
                + ':erfolg' + ':abrechnung_erfasst' + ':nur_beratung'
                + ')' );

  query1.ParamByName('erfolg').Value := checkbox1.checked;
  query1.ParamByName('abrechnung_erfasst').Value := checkbox2.checked;
  query1.ParamByName('nur_beratung').Value := checkbox3.checked;


  Query1.ParamCheck := True; 

  query1.ExecSQL;

funzt leider nicht

[mkinzler]

Delphi-Quellcode:

query1.Paramcheck := True;
query1.SQL.text:=  'INSERT into exceltabDatabase (AKZ, NACHNAME, VORNAME, '
                + 'Adresse, datum, GL, erfolg, abrechnung_erfasst, nur_beratung) VALUES ('                       
                + ':adr, :datum, :gl, :erfolg, :ae, :nb);';
query1.ParamByName('adr').Value := ...

[The_ New_Guy]

ahhh ja habs kapiert! dankeschöööööööööööööööööööööön!!!!

danke für die geduld + anfängerhilfe

[The_ New_Guy]

Delphi-Quellcode:

  Query1.ParamCheck := True;

  query1.SQL.Add( 'INSERT into exceltabDatabase (AKZ, NACHNAME, VORNAME, '
                + 'Adresse, datum, GL, erfolg, abrechnung_erfasst, nur_beratung)'
                + 'VALUES('
                + ':AKZ,:nachname,:vorname,:Adresse,:Datum,:gl,'
                + ':erfolg, :abrechnung_erfasst, :nur_beratung)'
                );

  query1.ParamByName('AKZ').AsString := edit1.Text;
  query1.ParamByName('nachname').AsString := edit2.text;
  query1.ParamByName('vorname').AsString := edit3.Text;
  query1.ParamByName('Adresse').AsString := edit4.Text;
  query1.ParamByName('Datum').AsDate := strtodate(edit5.Text);
  query1.ParamByName('gl').AsInteger := strtoint(edit6.Text);

  query1.ParamByName('erfolg').AsBoolean := checkbox1.checked;
  query1.ParamByName('abrechnung_erfasst').asboolean := checkbox2.checked;
  query1.ParamByName('nur_beratung').AsBoolean := checkbox3.checked;

  query1.ExecSQL;

darauf liefert er mir den errror(siehe bild)

[mkinzler]

Wenn die Typen übereinstimmen brauchst du nicht Casten sonder kannst .Value verwenden.

Das ist doppelt-gemoppelt:

Zitat:

query1.ParamByName('Datum').AsDate := strtodate(edit5.Text);

Besser:
query1.ParamByName('Datum').AsString := edit5.Text;

[The_ New_Guy]

funktioniert leider nicht -
das feld in meiner paradox db ist übrigens vom typ datum(daher kann man dann doch kein asstring nehmen, oder?)

Delphi-Quellcode:

//...
              + ':AKZ,:nachname,:vorname,:Adresse,:Datum,:gl,'
                + ':erfolg, :abrechnung_erfasst, :nur_beratung)'
                );

  query1.ParamByName('AKZ').AsString := edit1.Text;
  query1.ParamByName('nachname').AsString := edit2.text;
  query1.ParamByName('vorname').AsString := edit3.Text;
  query1.ParamByName('Adresse').AsString := edit4.Text;
  query1.ParamByName('Datum').asstring := edit5.Text;
  query1.ParamByName('gl').AsInteg
//...