FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
problema con AdoDataset
Hola a la maravillosa familia del foro, miren tengo problemas con una consulta a una base de datos y al mostrar los resultddos en un reporte con quickreport, pero pasa que cuando lo ejecuto por primera vez todo sale bien, y cuando trato de consultar por otro valor me dice 'Can not perform this operation on an open Dataset', vaya se que es que el Dataset esta abierto, pero bueno, les adjunto el codigo para ver si me pueden corregir.... Saludos de antemanos.
Jocey with formdepartamento do begin 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.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; |
#2
|
||||
|
||||
Hola jocey, te falta hacer un close antes de ejecutar otra vez tu consulta.
Saluditos
__________________
Disfruten cada minuto de su vida a lado de sus seres queridos como si fuese el ultimo, uno nunca sabe lo que puede pasar. |
#3
|
||||
|
||||
Coloca DataSetreportdep.Close; como inicio de ese bloque.
Y usa la etiqueta "[ Delphi ]". Saludos. Al González. |
#4
|
||||
|
||||
Hola
Que complicado lo veo, pero bueno: Tal vez asi: Es lo que se me ocurre. Saludos |
#5
|
||||
|
||||
no será la doble comilla?
__________________
Conoce mi blog http://www.edgartec.com |
#6
|
||||
|
||||
Me ganaste por un minuto Caro.
|
#7
|
|||
|
|||
probe con Close
Miren ya habia tratado se cerrarlo tal y como me lo explico caral y algunos de ustedes y miren el error que me da
[IMG]file:///C:/DOCUME%7E1/JOCEYR%7E1/CONFIG%7E1/Temp/moz-screenshot.jpg[/IMG][IMG]file:///C:/DOCUME%7E1/JOCEYR%7E1/CONFIG%7E1/Temp/moz-screenshot-1.jpg[/IMG]'El valor de BOF o EOF es true', o el actual registro se elimino, la operacion solicitada requiere un registro actual' Disculpen tantas molestias |
#8
|
||||
|
||||
Hola
Pregunta: Que es formdepartamento. Saludos |
#9
|
|||
|
|||
Formdepartamento
formdepartamento es un Form
|
#10
|
||||
|
||||
Hola
perdon pero no entiendo, tal vez nos puedas explicar mas. Con el codigo que muestras se abre una base de datos access y se ejecuta una sentencia sql, posteriormente se ejecuta en un qreport. Perdon, pero que tiene que ver que no encuentre un JPG.? Cita:
Saludos |
#11
|
||||
|
||||
Hola
Aqui ya estoy especulando: Se le ocurre algo mas a alguien? Saludos |
#12
|
|||
|
|||
A caral
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 |
#13
|
||||
|
||||
Hola
A ver: 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 |
#14
|
|||
|
|||
Miren a ver que tal esto
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; |
#15
|
||||
|
||||
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 |
#16
|
|||
|
|||
agradecido Caral
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 |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
ADOdataset... | The_Avatar | Conexión con bases de datos | 4 | 16-08-2007 16:00:26 |
Adodataset, BD | Otei | Conexión con bases de datos | 1 | 19-11-2005 16:15:16 |
¿ADODataSet? | roedecker | Conexión con bases de datos | 2 | 19-05-2004 15:42:54 |
problema con adodataset | davidgaldo | Conexión con bases de datos | 3 | 15-04-2004 17:23:08 |
pb con adodataset y sql | davidgaldo | Conexión con bases de datos | 5 | 06-02-2004 20:33:05 |
|