---

Guten Morgen Zusammen : )

ich möchte gerne eine Prozedur von einer Oracle Datenbank in Catia V5 VBA ausführen.

Ich gebe als Input den Filename mit. Als Output soll es mir ein Kennzeichen zurückgeben.
In VB.Net kann ich die Prozedur sauber ausführen.
Hier in VBA leider nicht.
Könnt Ihr mir bitte hier weiterhelfen. Was muß man hier noch anpassen, damit diese Prozdur in CV5 VBA auch funktioniert.

Imports System
Imports System.IO
Imports System.Data
Imports System.Data.OracleClient
Imports System.Data.Odbc

Private Sub cmdDatenHolen_Click()
    Dim man_db_SERVER As String
    man_db_SERVER = "datenbankname"
    Dim man_db_uid As String
    man_db_SERVER = "username"
    Dim man_db_pwd As String
    man_db_pwd = "passwort"
   
       '----------------------------------------------------------------------------------------------------------
        ' Prozedur von Datenbank - Test
        '----------------------------------------------------------------------------------------------------------
        Dim x As Exception
        Dim connectionString As String = "SERVER=" & man_db_SERVER & ";uid=" & man_db_uid & ";pwd=" & man_db_pwd & ";" & "workaround oracle bug 914652=true;"

        'MsgBox(txtFilePath.Text)

        Using connection As New OracleConnection(connectionString)

            connection.Open()

            Dim cmdq As New OracleCommand("username.prozedurname")
            cmdq.CommandType = CommandType.StoredProcedure
            cmdq.connection = connection

            Dim parameter1 As New OracleParameter()

            parameter1.Value = txtFilePath.Text
            parameter1.ParameterName = "file"
            parameter1.OracleType = OracleType.VarChar
            parameter1.Size = 100
            parameter1.Direction = ParameterDirection.Input

            Dim parameter3 As New OracleParameter()

            parameter3.ParameterName = "wkz"
            parameter3.OracleType = OracleType.VarChar
            parameter3.Size = 1
            parameter3.Direction = ParameterDirection.Output

            cmdq.Parameters.Add (parameter1)
            cmdq.Parameters.Add (parameter3)

            Try
                cmdq.ExecuteNonQuery()
                txtDatei.Text = (cmdq.Parameters.Item(0).Value) & ""
                txtwkz.Text = (cmdq.Parameters.Item(1).Value) & ""

            Catch x
                txtSysErrorMessage.Text = (x.Message.ToString)

            End Try

            connection.Close()

        End Using

Vielen Dank!

------------------
Schöne Grüße
Feyza : )

[Diese Nachricht wurde von Feyza am 12. Apr. 2011 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Servus
Sind die Klassen "OracleConnection" und "OracleParameter" in deinem VBA-Projet vorhanden?
Welche Fehlermeldung spuckt das Makro aus?

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP