Temas

[conecte]

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 



...