RE: Ejecutar CL desde VB

Javier García Marqués Thu, 17 Feb 2005 02:05:55 -0800

Title: Mensaje

Hola Albert,

Esta es la forma de hacerlo con ADODB:

Public Cn400 As New ADODB.Connection
Public Rs As New ADODB.Recordset

Public Mandato As New ADODB.Command
Public Parany As String * 4

Parany = Trim(Str(ano))

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

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

    Cn400.Close

Saludos cordiales,
Javier Garc�a Marqu�s
LO�TRANS, Log�stica y Transporte, S.A. (Div. Inform�tica)
Tel.:      93 298 30 78
Fax.:     93 298 30 13
E-mail: [EMAIL PROTECTED]
Web:    www.lotrans.es

-----Mensaje original-----
De: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] En nombre de Administracio
Enviado el: jueves, 17 de febrero de 2005 7:43
Para: [email protected]
Asunto: Ejecutar CL desde VB

Buenos d�as:

Quiero ejecutar una CL desde una aplicaci�n desarrollada en VB-6.0. �Teneis alg�n ejemplo de c�mo se puede hacer?.

Gracias,

Albert

RE: Ejecutar CL desde VB

Responder a