Sub cnx_ora() Dim connex As OleDbConnection connex = New OleDbConnection connex.ConnectionString = "Provider=OraOLEDB.Oracle;Data Source=" & TextBox1.Text & ";(HOST=le nom du pc)(USER=*****)" Try connex.Open() Catch ex As Exception MsgBox(ex.Message) Finally connex.Close() End Try End Sub
Data Source=(DESCRIPTION=(ADDRESS_LIST=(ADDRESS=(PROTOCOL=TCP)(HOST=MyHost)(PORT=MyPort)))(CONNECT_DATA=(SERVER=DEDICATED)(SERVICE_NAME=MyOracleSID)));User Id=myUsername;Password=myPassword;
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question