Mostrar Temas
- 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:
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:
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
...