Foros Club Delphi - Problemas en insercion de registros

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Conexión con bases de datos (https://www.clubdelphi.com/foros/forumdisplay.php?f=2)

- - Problemas en insercion de registros (https://www.clubdelphi.com/foros/showthread.php?t=26389)

Problemas en insercion de registros

Hola ..... estoy intentando insertar registros en una tabla interbase con la siguiente sentencia

Código Delphi [-] tcomparacion.Edit;
 tcomparacion.InsertRecord(['Punto de Gelificación','Null',table1.FieldByName('punto_gelificacion').AsString,
   vlbpunto_gelificacion,'Quimico','Null','Al 5% a 25Cº']);
 
 tcomparacion.InsertRecord(['Cenizas tot B. Humeda','Null',table1.FieldByName('cenizas_tot_bhumeda').AsString,
   vlbcenizas_tot_bhumeda,'Físico','Null','xxxxxxxxxxx']);
 tcomparacion.Post;

Pero me sa un error despues de insertar los registros
el error es :

Proyect sestec.exe raised exception class EDBEngineError with message "multiple records found , but only one was expected. Process Stopped

Ayuda por favor..... gracias...

Saludos

tcomparacion.Edit; Para qué editar, si vas a insertar?:confused: creo que está de más esa linea.
Aunque nunca he utilizado ese método, me viene la idea de que debes hacer post por cada InsertRecord. Podría equivocame :rolleyes: Pruebalo:)

Código Delphi [-] tcomparacion.InsertRecord(['Punto de Gelificación','Null',table1.FieldByName('punto_gelificacion').AsString,
   vlbpunto_gelificacion,'Quimico','Null','Al 5% a 25Cº']);
 tcomparacion.Post;
 
 tcomparacion.InsertRecord(['Cenizas tot B. Humeda','Null',table1.FieldByName('cenizas_tot_bhumeda').AsString,
   vlbcenizas_tot_bhumeda,'Físico','Null','xxxxxxxxxxx']);
 tcomparacion.Post;

Cita:

Empezado por vtdeleon

Saludos
Aunque nunca he utilizado ese método, me viene la idea de que debes hacer post por cada InsertRecord. Podría equivocame :rolleyes: Pruebalo:)

Creo que estás en lo cierto, el mensaje de error está clarito, se ingresaron muchos registros, pero se esperaba solamente uno.

;)

Hasta Luego.

El Post tambien sobra.

Cita:

Empezado por ayuda de delphi

Inserts a new, populated record to the dataset and posts it.

procedure InsertRecord(const Values: array of const);

Description

Call InsertRecord to create a new, empty record in the dataset, populate it with the field values in Values, and post the values to the database or change log.

A newly inserted record is posted to the database in one of three ways:

For indexed Paradox and dBASE tables, the record is inserted into the dataset in a position based on its index.
For unindexed Paradox tables, the record is inserted into the dataset at the current position.
For unindexed dBASE, FoxPro, and Access tables, the record is inserted into the dataset at the end.
For SQL databases, the physical location of the insert is implementation-specific. For indexed tables, the index is updated with the new record information.

The newly inserted record becomes the active record.

En definitiva, deja solo las lineas de InsertRecord. Si aún así te da el mismo error, puede que le estes pasando un valor de más, es decir, la tabla tiene 4 campos y tu le das 5 para insertar.

saludos

Hola Ilich

El nombre sestec me suena.... al igual que los campos que mencionas..... al pareces estas desarrollando una aplicacion para un laboratorio de control de calidad....

si quieres sabes mas información al respecto, enviame un mensaje privado...

La insercion no funciona....lo he intentado de la sgte manera...

He intentado con el codigo que sigue a continuacion, pero no me inserta los registris en las otras tablas..... o sea los datos estan en tcomparacion , y trato de enviar los datos a diferentes tablas segund un dato de un campo, pero no funciona.....Agradeceria el tiempo de alguno de los masters.....

Código Delphi [-]//repartir los diferentes registros de tcomparacion en tfuncional,tquimico,tfisico y tmicro
dm.tcomparacion.Open;
While (not dm.tcomparacion.eof) Do
   Begin
   If (dm.tcomparacion.FieldByName('analisis').AsString <> '') then
      begin
           if (dm.tcomparacion.FieldByName('tipo').AsString = 'fisico') then
               begin
               dm.Qryfisico.SQL.Clear;
               dm.Qryfisico.SQL.Add('INSERT INTO fisico (analisis,minimo,maximo,resultado,tipo,unidad,metodo)');
               dm.Qryfisico.SQL.Add('SELECT * FROM comparacion where comparacion.tipo = "fisico" ');
               dm.Qryfisico.ExecSQL;
               end;
           if (dm.tcomparacion.FieldByName('tipo').AsString = 'quimico') then
               begin
               dm.Qryquimico.SQL.Clear;
               dm.Qryquimico.SQL.Add('INSERT INTO fisico (analisis,minimo,maximo,resultado,tipo,unidad,metodo)');
               dm.Qryquimico.SQL.Add('SELECT * FROM comparacion where comparacion.tipo = "quimico" ');
               dm.Qryquimico.ExecSQL;
               end;
           if (dm.tcomparacion.FieldByName('tipo').AsString = 'funcional') then
               begin
               dm.Qryfuncional.SQL.Clear;
               dm.Qryfuncional.SQL.Add('INSERT INTO fisico (analisis,minimo,maximo,resultado,tipo,unidad,metodo)');
               dm.Qryfuncional.SQL.Add('SELECT * FROM comparacion where comparacion.tipo = "funcional" ');
               dm.Qryfuncional.ExecSQL;
               end;
           if (dm.tcomparacion.FieldByName('tipo').AsString = 'micro') then
               begin
               dm.Qrymicro.SQL.Clear;
               dm.Qrymicro.SQL.Add('INSERT INTO fisico (analisis,minimo,maximo,resultado,tipo,unidad,metodo)');
               dm.Qrymicro.SQL.Add('SELECT * FROM comparacion where comparacion.tipo = "micro" ');
               dm.Qrymicro.ExecSQL;
               end;
   end; //if
dm.tcomparacion.Next;
end;
dm.tcomparacion.Close;

Gracias....

Ilich Hernandez

Te aconsejo un manual de sql si quieres avanzar más rápido y no quedarte parado en detalles de sintaxis.

La sintaxis normal es:

Cita:

INSERT INTO <NOMBRETABLA> (nombrecampo1, nombrecampo2,etc)
VALUES (valorcampo1, valorcampo2, etc).

Los valores (VALUES) deben ser los adecuados para un solo registro, sin embargo, en tu SQL te falta la palabra VALUES y además estas haciendo un select * que puede devolver más de un registro. Supongo que el orden de los campos será el mismo para ambas tablas.

Por otra parte dbase no es una base de datos Cliente / Servidor, puede que con TTables funcione más rápido que con Querys.

Si tienes posiblidad de cambiar de BBDD te sugiero Firebird, con un procedimiento almacenado si podrías realizar todo ese proceso de una forma más comoda.

saludos