OracleのLONG RAW型のデータ更新について

        conn = New OracleConnection(connectionString)

        conn.Open()

        Dim orTran As OracleTransaction = conn.BeginTransaction



        Dim cmd = New OracleCommand

        cmd.Connection = conn

        cmd.CommandType = CommandType.Text

        cmd.CommandText = "insert into Test(col1) values(:col1v) "



        Dim str1 = "col1v"

        Dim val As String = "0"

        Dim barray() As Byte = {1, 2, 3, 4, 5, 6, 7, 9}



        Dim f7 As OracleParameter = _

            cmd.Parameters.Add(str1, OracleDbType.LongRaw)



        f7.Value = barray



        cmd.ExecuteNonQuery()

        orTran.Commit()

        conn.Close()

        conn = Nothing

Private Shared Sub OneMethod()
    Dim hConnection As OracleConnection

    Try
        hConnection = New OracleConnection("...")

        Try
            Dim hCommand As OracleCommand

            Try
                hCommand = New OracleCommand("INSERT INTO HOGE(COL1), VALUES(:HogeValue)", hConnection)

                hCommand.Parameters.Add("HogeValue", OracleType.LongRaw).Value = New Byte() {6, 2, 9, 5}
                hCommand.ExecuteNonQuery()
            Finally
                If hCommand Is Nothing Then
                    hCommand.Dispose()
                End If
            End Try
        Finally
            If Not hConnection Is Nothing Then
                hConnection.Close
            End If
        End Try
    Finally
        If Not hConnection Is Nothing Then
            hConnection.Dispose()
        End If
    End Try
End Sub