Problema Consulta Insert into...

[[BlueSteel]]

tambien te falta hacer un limpiado del SQL.. por si queda algo, esto lo haces despues de

Código Delphi [-]
QHistorico.Close;
QHistorico.Sql.Clear;
QHistorico.Sql.Add( // y asi 
QHistorico.ExecSql;

[[maeyanes]]

Aparte que si ese componente solo sirve para insertar historicos, no necesita llamar al evento Close, ya que ExecSQL no devuelve ningún tipo de record set...

Código Delphi [-]
QHistorico.SQL.Clear;
QHistorico.SQL.Add('insert into Historico values');
//...
QHistorico.ExecSQL;

Saludos..

[[enecumene]]

Gracias a todos, el codigo quedo asi de acuerdo a sus sugerencias:

Código Delphi [-]
 QHistorico.SQL.Clear;
   QHistorico.SQL.Add('insert into historico (id, no, no_ped, dpto, responsable, fecha_rec_ped, status, user, date) values');
   QHistorico.SQL.Add('("", "'+DBEdit18.Text+'", "'+DBEdit7.Text+'", "'+DBLookupComboBox6.Text+'", "'+DBLookupComboBox8.Text+'", "'+DBEdit15.Text+'", "'+DBLookupComboBox1.Text+'", "'+DBEdit16.Text+'", "'+DBEdit17.Text+'")');
   QHistorico.ExecSQL;

nuevo error:

---------------------------
Debugger Exception Notification
---------------------------
Project Sigesped.exe raised exception class EOleException with message 'Syntax error in INSERT INTO statement'. Process stopped. Use Step or Run to continue.
---------------------------
OK Help
---------------------------

[*Caro*]

La primera coma del principio esta de mas

Empezado por enecumene

Código Delphi [-]
    QHistorico.SQL.Add('("", "'+DBEdit18.Text+'", "'+DBEdit7.Text+'", "'+DBLookupComboBox6.Text+'", "'+DBLookupComboBox8.Text+'", "'+DBEdit15.Text+'", "'+DBLookupComboBox1.Text+'", "'+DBEdit16.Text+'", "'+DBEdit17.Text+'")');

Saluditos

[[enecumene]]

Gracias Caro por tu respuesta, segun tu sugerencia quedaria asi:

Código SQL [-]
QHistorico.SQL.Add('("" "'+DBEdit18.Text+'", "'+DBEdit7.Text+'", "'+DBLookupComboBox6.Text+'", "'+DBLookupComboBox8.Text+'", "'+DBEdit15.Text+'", "'+DBLookupComboBox1.Text+'", "'+DBEdit16.Text+'", "'+DBEdit17.Text+'")');

si es asi aun me tira el mismo error.

Saludos...

[[Caral]]

Hola
Que vamos a hacer con tigo enecumene, no nos das datos suficientes.
Recuerda que hay diferentes tipos de campos, texto, numericos etc.
La inserción tiene que ser en base al tipo de campo por que estas concatenando.
Pregunto:
Que tipo de campo va a incluir cada uno de estos:
DBEdit18.Text
DBEdit7.Text
DBLookupComboBox6.Text
DBLookupComboBox8.Text
DBEdit15.Text
DBLookupComboBox1.Text
DBEdit16.Text
DBEdit17.Text
Puedo asegurar sin temor a equivocarme que mas de uno de estos debe de ser numerico.
Me explicas esto?
Saludos

[[enecumene]]

disculpa Caral todos los campos son tipos Textos. el unico que es numerico y es autoincrement es "id"...
mira mi codigo completo por si acaso:

Código Delphi [-]
procedure TFPedidoMod.BitBtn2Click(Sender: TObject);
begin
FConsPed.TbPedido.Edit;
if MessageDlg('¿Está seguro que desea Guardar?', mtConfirmation,
       [mbYes, mbNo], 0) = mrYes then
   begin
   FConsPed.TbPedido.Post;
   QHistorico.SQL.Clear;
   QHistorico.SQL.Add('insert into historico (id, no, no_ped, dpto, responsable, fecha_rec_ped, status, user, date) values');
   QHistorico.SQL.Add(' ("", "'+DBEdit18.Text+'", "'+DBEdit7.Text+'", "'+DBLookupComboBox6.Text+'", "'+DBLookupComboBox8.Text+'", "'+DBEdit15.Text+'", "'+DBLookupComboBox1.Text+'", "'+DBEdit16.Text+'", "'+DBEdit17.Text+'")');
   QHistorico.ExecSQL;
   MessageDlg('Los Datos se grabaron exitosamente!',mtError,[mbOK],0);
   Free;
   end;
end;

Saludos...