Cannot perform this operation on a ON A CLOSED DATASET

[Yun-i]

Delphi 6, base de datos MS SQL Server, la conecion es ADO y el componentes es un TADOdataset que ase referencia a una tabla

Application.CreateForm(TFRBusquedaCliente,FRBusquedaCliente);
if FRBusquedaCliente.ShowModal = mrOk then
begin
ADODSFact.Edit;
ADODSFactID_CLIENTE.Value:=FRBusquedaCliente.intCliente;
end;
FRBusquedaCliente.Free;
end;

La aplicacion no la codifique yo por eso no entiendo muy bien el codigo si es otra parte la que necesito poner solo decime cual y la pongo es un programa que abarca muchas cosas y no las se espero que estedes si gracias

[[enecumene]]

he aqui el problema:

Código Delphi [-]
Application.CreateForm(TFRBusquedaCliente,FRBusquedaCliente);
if FRBusquedaCliente.ShowModal = mrOk then
   begin
      ADODSFact.Open; --> esto es lo que faltaba
      ADODSFact.Edit;
      ADODSFactID_CLIENTE.Value:=FRBusquedaCliente.intCliente;
   end;
FRBusquedaCliente.Free;
end;

Saludos.

[[Caral]]

Hola
Ya te lo dijeron pero para insistir.
No se puede editar una tabla, query si esta cerrada, donde se abre en el codigo que pusiste, no lo veo.
Tal vez asi:

Código Delphi [-]
Application.CreateForm(TFRBusquedaCliente,FRBusquedaCliente);
if FRBusquedaCliente.ShowModal = mrOk then
begin
ADODSFact.Open;// esta seria la diferencia
ADODSFact.Edit;
ADODSFactID_CLIENTE.Value:=FRBusquedaCliente.intCliente;
end;
FRBusquedaCliente.Free;
end;

Saludos

[[Caral]]

Hola
Me ganaron por 37 segundos
Saludos

[Yun-i]

Esa era la solucionnn muchas gracias soy un novato pero ustedes si que saben gracias a los dosss jejeje me prestan su cerebro unos meses jajajaj
graciasssss

[Yun-i]

Ese Problema ya esta solucionado pero ahora estoy en otro identico marca el mismo error solo que en un dbgirddetafact


procedure TFPrincipal.actFactDireExecute(Sender: TObject);
begin
Application.CreateForm(TFFacturacionDirecta,FFacturacionDirecta);
FFacturacionDirecta.ShowModal;
FFacturacionDirecta.Free;// aqui me marca el error
end;



que sera ??

[[Caral]]

Hola
El error lo marca ahí por que es el principio del programa, osea que en el oncreate del from tienes el problema.
Aparte:

Código Delphi [-]
procedure TFPrincipal.actFactDireExecute(Sender: TObject);
begin
Application.CreateForm(TFFacturacionDirecta,FFacturacionDirecta);
try
FFacturacionDirecta.ShowModal;
finally
FFacturacionDirecta.Free;// aqui me marca el error
end;
end;

Para mi no lo puedes enseñar y liberar enseguida.
Saludos

[Yun-i]

Código Delphi [-]
procedure TFPrincipal.actFactDireExecute(Sender: TObject);
begin
Application.CreateForm(TFFacturacionDirecta,FFacturacionDirecta);
try
FFacturacionDirecta.ShowModal;//ahora el error es aqui
finally
FFacturacionDirecta.Free;
end;
end;


el error ahora lo marca ahi mm weno hgracias por tu apoyoo gracioas

[[eduarcol]]

trata de mostrar el evento onshow, y on create del formulario, a su ves escribe el error que te da, si en verdad es el mismo es porq te falto abrir la tabla

[[Caral]]

Hola
Coloca el codigo del from FFacturacionDirecta completo.
Si dices que el error es el mismo solo que en dbgirddetafact, pues ahi esta el error, ahi es donde hay que buscar.
Tambien puedes presionar f8 o f7 creo.
Saludos

[[maeyanes]]

Hola...

Si indicas cual es el error que obtienes, te podremos ayudar mejor...



Saludos...

[Yun-i]

Esta prte del codigo es la que ejecuta cuando le doy click al grid me di cuanta que tampoco tenia el ADODSFact.open se lo puese pero esta vez el error sigue siendo el mismo


procedure TFFacturacionDirecta.actBusqEvenExecute(Sender: TObject);
begin
Application.CreateForm(TFRBusquedaEventos,FRBusquedaEventos);
if FRBusquedaEventos.ShowModal = mrOk then
begin
ADODSFact.Edit;
ADODSFactNUM_EVENTO.Value:=FRBusquedaEventos.intEvento;
end;
FRBusquedaEventos.Free;
end;