Problema Consulta Insert into...

[[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...

[[Caral]]

Hola
Se que me engañas, lo veo en mi pantallita mágica.
Me vas a decir que estos son tipo texto?

Código Delphi [-]
fecha_rec_ped
date

Crees que se necesite insertar el campo autoincrement?
Saludos

[[maeyanes]]

Si el campo Id es autoincremental, no veo la necesidad de usarlo en el insert into...

Código Delphi [-]
QHistorico.SQL.Add('insert into historico (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+'")');

Caral, el que el nombre de campo indique que es tipo fecha (date), no significa que así haya sido declarado en la base de datos. Si enecumene dice que fue declarado como un tipo string habremos de creerle...


Saludos...

[[enecumene]]

Disculpen la tardanza:

Caral

Hola
Se que me engañas, lo veo en mi pantallita mágica.
Me vas a decir que estos son tipo texto?

en la base de datos esta declarado como string.

maeyanes

Si el campo Id es autoincremental, no veo la necesidad de usarlo en el insert into...

aun quitando el campo id del insert into el error aun persiste.

---------------------------
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
---------------------------

[[maeyanes]]

A simple vista no se ve el error...

Por que no intentas esto:

Agrega un componente TMemo en la forma donde usas esta instrucción y haces lo siguiente:

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+'")');
    Memo1.Text := QHistorico.SQL.Text; // Agregas esta línea...
    QHistorico.ExecSQL;
    MessageDlg('Los Datos se grabaron exitosamente!',mtError,[mbOK],0);
    Free;
  end;
end;

Luego copias el texto que resultó en el TMemo y nos lo pones aquí...

Algo me dice que el error está en el insert ya formado...


Saludos...

[[Caral]]

Hola
Y Asi?

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

Saludos