Re: Ejecutar CL desde VB

Thu, 17 Feb 2005 02:30:23 -0800

Title: Mensaje
Muchas gracias, estoy en ello, pero cuando lo ejecuto se queda colgado y el estado del VB es: No responde.
 
Albert
----- Original Message -----
Sent: Thursday, February 17, 2005 11:01 AM
Subject: RE: Ejecutar CL desde VB

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

Responder a