Sql - Ado - Values

[DeddyH]

Ähm, den SQL (genauer: DDL)-Text würde ich einmalig mit einem Administrationstool auf die DB loslassen.

[poterp]

ich habe wieder eine frage und zwar ich möchte gern ein DateTimePicker via adoquery in n access db speichern und so sieht das ganze aus:

Delphi-Quellcode:

procedure TForm2.Button3Click(Sender: TObject); 

var
dt: TDateTime;

const 
  STMT 
    = 'Insert Into Tab_Fb_Ziel(' 
    + 'paul, simon, alex, jean, rene, alain, simon, dominique, Raymond, Sylax, ' 
    + 'jeanne, Yvonne, Claire, Nina, Pierre, Janson, Louis, Lila, maurice, Jahr ' 
    + ') Values (' 
    + ':paul, :simon, :alex, :jean, :rene, :alain, :simon, :dominique, :Raymond, :Sylax, ' 
    + ':jeanne, :Yvonne, :Claire, :Nina, :Pierre, :Janson, :Louis, :Lila, :maurice, :jahr ' 
    + ')' 
    ; 
begin 
  with adoquery1 do 
  begin 
        SQL.Text := STMT; 
        dt:= Datetimepicker1.Date;

    Parameters.ParamByName('paul').Value := Edit1.Text; 
    Parameters.ParamByName('Jahr').Value := dt;
    // ... 
    ExecSQL;
  end; 
end;

Ich bekomme eine Fehlermedldung: Ein Parameterobjekt ist nicht ordnunggemäß definiert.
Dieser Fehler tritt auf seitdem ich das Objekt DateTimePicker1 eingefügt habe. Sieht jemand das Problem?
mfg
Poter

[DeddyH]

Wie ist Jahr denn in der DB definiert?

[poterp]

Jahr ist folgende definiert:
Format: Datum, Kurz zb(09.11.2007)

[DeddyH]

Dann würde ich es mal so versuchen:

Delphi-Quellcode:

procedure TForm2.Button3Click(Sender: TObject);

var
dt: TDateTime;

const
  STMT
    = 'Insert Into Tab_Fb_Ziel('
    + 'paul, simon, alex, jean, rene, alain, simon, dominique, Raymond, Sylax, '
    + 'jeanne, Yvonne, Claire, Nina, Pierre, Janson, Louis, Lila, maurice, Jahr '
    + ') Values ('
    + ':paul, :simon, :alex, :jean, :rene, :alain, :simon, :dominique, :Raymond, :Sylax, '
    + ':jeanne, :Yvonne, :Claire, :Nina, :Pierre, :Janson, :Louis, :Lila, :maurice, :jahr '
    + ')'
    ;
begin
  with adoquery1 do
  begin
        SQL.Text := STMT;
        dt:= Datetimepicker1.Date;

    Parameters.ParamByName('paul').Value := Edit1.Text;
    Parameters.ParamByName('Jahr').AsDateTime := trunc(dt);
    // ...
    ExecSQL;
  end;
end;

[poterp]

Das ist es jaParameters.ParamByName('Jahr').Value:= dt; Ich habe keine möglichkeit, nachParameters.ParamByName('Jahr').AsDateTime anzugeben. Ich kann alles mögliche wählen aber kein .AsDateTime.

[DeddyH]

Sorry, mit ADO hab ich keine Erfahrungen. Aber ein Blick in die Hilfe sagt mir, dass das Setzen des Datentyps helfen könnte:

Delphi-Quellcode:

procedure TForm2.Button3Click(Sender: TObject);

var
dt: TDateTime;

const
  STMT
    = 'Insert Into Tab_Fb_Ziel('
    + 'paul, simon, alex, jean, rene, alain, simon, dominique, Raymond, Sylax, '
    + 'jeanne, Yvonne, Claire, Nina, Pierre, Janson, Louis, Lila, maurice, Jahr '
    + ') Values ('
    + ':paul, :simon, :alex, :jean, :rene, :alain, :simon, :dominique, :Raymond, :Sylax, '
    + ':jeanne, :Yvonne, :Claire, :Nina, :Pierre, :Janson, :Louis, :Lila, :maurice, :jahr '
    + ')'
    ;
begin
  with adoquery1 do
  begin
        SQL.Text := STMT;
        dt:= Datetimepicker1.Date;

    Parameters.ParamByName('paul').Value := Edit1.Text;
    Parameters.ParamByName('Jahr').DataType := ftDate;
    Parameters.ParamByName('Jahr').Value := trunc(dt);
    // ...
    ExecSQL;
  end;
end;

[poterp]

Klappt leider nicht

[DeddyH]

Dieselbe Fehlermeldung?

[grenzgaenger]

sag mal, wie ist deine tabelle eigentlich aufgebaut (welche datentypen haben deine einzelnen felder)... meine kristiallkugel hab ich leider in der firma vergessen...