Problema Consulta Insert into...

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

[[enecumene]]

maeyanes, esta linea me deberia salir? porque cuando el error me sale todo queda detras y se friza y no me permite ver nada...

[[maeyanes]]

Para que no te de el error, comenta la línea de QHistorico.ExecSQL, así al hacer click en el botón, generas la sentencia insert sin ejecutarla.


Saludos...

[[enecumene]]

Me presenta el mismo error, no se si sirve de algo la linea de error que me tira el ADODB:

Código SQL [-]
function TADOCommand.Execute(var RecordsAffected: Integer;
  const Parameters: OleVariant): _Recordset;
var
  VarRecsAffected: OleVariant;
begin
  SetConnectionFlag(cfExecute, True);
  try
    Initialize;
    Result := CommandObject.Execute(VarRecsAffected, Parameters, <---AQUI
      Integer(CommandObject.CommandType) + ExecuteOptionsToOrd(FExecuteOptions));
    RecordsAffected := VarRecsAffected;
  finally
    SetConnectionFlag(cfExecute, False);
  end;
end;

[[maeyanes]]

Empezado por enecumene

Me presenta el mismo error, no se si sirve de algo la linea de error que me tira el ADODB:

Creo que no entendiste...

En la forma donde generas el insert, coloca un componente TMemo en donde sea y modifica el código con el que te puse mensajes más arriba, el único cambio que vas a hacer es que vas a comentar la línea QHistorico.ExecSQL para que no se ejecute el insert...

Cuando en tiempo de ejecución hagas click en el botón, en el TMemo te debe salir la sentencia insert generada, la seleccionas y lo copias y lo muestras aquí para poder saber donde está el error...



Saludos...

[[enecumene]]

maeyanes, hice exactamente lo que me pediste puse un memo en cualquier parte de la forma, el codigo lo puse asi:

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;
    QHistorico.ExecSQL;
    MessageDlg('Los Datos se grabaron exitosamente!',mtError,[mbOK],0);
    Free;
  end;
end;

el memo me sale en blanco y el erro me sale igualito, a lo mejor estoy confundido sobre "comentar" QHistorico.ExecSQL. ojala no este molestando mucho espero.

[Paoti]

hola enecumene


comenta las lineas

del QHistorico.SQL.Text := 'inser... etc


y bguadra todo en una variable string,


dibujate un memo y ahi
has esto

memo1.text := myCadenadeSQLInsert;


y ve sie sta bien generado tu sentencia y haber en donde esta mal

[[enecumene]]

Empezado por Paoti

hola enecumene


comenta las lineas

del QHistorico.SQL.Text := 'inser... etc


y bguadra todo en una variable string,


dibujate un memo y ahi
has esto

memo1.text := myCadenadeSQLInsert;


y ve sie sta bien generado tu sentencia y haber en donde esta mal

disculpa paoti no entendi, de veras que no y disculpame, me podrias dar un ejemplo?. Gracias...

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