TAL VEZ TE SIRVA ESTO PARA DARTE UNA IDEA
http://www.itjungle.com/mgo/mgo081503-story01.html http://www.itjungle.com/mgo/mgo081503-story02.html ----- Original Message ----- From: "Hector Vera G." <[EMAIL PROTECTED]> To: <[email protected]> Sent: Wednesday, June 22, 2005 11:55 AM Subject: RE: llamar una cl desde una hoja excel > Lo puedes ejecutar desde un store procedure. > > Te adjunto la forma como puedes incorporarlo desde una rutina hecha en excel. > > > Private Sub Invoca_cl(xzona, xconsultor, xdesde, xhasta, xcriter, xafp, xaño) > > Dim Con1 As New ADODB.Connection > Dim Cmd1 As New ADODB.Command > Dim Rs As New ADODB.Recordset > Con1.Open "DSN=AS/400-ACCESS;UID=XXX;PWD=XXX;" > Cmd1.ActiveConnection = Con1 > > Cmd1.CommandType = adCmdText > Cmd1.CommandText = "Call ACSNEWLIB.Q0903PR('" _ > & xuser & "','" & xzona & "','" & xconsultor & "','" _ > & xdesde & "','" & xhasta & "','" & xsuper & "','" _ > & xcriter & "','" & xafp & "','" & xaño & "')" > Cmd1.Execute > Con1.Close > Set Con1 = Nothing > Selection.QueryTable.Refresh BackgroundQuery:=False > End Sub > > __________________________________________________ > 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 visita la siguente URL: > http://coyote.combios.es/mailman/listinfo/forum.help400 > __________________________________________________ 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 visita la siguente URL: http://coyote.combios.es/mailman/listinfo/forum.help400
