RE:conectar oracle con VB
Public Function ConexionBaseOracle(ByRef parConnBd As ADODB.Connection, _
ByRef pErr As String) As Boolean
'********************************************************************************
' - Objetivo: Devuelve una conexion de tipo RDO
' - Parametros:
' - parConnBd : (salida) conexión de tipo RDO
' - pErr : (salida) Retorna una descripcion de Error, ocurrido dentro de la función
' - Valores de retorno:
' - True : se pudo abrir la conexion RDO
' - False : no se pudo realizar la conexion RDO
'********************************************************************************
Dim vConnBd As New ADODB.Connection
Dim varConexion As String
Dim vLoginTimeOut As String
Dim vQueryTimeOut As String
Dim vErrMensaje As String
Dim varMsgErr As String
Dim varErrMensaje As String
Dim varBaseDatos As String
Dim varDsn As String
Dim vMensaje As String
Dim varServidor As String
Dim varUsuario As String
Dim varPassword As String
Dim vPageSize As String
On Error GoTo ErrorConexion
' Inicializamos la función
ConexionBaseOracle = True
' String de conexión a la Base de Datos
varConexion = "Provider=MSDASQL;" & _
"DRIVER={Microsoft ODBC for Oracle}; " & _
"SERVER=Torre; UID=CISAEC; PWD=CISAEC;"
' Establece la conexión a la Base
vConnBd.ConnectionString = varConexion
vConnBd.CursorLocation = adUseClient
If Val(vLoginTimeOut) >= 0 Then vConnBd.ConnectionTimeout = Val(vLoginTimeOut)
If Val(vQueryTimeOut) >= 0 Then vConnBd.CommandTimeout = Val(vQueryTimeOut)
vConnBd.Open
'verifica el PageSize
If Val(vPageSize) = 0 Then
PageSize = 0
Else
PageSize = vPageSize
End If
Set parConnBd = vConnBd
Set myConnection = vConnBd
Exit Function
ErrorConexion:
pErr = "funGConexionBaseOracle: " & Err.Description
ConexionBaseOracle = False
#If OC = True Then
GetObjectContext.SetAbort
#End If
End Function