Hallo,

nachdem das mit "call" nur eine Übergangslösung sein darf möchte ich aus Excel VBA SQL Befehle auf der AS400 ausführen, leider kommen da immer wieder Fehlermeldungen :


Option Explicit
Sub as400_SQL()
Dim cnn As ADODB.Connection
Dim CallCmd As String
Set cnn = New ADODB.Connection
' Verbindungsdaten
cnn.Open "Provider=IBMDA400;" & _
"Data Source=192.***.***.***;" & _
"User ID=*****;" & _
"Password=*****;"
Hier soll mit SQL z.B. ausgeführt werden : „create table … …“

' Verbindung schliessen
cnn.Close
End Sub
Mit Bitte um Hilfe und vielen Dank im voraus, ERIC