Ayuda: Clase en VB.NET para conectar a BD Oracle

[DarkMouth]

Hola, ??? a ver quien me puede ayudar, necesito hacer una clase en VB.NET que me haga cuatro cosas:

• 1- Una funcion que me conecte a un Base de Datos Oracle y me regrese si se conecto
• 2- Una funcion que me permita ejecutar una cadena de consulta SQL y me regrese un DataReader
• 3- Una funcion que me permita ejecutar un cadena SQL para elinimar, agregar o modificar y me regrese un boolean si se hicieron los cambios
• 4- Y por ultimo una que me cierre la conexion

ya tengo algo:

Código [Seleccionar] Expandir


Imports System.Data
Imports System.Data.oracleclient

Public Class Conexion

Dim CNN As New oracleConnection
Dim CMD As New oracleCommand


    '"Data Source=MyOracleDB;User Id=username;'Password=passwd;Integrated Security=no;"
    Public Function Abrir(DSource As String, UsID As String, Pass As String, IntSec As String) As Boolean
       
        CNN.ConnectionString = "Data Source=" & DSource & ";User Id=" & UsID & ";Password=" & Pass & _
            ";Integrated Security=" & IntSec & ";"
        CNN.open()
       
        If CNN.Status = 1 Then 'Si se conecta entonces
            Return(True)
        Else
            Return(False)
        End If
       
    End Function

    Public Function ConsultaSQL(CadenaSQL As String) As OracleDataReader
        CMD.Connection = CNN
        CMD.commandType = commandType.Text
        CMD.CommandText = CadenaSQL
       
        Return(CMD.ExecuteReader)
               
    End Function

    Public Function EjecutarSQL(CadenaSQL As String) As Boolean
   
        'Codigo para Eliminar, Agregar o Modificar
       
    End Function
   
    Public Function Cerrar()
        CNN.Close()
    End Function
End Class

No se si este bien lo de CNN.Status = 1 y tampoce se como hacer lo de la funcion EjecutarSQL, como saber si se hicieron los cambios

Código [Seleccionar] Expandir

    Public Function EjecutarSQL(CadenaSQL As String) As Boolean
   
        'Codigo para Eliminar, Agregar o Modificar
        CMD.Connection = CNN
        CMD.commandType = commandType.Text
        CMD.CommandText = CadenaSQL
        'Pero como saber si se hicieron los cambios       
       
    End Function



Bueno si alguien sabe y me puede orientar un poco se lo agradeceria demasiado, Gracias Adios 



...

[Slasher-K]

Para ejecutar una instrucción SQL el objeto Connection tiene un método Execute.

Para saber si está conectado o no está bien, el valor "1" se refiere a la constante adStateOpen. También podés verificar que se desencadene el evento ConnectComplete.

Saludos.

[DarkMouth]

Gracias Polux,  por tu ayuda, ya encontre como hacerle solamente utilice un Try Catch para checar si se ejecuta o no el comando:

Código [Seleccionar] Expandir




Public Function EjecutarSQL(CadenaSQL As String) As Boolean
   
        'Codigo para Eliminar, Agregar o Modificar
     Try   

        CMD.Connection = CNN
        CMD.commandType = commandType.Text
        CMD.CommandText = CadenaSQL
        CMD.ExecuteNonQuery
        Return(True) 'Si se ejecuta el comando regresa True

     Catch ex as exeption

        Return (False) 'Si hubo un error regresa False

     End Try
       
End Function