AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Datenbanken Delphi ParamsByName liefert ? zurück
Thema durchsuchen
Ansicht
Themen-Optionen

ParamsByName liefert ? zurück

Ein Thema von Bacardifeeling · begonnen am 25. Mai 2005 · letzter Beitrag vom 25. Mai 2005
 
Bacardifeeling

Registriert seit: 25. Mai 2005
13 Beiträge
 
Delphi 7 Professional
 
#1

ParamsByName liefert ? zurück

  Alt 25. Mai 2005, 11:00
Datenbank: Firebird • Version: 1.5 • Zugriff über: Zeos
Moin

Habe ein kleines Problem mit einem INSERT....

Delphi-Quellcode:
 begin
      with Datamodule1 do
        begin
          //Kundendetails füllen
          Zquery.SQL.clear;
          Zquery.SQL.Add('SELECT MAX (ID) MAXVAR FROM KUNDEN_D');
          Zquery.Open;
          Maxvar := (Zquery.fieldbyname ('maxvar').AsInteger) + 1;
          Zquery.Close;
          Zquery.sql.Clear;
          Zquery.sql.add ('INSERT INTO Kunden_d values ');
          Zquery.sql.add ('(:ID, :Lieferzonen_ID, :Bankverb_ID, :Orte_ID, :Strasse, :Geb_Datum, :Kunde_Seit, :Tel, :Email, :Handy)');
          //Zquery.ParamCheck := True;
          Zquery.Params.ParamByName('ID').AsInteger := MaxVar;
          showmessage(inttostr(Zquery.Params.ParamByName('ID').AsInteger));
          Zquery.Params.ParamByName ('Lieferzonen_ID').AsInteger := (integer(CB_Lieferz.Items.Objects[cb_Lieferz.ItemIndex]));
          Zquery.Params.ParamByName('Bankverb_ID').AsInteger := 1;
          Zquery.Params.ParamByName ('Orte_ID').AsInteger := (integer(cb_Ort.Items.Objects[cb_Ort.ItemIndex]));
          Zquery.Params.ParamByName('Strasse').AsString := ME_STR.Text;
          Zquery.Params.ParamByName('Geb_Datum').Asstring := me_geb.text ;
          Zquery.Params.ParamByName('Kunde_Seit').Asstring := me_DAt.text;
          Zquery.Params.ParamByName('Tel').Asstring := me_tel.text;
          Zquery.Params.ParamByName ('Email').AsString := me_mail.text;
          Zquery.Params.ParamByName('Handy').AsString := me_handy.text;
          showmessage (Zquery.SQL.Text);
          Zquery.ExecSQL;
         .
         .
         .
 end;
Der über schowmessage angezeigte Text für den Parameter :ID enthält den richtigen Wert...
bei Ausgabe des gesamten Textes bekomme ich dann :
Zitat:
INSERT INTO Kunden_d values (:ID, :Lieferzonen_ID, :Bankverb_ID, :Orte_ID, :Strasse, :Geb_Datum, :Kunde_Seit, :Tel, :Email, :Handy)
es stehen also, IMHO, keine Werte in den Parametern.

In der Exeption steht es genauso, ausser dass die Parameter mit je einem "?" gefüllt sind.

Wäre nett wenn mir jemand sagen könnte was ich hier falsch mache...





PS: Ach ja, schön dabei zu sein
Alle Genüsse sind schließlich Einbildung,
und wer die beste Phantasie hat, hat den größten Genuß.
Nur das Unwirkliche macht den Wert aus und ist eigentlich das einzig Reale.
- Theodor Fontane
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 00:05 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz