Devart Forums

Code: Select all

Dim conn As OracleConnection = New OracleConnection("User Id=servtest;Password=***;Server=test;Unicode=True;")

conn.Open()

Dim cmd As New OracleCommand

 cmd.Connection = conn
        cmd.CommandText = "F.WARNINGS_CP.ins"
        cmd.CommandType = CommandType.StoredProcedure

        cmd.Parameters.Add("audit_id_in", OracleDbType.Number, 5)
        cmd.Parameters("audit_id_in").Direction = ParameterDirection.Input
       
        cmd.Parameters("audit_id_in").SourceColumn = "audit_id"

        cmd.Parameters.Add("warning_id_out", OracleDbType.Number, 0)
        cmd.Parameters("warning_id_out").Direction = ParameterDirection.InputOutput

        cmd.Parameters("warning_id_out").SourceColumn = "warning_id"
        Dim adapter As OracleDataAdapter = New OracleDataAdapter()
        Dim ds As DSScheduleForecastWarnings = New DSScheduleForecastWarnings(0,0)

adapter.InsertCommand = cmd
adapter.Update(ds.Tables("WARNINGS"))