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:
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
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 ;D
...
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.
Gracias Polux, ;D por tu ayuda, ya encontre como hacerle solamente utilice un Try Catch para checar si se ejecuta o no el comando: ;)
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