CODIGO DE CONNECCION A ORACLE CLIENTE CON HERRAMIENTA ORACLECLIENT

'Definiendo nuestras variables en el formulario

Public user As String
Public password As String
Public database As String
Dim cadena As String
Dim connprincipal As OracleClient.OracleConnection()

'Funcion para connectar a Oracle Servidor con OracleClient.OracleConnection

Private Sub Conectar (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

'user password y database para Oracle
user = Me.TextBox1.Text
password = Me.TextBox2.Text
database = Me.TextBox3.Text

Try

'coneccion de tipo oracle connection
Dim connprincipal As New OracleClient.OracleConnection()

'tipo de cadena de coneccion para conectarse a una base de datos tipo servidor
cadena = "Data Source=(DESCRIPTION=" + "(ADDRESS_LIST=(ADDRESS=(PROTOCOL=TCP)(HOST=130.0.6.223)(PORT=1521)))" + "(CONNECT_DATA=(SERVER=DEDICATED)(SERVICE_NAME=" + database + ")));" + "User Id=" + user + ";Password=" + password + ";"
'ojo cambiar Host = por la IP de servidor

'definiendo la cadena a la coneccion
connprincipal.ConnectionString = cadena
connprincipal.Open() 'Abrir la conneccion
MessageBox.Show("se conecto correctamente")
Me.TextBox1.Clear()
Me.TextBox2.Clear()
Me.TextBox3.Clear()
connprincipal.Close()

Catch ex As Exception
'generar mensaje por si presenta problemas al conectar y cual fue el error en Try Catch
MessageBox.Show("no se pudo conectar " & ex.Message)
End Try

End Sub