problema con AdoDataset

[[Caral]]

Hola
Que complicado lo veo, pero bueno:
Tal vez asi:

Código Delphi [-]
with formdepartamento do
begin
PathBD := ExtractFilePath(Application.ExeName);
CadenaConexion := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + PathBD + 'data.mdb';
DataSetreportdep.ConnectionString := CadenaConexion;
DataSetreportdep.Close;
DataSetreportdep.CommandText := 'select * from principal' + ' WHERE (((principal.departamento)=''' + Formparametros.Combodepa.Text + ''' ))';;
DataSetreportdep.Open;
begin
QRDBdep.Caption := DataSetreportdep.fieldbyname('Departamento').value;
QRDBuser.Caption := DataSetreportdep.fieldbyname('usuario').value;
QRDBsetup.Caption := DataSetreportdep.fieldbyname('setup').value;
QRDBred.Caption := DataSetreportdep.fieldbyname('red').value;
QRDBref.Caption := DataSetreportdep.fieldbyname('Refrescador').value;
QRDBcorreo.Caption := DataSetreportdep.fieldbyname('correo').value;
QuickRep1.Preview;

Es lo que se me ocurre.
Saludos

[[Caral]]

Hola
Aqui ya estoy especulando:

Código Delphi [-]
with formdepartamento do
begin
DataSetreportdep.Active:= False;
PathBD := ExtractFilePath(Application.ExeName);
CadenaConexion := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + PathBD + 'data.mdb';
DataSetreportdep.ConnectionString := CadenaConexion;
DataSetreportdep.CommandText := 'select * from principal' + ' WHERE (((principal.departamento)=''' + Formparametros.Combodepa.Text + ''' ))';;
DataSetreportdep.Active:= True;
begin
QRDBdep.Caption := DataSetreportdep.fieldbyname('Departamento').value;
QRDBuser.Caption := DataSetreportdep.fieldbyname('usuario').value;
QRDBsetup.Caption := DataSetreportdep.fieldbyname('setup').value;
QRDBred.Caption := DataSetreportdep.fieldbyname('red').value;
QRDBref.Caption := DataSetreportdep.fieldbyname('Refrescador').value;
QRDBcorreo.Caption := DataSetreportdep.fieldbyname('correo').value;
QuickRep1.Preview;

Se le ocurre algo mas a alguien?
Saludos

[jocey]

hola mira, esto ultimo que pones tiene mucha logica, pero bueno sigue dando el mismo error, no tengo idea de como y pq pase esto, al parecer el activar y desctivar es lo mismo o parecido al Open y Close, asi que por favor si alguien mas tiene otra idea, de esa brillante que a ustedes se les ocurre, estare en espera de sus modestas y sabias desiciones.


Saludos a todos.
Jocey

[[Caral]]

Hola
A ver:

Código Delphi [-]
with formdepartamento do
begin
try
PathBD := ExtractFilePath(Application.ExeName);
CadenaConexion := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + PathBD + 'data.mdb';
DataSetreportdep.ConnectionString := CadenaConexion;
DataSetreportdep.CommandText := 'select * from principal' + ' WHERE (((principal.departamento)=''' + Formparametros.Combodepa.Text + ''' ))';;
DataSetreportdep.Active:= True;
begin
QRDBdep.Caption := DataSetreportdep.fieldbyname('Departamento').value;
QRDBuser.Caption := DataSetreportdep.fieldbyname('usuario').value;
QRDBsetup.Caption := DataSetreportdep.fieldbyname('setup').value;
QRDBred.Caption := DataSetreportdep.fieldbyname('red').value;
QRDBref.Caption := DataSetreportdep.fieldbyname('Refrescador').value;
QRDBcorreo.Caption := DataSetreportdep.fieldbyname('correo').value;
QuickRep1.Preview;
finally
DataSetreportdep.Active:= False;
end;

Intentemos con un try, finally, la idea seria que en cuento se haga el reporte se finalice la accion del dataset.
No le hagas mucho caso a este Novato de todos modos.
Saludos

[jocey]

Empezando caral no creo que seas un novato, pero bueno ademas en caso de que lo seas, entonces este novatisimo a aprendido mucho de ti, mira intente esta solucion y ya me trabaja bien, mira a ver que opinas



procedure TFormparametros.Button2Click(Sender: TObject);
begin
with formdepartamento do
begin
try
PathBD := ExtractFilePath(Application.ExeName);
CadenaConexion := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + PathBD + 'data.mdb';
DataSetreportdep.ConnectionString := CadenaConexion;
DataSetreportdep.CommandText := 'select * from principal' + ' WHERE (((principal.departamento)=''' + Formparametros.Combodepa.Text + ''' ))';;
DataSetreportdep.Active := true;
begin
QRDBdep.Caption := DataSetreportdep.fieldbyname('Departamento').value;
QRDBuser.Caption := DataSetreportdep.fieldbyname('usuario').value;
QRDBsetup.Caption := DataSetreportdep.fieldbyname('setup').value;
QRDBred.Caption := DataSetreportdep.fieldbyname('red').value;
QRDBref.Caption := DataSetreportdep.fieldbyname('Refrescador').value;
QRDBcorreo.Caption := DataSetreportdep.fieldbyname('correo').value;
QuickRep1.Preview;
end
finally
if DataSetreportdep.Bof or DataSetreportdep.Eof then
DataSetreportdep.Last ;
DataSetreportdep.Close;
end;
end;
end;

[[Caral]]

Hola
Bueno si te trabaja bien, pues excelente, si me pides opinion?, nunca he trabajado con los dataset, de hecho solo lo mire en delphi para tratar de entenderlo asi que imaginate que puedo opinar, solo que eres un maestro.
Me alegro que lo resolvieras.
Saludos

[jocey]

Bueno caral, el maestro eres tu, pero bueno, muchas gracias por tu seguimiento y prestar parte de tu tiempo a resolver los problemas de otros.


Gracias de Corazon

Salu2 Jocey