Dim OracleODBCConnection As New System.Data.Odbc.OdbcConnection("DRIVER=Microsoft ODBC for Oracle;SERVER=ORACLESERVER;UID=enzo;PWD=68290") Try OracleODBCConnection.Open() MsgBox("Connexion ok", MsgBoxStyle.Information) Catch ex As Exception MsgBox("Connexion échec", MsgBoxStyle.Critical) End Try OracleODBCConnection.Close()
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionDim OracleODBCCommand As New System.Data.Odbc.OdbcCommand("Ta requete SQL") Dim OracleODBCReader As System.Data.Odbc.OdbcDataReader = OracleODBCCommand.ExecuteReader()
Dim OracleODBCCommand As New System.Data.Odbc.OdbcCommand("Ta requete SQL") OracleODBCCommand.ExecuteNonQuery()
OracleODBCReader.Read() '-- A répéter autant de fois qu'il y à de lignes
While OracleODBCReader.Read() '-- Traitements... End While
OracleODBCReader.Item("Nom du Champ")
OracleODBCReader.Close() OracleODBCReader = Nothing OracleODBCCommand.Dispose()
Dim OracleODBCCommand As New System.Data.Odbc.OdbcCommand("Ta requete SQL", OracleODBCConnexion)