CALL aus EXCEL VBA

[Fuerchau]

Hierzu musst du einen CALL QCMDEXC verwenden, ein Command-Object ist dazu nicht nötig:

dim CallCmd as String

' Achtung: ggf. Hochkomma verdoppeln!
CallCmd = "runqry ..."

cnn.Execute "CALL QCMDEXC ('" & CallCmd & "', " & format(len(CallCmd), "0000000000.00000") & ")"

[Eric]

Hallo,

hab nur noch diese kleine Änderung vorgenommen und schon klappte es !



von :

cnn.Execute "CALL QCMDEXC ('" & CallCmd & "', " & Format(Len(CallCmd), "0000000000.00000") & ")"

auf :

cnn.Execute "CALL QSYS.QCMDEXC ('" & CallCmd & "', " & Format(Len(CallCmd), "0000000000.00000") & ")"

SUPER,vielen Dank
MFG ERIC

[Eric]

Nochmals DANKE und so klappte es :

Option Explicit

Sub as400()

Dim cnn As ADODB.Connection

Dim cmd As ADODB.Command

Set cnn = New ADODB.Connection

Dim CallCmd As String

cnn.Open "Provider=IBMDA400;" & _

"Data Source=192.***.***.***;" & _

"User ID=********;" & _

"Password=********;"

CallCmd = "runqry qry([LIB]/[QRY])"

cnn.Execute "CALL QSYS.QCMDEXC ('" & CallCmd & "', " & Format(Len(CallCmd), "0000000000.00000") & ")"

cnn.Close

End Sub

DANK FUERCHAU