
10/04/2009, 19:23
|
| | Fecha de Ingreso: abril-2009
Mensajes: 2
Antigüedad: 15 años, 10 meses Puntos: 0 | |
Respuesta: Visual.Net-Oracle Hola gracias por ayudarme tengo la versión de oracle 9i , y dónde puedo ver si tengo instalado el odac?, el que descargué de la página de oracle, fue el Microsoft Oracle Client
Imports System.Data.OracleClient
Imports System.Data
Module Conexion
Public gconexion As OleDb.OleDbConnection
'Public myConnection As OracleClient.OracleConnection
'Dim command As New OracleCommand()
'Dim reader As OracleDataReader
Public Function Conecta() As Boolean
Dim oradb As String = "data source=Examen;User Id= System;password= base09;"
Dim conn As New OracleConnection(oradb)
conn.Open()
'gconexion = New OleDb.OleDbConnection
'gconexion.ConnectionString = "Provider=MSDAORA.1;Data Source = Examen; User Id=System; Password=base09;"
'gconexion.Open()
'myConnection = New OracleClient.OracleConnection
'myConnection.ConnectionString = ("Data Source = Examen; User Id=System; Password=base09;")
'myConnection.Open()
End Function
Public Function DBConecta()
Try
Dim oradb As String = "data source=Examen;User Id= System;password= base09;"
Dim conn As New OracleConnection(oradb)
conn.Open()
'gconexion = New OleDb.OleDbConnection
'gconexion.ConnectionString = "Provider=MSDAORA.1;Data Source =Examen; User Id=System; Password=base09;"
'gconexion.Open()
'myConnection = New OracleClient.OracleConnection
'myConnection.ConnectionString = ("Data Source = Examen; User Id=System; Password=base09;")
'myConnection.Open()
Return True
Catch ex As Exception
Return False
End Try
End Function
Public Sub DBDescoenta()
If gConexion.State = ConnectionState.Open Then
gConexion.Close()
End If
End Sub
End Module |