conectar a Oracle 9i desde otra pc en vb.net
tengo en una pc el oracle9i en la otra tambien pero la version cliente
En la primera pc se conecta en forma normal a la base de datos pero paso el ejecutable a la otra pc y nada a que se debe como podria seleccionar el servidor al cual me voy a conectar si me dieran alguna pista se lo agradeceria aca esta el codigo.
Dim cn As New OracleClient.OracleConnection
Dim vRuta As String
Dim frmMain As New frmPrincipal
If optOra.Checked = True Then
vRuta += "Data Source =" & txtDataBase.Text & ";"
vRuta += "user id=" & txtUsuario.Text & ";"
vRuta += "password=" & txtPassword.Text
cn.ConnectionString = vRuta
MsgBox(vRuta)
MsgBox(cn.State.ToString)
Try
cn.Open()
MsgBox(cn.State.ToString)
usuario = txtUsuario.Text
frmMain.Show()
MessageBox.Show("Bienvenido ")
Me.Hide()
Catch ex As Exception
MessageBox.Show("Error al conectar a la
base de datos")
Me.Close()
Finally
cn.Close()
End Try
If cn.State = ConnectionState.Open Then
cn.Close()
End if
En la primera pc se conecta en forma normal a la base de datos pero paso el ejecutable a la otra pc y nada a que se debe como podria seleccionar el servidor al cual me voy a conectar si me dieran alguna pista se lo agradeceria aca esta el codigo.
Dim cn As New OracleClient.OracleConnection
Dim vRuta As String
Dim frmMain As New frmPrincipal
If optOra.Checked = True Then
vRuta += "Data Source =" & txtDataBase.Text & ";"
vRuta += "user id=" & txtUsuario.Text & ";"
vRuta += "password=" & txtPassword.Text
cn.ConnectionString = vRuta
MsgBox(vRuta)
MsgBox(cn.State.ToString)
Try
cn.Open()
MsgBox(cn.State.ToString)
usuario = txtUsuario.Text
frmMain.Show()
MessageBox.Show("Bienvenido ")
Me.Hide()
Catch ex As Exception
MessageBox.Show("Error al conectar a la
base de datos")
Me.Close()
Finally
cn.Close()
End Try
If cn.State = ConnectionState.Open Then
cn.Close()
End if
