Problema Consulta Insert into...

[[enecumene]]

Hola Compañeros del foro, codigo:

Código Delphi [-]
QHistorico.Close;
   QHistorico.SQL.Add('insert into historico values');
   QHistorico.SQL.Add('("", "'+DBEdit13.Text+'")');
   QHistorico.Open;
   QHistorico.ExecSQL;

error:

---------------------------
Debugger Exception Notification
---------------------------
Project Sigesped.exe raised exception class EOleException with message 'Number of query values and destination fields are not the same'. Process stopped. Use Step or Run to continue.
---------------------------
OK Help
---------------------------

eso quiere decir que los values tiene que ir en el mismo orden que esta en la base de datos?.

Saludos...

[[maeyanes]]

Cuando haces un insert sin especificar los campos, los valores que pasas deben ir en el orden en que están los campos de la tabla y debes incluir todos y cada uno de los valores:

Código SQL [-]
create table historico (
  id Integer,
  descripcion varchar(30)
);

insert into historico values(1, 'Primer histórico');

/* La sentencia anterior equivale a: */
insert into historico (id, descripcion) values(1, 'Primer histórico');

Saludos...

[jhonny]

Seguramente la tabla historico tiene mas campos de los que estas tratando de insertar, de manera pues que creo que lo mejor es que le indiques el nombre de los campos que deseas insertar, asi:

Código Delphi [-]
   QHistorico.Close;
   QHistorico.SQL.Add('insert into historico (NombreDelCampoVacio, NombreDelOtroCampo) values');
   QHistorico.SQL.Add('("", "'+DBEdit13.Text+'")');
   QHistorico.ExecSQL;

Otra cosa, quitale el QHistorico.Open; ya que con el ExecSql; ya sera suficiente, ademas puede causarte problemas mas adelante.

Espero te sirva .

//Nota: Caramba¡¡¡ casi que iguales maeyanes

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