Ayuda para insertar de un DATETIMEPICKER
 

Buenos Dias

Necesito que me ayuden con la siguiente consulta que me da error

CONUSLTA

Código Delphi [-]
    with DataModule3.Query2 do
     begin
       close;
       sql.Clear;
       SQL.Add('Select idtcomb from tcomb where ntcomb=:pntcomb');
       ParamByName('pntcomb').AsString:=suiDBLookupComboBox1.Text;
       open;
       tcomb:=FieldByName('idtcomb').AsInteger;
       close;
       Sql.Clear;
       SQL.Add('INSERT INTO cargat(idtcomb, carga, fecha, nocarga)');
       Sql.Add('values(:ptcomb, :pcarga, :pfecha, :pncarga)');
       ParamByName('ptcomb').AsInteger:=tcomb;
       ParamByName('pcarga').AsInteger:=StrToInt(suiEdit2.Text);
       ParamByName('pfecha').AsDateTime:=Trunc(DateTimePicker1.Date);
       ParamByName('pncarga').AsString:=suiEdit1.Text;
       open;
     end;

el error que me da es el siguiente



Le agradeceria toda la ayuda que me puedan dar

execsql
 

Salnhack que tal si intentas ExecSql en lugar de open a la hora de insertar.

:cool:

ok
 

Gracias kapcomx me funciono bien.

bien
 

Salnhack que bueno que te funciona, solo recuerda usar open para consultas de selección (Select) y execsql para consultas de modificación (update, delete, insert)....

Saludos...:cool: