Ayuda con Dbgrib y query active

[pedrolazarus]

Pasa lo siguiente, tengo un zquery activado para insertar datos desde la dbgrib, los datos se guardan correctamente, El problema esta en que quise actualizar una columna dependiendo de otra si columna[0]=x entonces columna[1]=Y), por ejemplo si coloco en la columna[0] perro en columna[1]
deberia de aparecer animal automaticamente para ello como no encontré para la dbgrib el evento onchange entonces utilice un dbedit para el onchange y aquí es donde viene el error que por lo que estuve leyendo es el evento el que lo provoca(No es un error de Lazarus si no de programacion). en el onchange del dbedit realizo una consulta dependiendo de la columna[0] ya con un dato o valor agregado lo q por supuesto activa el evento

select (Xcosa) from Tabla where x=columna[0].text;

le doy open a la consulta y luego le asigno el valor que encontré a la columna de la dbgrib

dbgrib.columna[1].field.text=query.datafielbyname(x).AsString;

Me dijeron tambien que lo hiciera asi

dbgrid.DataSource.Dataset.FieldByName('fieldname').asString:=query.datafielbyname(x).AsString;

Asi hasta alli cuando desactivo el query los datos se guardan bien. Volvi a agregar datos, cuando cuando ya habia agregado varias filas con datos y quise seleccionar
una fila de mas arriba con el mouse o con flechita arriba me tiro el siguiente error

dataset not in edit or insert mode


Al final lo que deseo es que la columna numero uno se actualice a un valor dependiendo de lo que agregue en la columna cero


Resumiendo:
Los datos se guardan correctamente Pero cuando subo una fila de la dbgrib ya sea con el mouse o con el teclado tira error porq la zquer1 esta activo y no en edicion o insertar. Pero cuando le meto la linea dbgrid.DataSource.Edit o un edit
el zquery.active se vuelve false y no guarda ninguno de los datos que estoy ingresando en la dbgrib.


Sin edit guarda pero al subir un registro mas arriba tira error.

Con edit no guarda nada.

Ejemplo:LLevo insertado todos estos datos(sin el data set en edit)

==============================
!!_ID_ !! Dato1 !!! Dato2 !!! Dato3 !!
==============================
!! 1 !! valor1 !! valor2 !! valor3 !!
==============================
!! 2 !! valor1 !! valor2 !! valor3 !!
==============================
!! 3 !! valor1 !! valor2 !! valor3 !!
==============================

Supongamos que llego al tercer id pero me doy cuenta que el id=1 hay un
dato erroneo y me pociciono sobre la columna a modificar entonces alli me
tira error. (Teniendo en cuenta que en el evento onchange estoy realizando consultas cada vez que cambio de fila)

Si no lo Hago(Subir un registro) y Desactivo el zquery los datos se guardan
correctamente en la base de datos.

Si lo hago con dataset edit no se guarda nada.

[ecfisa]

Hola.

Según entendí deseas que cuando ingresen el valor de determinado campo de una tabla T1, este sea buscado en otra tabla T2 mediante una consulta. Esta consulta debería retornar el valor de otro campo de T2 que a su vez será asignado a otro campo en T1.

Si no me equivoqué en la apreciación, podrías usar el evento OnSetText del campo de la tabla T1 en que estas ingresando la información:

Código Delphi [-]
type
  TForm1 = class(TForm)
    ...
    procedure FormCreate(Sender: TObject);
  private
    procedure tuCampoSetText(Sender: TField; const Text: string);
  public
  end;
...

implementation

procedure TForm1.tuCampoSetText(Sender: TField; const Text: String);
begin
  DataSetT1.Edit;
  QueryT2.Close;
  QueryT2.SQL.Clear;
  QueryT2.SQL.Text := 'SELECT * FROM T2 WHERE CPO_A_BUSCAR = :VALOR';
  QueryT2.ParamByName('VALOR').AsString := Text;
  QueryT2.Open;
  DataSetT1.FieldByName('CPO_A_ASIGNAR').AsString := QueryT2.FieldByName('CPO_ENCONTRADO').AsString;
  Sender.AsString := Text;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  DataSetT1.FieldByName('Nivel').OnSetText:= tuCampoSetText;
end;
...

Donde:

