Parameter lassen sich in einer Query nicht füllen???

torsten_156

Hallo Leute,
ich versuche neue Datensätze in eine InterBase-Datenbank mittels einer TIBQuery-Komponente zu füllen.

AnsiString email        = "EMail";
int        sperre       = 1;
double     kredit       = 0.0;

DataModule1->QaddKunde->ParamByName("email")->AsString      = email;
DataModule1->QaddKunde->ParamByName("sperre")->AsInteger    = sperre;
DataModule1->QaddKunde->ParamByName("kredit")->AsFloat      = kredit;

AnsiString s1="insert into T_KUNDEN (e_mail,sperre,kredit)";

AnsiString s2= "values :email,:sperre,:kredit)";

      DataModule1->TaddKunde->StartTransaction();
      DataModule1->QaddKunde->SQL->Clear();
      DataModule1->QaddKunde->SQL->Add(s1);
      DataModule1->QaddKunde->SQL->Add(s2);
      DataModule1->QaddKunde->ExecSQL();
      DataModule1->TaddKunde->Commit();

Wenn ich diesen Code nun verwende, bekomme ich zwar keine Exception aber der Datensatz bleibt leer

niemand

Zuerst den SQL String einfüllen, dann die Parameter...