Visual.Net-Oracle

[JDRC]

Buenos días alguien de ustedes me podría ayudar a hacer una conexión de visual.net a Oracle, lo he intentado hacer y no he podido. Tengo dos cajas de texto para el usuario y el password y un botón donde le doy click para conectar, el usuario ya lo hice en la base de datos. Espero alguien me pueda ayudar. Saludos a todos.

[Peterpay]

algunas preguntas

que version de oracle usas?

ya tienes instalado ODAC y sus componentes para .net?

si tu duda es solo la conexion dale la vuelta www.connectionstrings.com

[JDRC]

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