RE: Llamar a CL desde VB6 con parámetros

Javier García Marqués Wed, 14 Sep 2005 03:09:31 -0700

Title: Mensaje

Te adjunto ejemplo, espero que te sirva (donde pone 192.168.3.1 va la IP de tu AS y los parametros siempre alfanumericos).

Public ano

Public Cn400 As New ADODB.Connection
Public Rs As New ADODB.Recordset
Public Mandato As New ADODB.Command
Public Parany As String * 4

Sub Prueba()

' Llamar a programa CL

    ano = Year(Date) - 1
    Parany = Trim(Str(ano))

    Cn400.Open "provider=IBMDA400;data source=192.168.3.1;", "", ""

    Set Mandato.ActiveConnection = Cn400
    Mandato.CommandText = "{{CALL /QSYS.LIB/PRUEBAS.LIB/CLPRUEBA.PGM(?)}}"
    Mandato.Prepared = True
    Mandato.Parameters.Append Mandato.CreateParameter("Parany", adChar, adParamInput, 4)
    Parms = Array(Parany)
    Mandato.Execute , Parms, adCmdText

End Sub

Saludos cordiales,

Javier García / División I.T.
Lo·Trans, Logística y Transporte S.A.
[EMAIL PROTECTED] · www.lo-trans.com
Tel. +34 932 983 078 · Fax +34 932 983 034

Este mensaje es privado y confidencial. Según la legislación vigente, si Vd. no es el destinatario, no puede utilizarlo, difundirlo o copiarlo sin autorización. Si ha recibido este mensaje por error, comuníquelo por esta vía y destrúyalo.

This message is private and confidential. According to the law, if you are not the intended recipient you are not allowed to use, distribute or copy it without authorization. If you have received this message in error, notify us via email and delete it.

-----Mensaje original-----
De: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] En nombre de Alvaro Mato
Enviado el: martes, 13 de septiembre de 2005 23:27
Para: [email protected]
Asunto: Llamar a CL desde VB6 con parámetros

Hola foro: estoy peleando para poder llamar desde un Visual Basic 6 un CL y pasarle parámetros. No soy muy experiente en este tipo de interconexiones y al intentar llamar al QCMDEXC, me da problemas con las comillas (Error: SQL0104).

Les agradezco si alguien tiene una solución para poder ejecutar este tipo de comandos.

Alvaro Mato

Montevideo-Uruguay

RE: Llamar a CL desde VB6 con parámetros

Responder a