Teildatei erstellen

[Fuerchau]

In folgendem Beitrag (am Ende) findest du alles:

http://www.rlpforen.de/showthread.ph...ht=qcmdexc+sql

[Jabs]

Hallo,
ich habe z.B. folgende Meldungen auf der Befehlszeile (bekomme ich über den Oledb- Provider auch).
Vorherige Befehle und Nachrichten:

   > call qcmdexc('addpfm file(f10/s8) mbr(piorent)',0000000032.00000) 
     Zeichen ',' nach Zeichenfolge ''addpfm fi' ist ungültig.          
     Fehler in Befehl *N gefunden.                                     
   > call qcmdexc('addpfm file(f10/s8) mbr(piorent)', 0000000032.00000)
     Zeichen ',' nach Zeichenfolge ''addpfm fi' ist ungültig.          
     Fehler in Befehl *N gefunden.                                     
   > call qcmdexc('addpfm file(f10/s8) mbr(piorent)' 0000000032.00000) 
     Schlüsselwort QCMDEXC für diesen Befehl ungültig.                 
     Fehler in Befehl CALL gefunden.

Habe ich was falsch verstanden?
cu
Hendrik

[Fuerchau]

Schu die den Link genau an.
Hast du die Prozedur erstellt ?
Erstelle dir ein Command-Objekt mit "call qtemp.qcmdexc(?, ?)" und fülle den 1. parameter mit dem Kommando und den 2. Parameter mit der Länge:

MyCmd.CommandText = "call qtemp.qcmdexc(?, ?)"
MyCmd(0) = "das kommando"
myCmd(1) = len(MyCmd(0))
MyCmd.Execute

[Jabs]

Guten Morgen,
Vielen Dank noch einmal. Ich habe es noch einmal versucht und es funktionierte sofort.

    Public Sub ExecuteCommand(ByVal cmd As String)

        cmd = String.Format("call qsys.qcmdexc('{0}', {1})", cmd, _
        Format(Microsoft.VisualBasic.Len(cmd), _
        "0000000000\.") & "00000")
        Dim c As New OleDb.OleDbCommand(cmd, _conn)
        Debug.Print(c.CommandText)
        Try
            c.ExecuteNonQuery()
            Debug.Print("Command ausgeführt")
        Catch ex As Exception
            MsgBox("Fehler: " & ex.Message & Chr(13) & Chr(13) & _
            ex.ToString)
        End Try

    End Sub

Der Tag ist gerettet.
cu
Hendrik