• DataSetT1 -> Tabla de ingresos.
• QueryT2 -> Tabla de consulta.
• CPO_INGRESADO: Es el campo de T1 donde ingresas el valor que será buscado en T2.
• CPO_A_BUSCAR: Es el campo de T2 a comparar con CPO_INGRESADO.
• CPO_A_ASIGNAR: Es el campo de T1 al que se le asigna el resultado de la búsqueda en T2.
• CPO_ENCONTRADO: Es el campo de T2 que se asignará a CPO_A_ASIGNAR.

Si creas los campos persistentes, podes asignar el evento OnSetText haciendo doble click sobre dicho evento del campo desde el Object Inspector, yo lo hice manualmente para que sea mas claro el ejemplo.

De este modo y si lo deseas, incluso podes prescindir del TDBEdit, ya que realizará el cambio aún escribiendo sobre el DBGrid.

Saludos.

[pedrolazarus]

Empezado por ecfisa

Hola.

Según entendí deseas que cuando ingresen el valor de determinado campo de una tabla T1, este sea buscado en otra tabla T2 mediante una consulta. Esta consulta debería retornar el valor de otro campo de T2 que a su vez será asignado a otro campo en T1.

Si no me equivoqué en la apreciación, podrías usar el evento OnSetText del campo de la tabla T1 en que estas ingresando la información:

Código Delphi [-]type TForm1 = class(TForm) ... procedure FormCreate(Sender: TObject); private procedure tuCampoSetText(Sender: TField; const Text: string); public end; ... implementation procedure TForm1.tuCampoSetText(Sender: TField; const Text: String); begin DataSetT1.Edit; QueryT2.Close; QueryT2.SQL.Clear; QueryT2.SQL.Text := 'SELECT * FROM T2 WHERE CPO_A_BUSCAR = :VALOR'; QueryT2.ParamByName('VALOR').AsString := Text; QueryT2.Open; DataSetT1.FieldByName('CPO_A_ASIGNAR').AsString := QueryT2.FieldByName('CPO_ENCONTRADO').AsString; Sender.AsString := Text; end; procedure TForm1.FormCreate(Sender: TObject); begin DataSetT1.FieldByName('Nivel').OnSetText:= tuCampoSetText; end; ...


Donde:

• DataSetT1 -> Tabla de ingresos.
• QueryT2 -> Tabla de consulta.
• CPO_INGRESADO: Es el campo de T1 donde ingresas el valor que será buscado en T2.
• CPO_A_BUSCAR: Es el campo de T2 a comparar con CPO_INGRESADO.
• CPO_A_ASIGNAR: Es el campo de T1 al que se le asigna el resultado de la búsqueda en T2.
• CPO_ENCONTRADO: Es el campo de T2 que se asignará a CPO_A_ASIGNAR.

Si creas los campos persistentes, podes asignar el evento OnSetText haciendo doble click sobre dicho evento del campo desde el Object Inspector, yo lo hice manualmente para que sea mas claro el ejemplo.

De este modo y si lo deseas, incluso podes prescindir del TDBEdit, ya que realizará el cambio aún escribiendo sobre el DBGrid.

Saludos.

Lo que pasa es que el query se desactiva y no guarda nada.

Estoy pensando en dejar la dbgrib alli quieta y luego cuando el usuario este de acuerdo con los datos recorrerla y guardarlos en la base de datos.

Sera bueno ese metodo.

[ecfisa]

Empezado por pedrolazarus

Lo que pasa es que el query se desactiva y no guarda nada.

Hola.

¿ Podrías explicar mejor ese punto ?, realmente no entiendo la situacion...

Si utilizas un query dedicado para la consulta en la segunda tabla, no tiene ninguna injerencia sobre la activación o desactivación del TDataSet relacionado al DBGrid...

Saludos.

[pedrolazarus]

Empezado por ecfisa

Hola.

¿ Podrías explicar mejor ese punto ?, realmente no entiendo la situacion...

Si utilizas un query dedicado para la consulta en la segunda tabla, no tiene ninguna injerencia sobre la activación o desactivación del TDataSet relacionado al DBGrid...

Saludos.

Al final no lo hice asi, no me funciono, pero bueno el sistema ahora es mas sencillo y amigable al usuario.