Problema Consulta Insert into...

[enecumene] · #1 24-08-2007

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:

Cita:

---------------------------
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] · #2 24-08-2007

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 · #3 24-08-2007

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] · #4 24-08-2007

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] · #5 24-08-2007

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] · #6 24-08-2007

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:

Cita:

---------------------------
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* · #7 24-08-2007

La primera coma del principio esta de mas

Cita:

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] · #8 24-08-2007

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] · #9 24-08-2007

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] · #10 24-08-2007

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] · #11 24-08-2007

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] · #12 24-08-2007

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] · #13 24-08-2007

Disculpen la tardanza:

Caral

Cita:

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

Cita:

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.

Cita:

---------------------------
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] · #14 24-08-2007

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] · #15 24-08-2007

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

[enecumene] · #16 24-08-2007

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] · #17 24-08-2007

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] · #18 24-08-2007

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;

Paoti · #19 24-08-2007

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] · #20 24-08-2007

Cita:

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

Temas Similares
Tema	Autor	Foro	Respuestas	Último mensaje
problema con un insert	darkclow_juliga	Conexión con bases de datos	1	05-12-2006 11:40:33
Problema con Insert	joanajj	Conexión con bases de datos	1	01-05-2006 08:11:40
Problema con Insert y Update en ADOQuery	Moises22	SQL	15	11-01-2006 07:57:13
Problema con insert	Ivan_25	C++ Builder	7	04-11-2005 10:38:34
consulta sobre insert	davidgaldo	SQL	1	14-04-2004 14:08:02