Problemas con Excel y OLEDB

2002-10-01 Por tema Foros Informat

Hola a todos.

Estoy intentado vincular consultas de AS/400 a hojas Excel mediante OLE DB, pero no lo consigo:

El entorno de cliente es:
Windows 2000 SP3
Excel 2000
IBM AS/400 Client Access Express v5 r1, nivel mod.: 0, nivel de servicio SI05361.


Utilizo una macro en VB que se ejecuta desde dentro de Excel. 

Dicha macro la he obtenido del MSDN de Microsoft y he sustuido la referencia al proveedor SQL Server por la referencia al proveedor AS400.

El código utilizado es


Public Sub createOLEDBQueryTable()

Dim oQTB as QueryTable
Dim wksas WorkSheet

set wks = ThisWorkbook.WorkSheets.Add

set oQTB= wks.QueryTables.Add(OLEB;Provider=IBMDA400;Data Source=mi400;,wks.Range(A1))

with oQTB
.CommandText =SELECT * FROM MISDATOS
.CommandType=xlCmdSQL
.Name=MISDATOS
.Refresh False
end with

Exit sub


Al llegar a la instrucción Refresh genera el siguiente mensaje de error : Error de la aplicación '1004' , sin más explicaciones. 
Cambiando ligeramente las instrucciones, obtengo el mismo número de error pero además me indica que me ponga en contacto con el fabricante del proveedor OLE DB.


El siguiente código sí funciona, pero el rango de datos producido no es
actualizable.

Public Sub createOLEDBQueryTable()
Dim cnAS ADODB.connection
Dim rsAs ADODB.RecordSet
Dim oQTB as QueryTable
Dim wksas WorkSheet



set cn = new ADODB.Connection
cn.Open OLEB;Provider=IBMDA400;Data Source=mi400;

set rs = new ADODB.Recordset
rs.Open SELECT * FROM MISDATOS

set wks = ThisWorkbook.WorkSheets.Add
set oQTB= wks.QueryTables.Add(rs,wks.Range(A1))

oQTB.Refresh false

Exit sub



Los ejemplos proporcionados por IBM pasan piadosamente por alto esta funcionalidad

¿Alguién ha hecho algo similar?

Gracias por adelantado.

Re: Procedimientos almacenados.

2002-06-18 Por tema Foros Informat


Bien según se ve por el código pasado faltaría el tipo de datos del
parámetro.
(si bien puede ser que se coja alfanumérico por defecto, nunca lo he
probado)

Un buen libro el redbook DB2 UDB for iSeries  Stored Procedures and
Triggers




_
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, envía el mensaje resultante de pulsar
mailto:[EMAIL PROTECTED]?body=LEAVE



Re: Sacar las pantallas verdes fuera

2002-06-13 Por tema Foros Informat


Bien, me parece que he dado la impresión de querer datos de productos y no
es asi
, quisiera conocer alternativas probadas a las pantallas verdes, es decir,
si algunos de vosotros
tiene aplicaciones en otros lenguajes que cogen datos del 400 , no
maquilladores, si estáis desarrollando
aplicaciones con servidor el 400 y  en que lenguajes.

Y también quisiera aclararme un poco sobre el futuro del 400, pues según
todos los foros parece que IBM
quiere acabar con las pantallas verdes (interactivo) y tirar mas del
Batch, pero si es asi , cual camino cogemos
para que no nos pille el toro, pues no nos gustaría empezar a hacer algo en
otros lenguajes (java, VB, html...etc)
para después ver que hemos malgastado el tiempo y dinero.


Adiós, y que tengáis un buen día.



_
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, envía el mensaje resultante de pulsar
mailto:[EMAIL PROTECTED]?body=LEAVE



Sacar las pantallas verdes fuera

2002-06-12 Por tema Foros Informat


Buenas, nos estamos pensando en ir migrando a entorno visual parte de
nuestras aplicaciones en AS/400
y me gustaría saber que experiencia ha tenido el foro en este tema , su
evaluación del producto de desarrollo
y también importante el coste económico sufrido por la empresa.

Nos han comentado que el futuro del 400 pasa por Java, WAS, ¿Es este el
camino a seguir?

¿Que hay de otras herramientas como Visual RPG, Visual Basic, Delphi400
etc?¿Alguien desarrolla en esta herramientas?

¿Que pensáis del de CGI?En principio nos parecía fabuloso pero con esto del
Webfacing.


_
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, envía el mensaje resultante de pulsar
mailto:[EMAIL PROTECTED]?body=LEAVE



Re: Consulta sobre con Sql

2002-06-11 Por tema Foros Informat


Creandote un procedimineto almacenado.



_
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, envía el mensaje resultante de pulsar
mailto:[EMAIL PROTECTED]?body=LEAVE



Transferencia de fuentes a PC

2002-05-29 Por tema Foros Informat


Buenos días.

Quisiera transferir todos los miembros de un fichero de fuentes a mi pc en
formato texto para
hacer poder hacer un manual técnico del proyecto actual, pero solo lo puedo
hacer de uno en uno
y como son muchos los fuentes, me gustaría saber como hacerlo todo en un
solo paso.

Gracias de antemano


_
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, envía el mensaje resultante de pulsar
mailto:[EMAIL PROTECTED]?body=LEAVE



Cliente RPG que llama a un Proc.Almacenado

2002-05-20 Por tema Foros Informat


Buenos días.

Me gustaría recibir algún código fuente de como se puede hacer un cliente
en RPG III o IV
que llame a un procedimiento almacenado y recoja el( o los) result set que
devuelva
ya que solo encuentro código para la devolución de resultados en los
parámetros pasados.

El código fuente adicional del libro Stored Procedures and Triggers
vendría un ejemplo de
código , pero intento acceder desde la web de IBM a dicho código adicional,
y me da error.



Gracias de antemano


_
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, envía el mensaje resultante de pulsar
mailto:[EMAIL PROTECTED]?body=LEAVE



RE:encuesta edad - dinosaurios + idea

2002-05-15 Por tema Foros Informat



Aquí somos tres:
 Toni: 33
 Aurelio : 30
 Emiliano: 34



_
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, envía el mensaje resultante de pulsar
mailto:[EMAIL PROTECTED]?body=LEAVE