Hola foreros, .... a quien pueda interesar, esta ha sido la solución a mis males:
tal como apuntabais era un tema de las versiones de los SQLPKG,
al cambiar de máquina y de versión de SO a v5.3 y restaurar los datos del
antiguo v5.1, el formato de los ficheros SQLPKG no se correspondía a la
nueva versión y al arrancar las aplicaciones Delphi, el sistema devolvia un
CPD4392 y un SQL0901, el procedimiento para eliminar los objetos antiguos
es este ...
ENDHOSTSVR *DATABASE
ENDPJ QUSRWRK QZDASOINIT *IMMED
ENDPJ QUSRWRK QZDASSINIT *IMMED
ENDPJ QSERVER QZDAINIT *IMMED
DLTSQLPKG QGPL/QZDAPKG
(DLTSQLPKG de todos los objetos SQLPKG que puedan usar las aplicaciones)
STRHOSTSVR *DATABASE
STRPJ QSERVER QZDAINIT
.... al arrancar de nuevo los programas en Delphi los SQLPKG volveran a
crearse en su versión correcta.
Gracias y Saludos
Xavier Priu
Departamento de Informática
Frigicoll S.A.
Tel 93.480.33.22 (Ext 329)
-------------------------------------
(Embedded image moved to file: pic12382.gif)
[EMAIL PROTECTED] escribió el 22/09/2005 13:17:47:
> Prueba a borrar los *SQLPKG que pueda usar la aplicación.
>
> -----Mensaje original-----
> De: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED]
> Enviado el: jueves, 22 de septiembre de 2005 9:57
> Para: [email protected]
> Asunto: AS400 - Delphi y FindKey
>
>
> Hola foreros,
> quizá la pregunta no se ajuste exactamente a este foro, pero hay un AS de
> por medio ....
>
> - Problema:
> Acceder a bases de datos del AS400 mediante ODBC de ClientAccess y una
> aplicacion en Delhi 5.0 usando FindKey contra una TTable (si uso SQL y
> TQuery funciona OK)
>
> El error se produce cuando se accede a un fichero del AS400 con la
> instruccion FindKey de Delphi, el mensaje que retorna es:
> "No Index Currently Active"
>
> - Antes del problema cuando todo funcionaba OK:
> Bases de Datos en AS400 SO v5.1 conexion via ODBC con aplicaciones
> Delphi 5.0
> acceso a los datos por SQL y por FindKey de Delphi.
>
> - Cuando han surgido los problemas:
> Hemos cambiado de AS400 y de versión, ahora estamos en v5.3 uso la misma
> conexion por ODBC y las mismas aplicaciones en Delphi.
>
> He recompilado las aplicaciones y nada, la solucion pasa por eliminar las
> instrucciones FindKey y pasar a SQL, pero ... es el último recurso.
>
> Gracias, y saludos a todos !!
> Xavi, desde Sant Just - Barcelona
>
>
>
>
>
>
>
>
>
>
____________________________________________________________________________
> _________
>
>
> Advertencia legal:
>
> Este mensaje y, en su caso, los ficheros anexos son confidenciales,
> especialmente en lo que respecta a los datos personales, y se dirigen
> exclusivamente al destinatario referenciado. Si usted no lo es y lo ha
> recibido por error o tiene conocimiento del mismo por cualquier motivo,
le
> rogamos que nos lo comunique por este medio y proceda a destruirlo o
> borrarlo, y que en todo caso se abstenga de utilizar, reproducir,
alterar,
> archivar o comunicar a terceros el presente mensaje y ficheros anexos,
todo
> ello bajo pena de incurrir en responsabilidades legales. El emisor no
> garantiza la integridad, rapidez o seguridad del presente correo, ni se
> responsabiliza de posibles perjuicios derivados de la
> captura,incorporaciones de virus o cualesquiera otras manipulaciones
> efectuadas por terceros.
>
>
> Disclaimer:
>
> This message and any attached files transmitted with it, is confidential,
> especially as regards personal data. It is intended solely for the use of
> the individual or entity to whom it is addressed. If you are not the
> intended recipient and have received this information in error or have
> accessed it for any reason, please notify us of this fact by email reply
> and then destroy or delete the message, refraining from any reproduction,
> use, alteration, filing or communication to third parties of this message
> and attached files on penalty of incurring legal responsibilities. The
> sender does not guarantee the integrity, the accuracy, the swift delivery
> or the security of this email transmission, and assumes no responsibility
> for any possible damage incurred through data capture, virus
incorporation
> or any manipulation carried out by third parties
>
>
> This message is intended exclusively for its addressee and may contain
> information that is CONFIDENTIAL and protected by professional privilege.
> If you are not the intended recipient you are hereby notified that any
> dissemination, copy or disclosure of this communication is strictly
> prohibited by law. If this message has been received in error, please
> immediately notify us via e-mail and delete it.
>
>
> __________________________________________________
> Forum.HELP400 es un servicio más de NEWS/400.
> © Publicaciones Help400, S.L. - Todos los derechos reservados
> http://www.help400.es
> _____________________________________________________
>
> Para darte de baja visita la siguente URL:
> http://coyote.combios.es/mailman/listinfo/forum.help400
>
>
> __________________________________________________
> Forum.HELP400 es un servicio más de NEWS/400.
> © Publicaciones Help400, S.L. - Todos los derechos reservados
> http://www.help400.es
> _____________________________________________________
>
> Para darte de baja visita la siguente URL:
> http://coyote.combios.es/mailman/listinfo/forum.help400
_____________________________________________________________________________________
Advertencia legal:
Este mensaje y, en su caso, los ficheros anexos son confidenciales,
especialmente en lo que respecta a los datos personales, y se dirigen
exclusivamente al destinatario referenciado. Si usted no lo es y lo ha
recibido por error o tiene conocimiento del mismo por cualquier motivo, le
rogamos que nos lo comunique por este medio y proceda a destruirlo o
borrarlo, y que en todo caso se abstenga de utilizar, reproducir, alterar,
archivar o comunicar a terceros el presente mensaje y ficheros anexos, todo
ello bajo pena de incurrir en responsabilidades legales. El emisor no
garantiza la integridad, rapidez o seguridad del presente correo, ni se
responsabiliza de posibles perjuicios derivados de la
captura,incorporaciones de virus o cualesquiera otras manipulaciones
efectuadas por terceros.
Disclaimer:
This message and any attached files transmitted with it, is confidential,
especially as regards personal data. It is intended solely for the use of
the individual or entity to whom it is addressed. If you are not the
intended recipient and have received this information in error or have
accessed it for any reason, please notify us of this fact by email reply
and then destroy or delete the message, refraining from any reproduction,
use, alteration, filing or communication to third parties of this message
and attached files on penalty of incurring legal responsibilities. The
sender does not guarantee the integrity, the accuracy, the swift delivery
or the security of this email transmission, and assumes no responsibility
for any possible damage incurred through data capture, virus incorporation
or any manipulation carried out by third parties
pic12382.gif
Description: GIF image
