Eric
04-11-09, 19:06
Hallo,
ich möchte aus Excel VBA einen Befehl auf der AS400 ausführen, zB. runqry oder ein CL aufrufen, leider klappt das mit dem Script nicht :
Option Explicit
Sub as400()
Dim cnn As ADODB.Connection
Dim cmd As ADODB.Command
Set cnn = New ADODB.Connection
cnn.Open "Provider=IBMDA400;" & _
"Data Source=192.***.***.***;" & _
"User ID=********;" & _
"Password=********;"
Set cmd = New ADODB.Command
With cmd
.CommandType = adCmdText
.ActiveConnection = cnn
.CommandText = [HIER SOLL EINE ABFRAGE MIT ZB. "RUNQRY" GESTARTET WERDEN
z.B. runqry qry (LIB/ORY) oder mit call ein CL]
.CommandTimeout = 20
.Execute
End With
cnn.Close
End sub
Bitte um Hilfe, vielen Dank.
ERIC
ich möchte aus Excel VBA einen Befehl auf der AS400 ausführen, zB. runqry oder ein CL aufrufen, leider klappt das mit dem Script nicht :
Option Explicit
Sub as400()
Dim cnn As ADODB.Connection
Dim cmd As ADODB.Command
Set cnn = New ADODB.Connection
cnn.Open "Provider=IBMDA400;" & _
"Data Source=192.***.***.***;" & _
"User ID=********;" & _
"Password=********;"
Set cmd = New ADODB.Command
With cmd
.CommandType = adCmdText
.ActiveConnection = cnn
.CommandText = [HIER SOLL EINE ABFRAGE MIT ZB. "RUNQRY" GESTARTET WERDEN
z.B. runqry qry (LIB/ORY) oder mit call ein CL]
.CommandTimeout = 20
.Execute
End With
cnn.Close
End sub
Bitte um Hilfe, vielen Dank.
ERIC