RE: Ejecutar CL desde VB

Javier García Marqués Thu, 17 Feb 2005 03:00:06 -0800

Title: Mensaje

Tienes que tener instalado el acceso a datos de Client Access y concretamente el "Suministrador OLE DB" y despues, en VB en Referencias, tienes que agregar "Microsoft ActiveX Data Objects 2.0 Library"

A veces, al establecer la conexion, tarda un poco y Windows siempre que algo se alarga le pone el "No responde" sea cierto o no.

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 11:26
Para: [email protected]
Asunto: Re: Ejecutar CL desde VB

Muchas gracias, estoy en ello, pero cuando lo ejecuto se queda colgado y el estado del VB es: No responde.

Albert

----- Original Message -----

From: Javier Garc�a Marqu�s

To: [email protected]

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

RE: Ejecutar CL desde VB

Responder a