 
			
				10/04/2009, 19:23
			
			
			     |  
      |    |    |    Fecha de Ingreso: abril-2009  
						Mensajes: 2
					  Antigüedad: 16 años, 6 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           |