Cómo conectar tablas de bases de datos Oracle en VB6.0, consulte a Daniel.
Lo siguiente es como referencia, reproducido de Saidi.
En primer lugar, debe instalar el cliente o servidor ORACLE, crear la base de datos y el servicio e iniciarlo después de que la conexión sea exitosa. El siguiente es el código para que VB acceda a ORACLE:
Opción explícita
Las siguientes son las definiciones de algunas variables y parámetros.
Nombre de "DB"
Const pública strdbname = "DBNAME "
Nombre de usuario
Const pública strusr = "BLUESKY35 "
p>
Contraseña
Const pública strpwd = "CONTRASEÑA "
OraSession
OraSession pública como objeto
OraDatabase
Exponer OraDB como OraDatabase
OraDynaset
OraDyn público como OraDynaset
Funciones para conectarse a ORACLE
Conexión exitosa: Verdadero Fallo de conexión: False
Función pública f_connect() en forma booleana
Ir a ierr en caso de error
f_connect = False
set ora sesión = CreateObject("OracleInProcServer.XOraSession")
Establecer OraDB = OraSession. abrir base de datos (strdbname, strusr & "/" & strpwd, 0 &)
f_connect = True
Función de salida
ierr:
p>
Error de MsgBox. Descripción, vbOKOnly + vbCritical, "Error"
f_connect = False
Función final
Obtener registros de la tabla de la base de datos pasando instrucciones SQL
Como la función pública f_select(strsql As String) de OraDynaset
Ir a ierr en caso de error
Establecer OraDyn = OraDB. CreateDynaset(strsql, ORADYN_READONLY)
Establecer f_select = OraDyn
Salir de la función
ierr:
Error de MsgBox. Descripción, vbOKOnly + vbCritical, "Error"
Establecer f_select = Ninguno
Finalizar función
Ejecutar una declaración de actualización y devolver el número de registros afectados por esta actualización .
Función pública booleana f_execute(strsql As String)
Ir a ierr en caso de error
f_execute = False
OraDB. comenzar
f_execute = OraDB. Ejecutar SQL(strsql)
Salir de la función
ierr:
Error de MsgBox. Descripción, vbOKOnly + vbCritical, "Error"
OraDB. Invertir
Finalizar función
Separar
Desconectar en caso de éxito: verdadero Desconectar en caso de error: falso
Función pública booleana f_disconnect()
Ir a ierr en caso de error
f _disconnect=false
Si no es OraDyn, no es nada
OraDyn.
Cerrar
Finalizar si...
Establecer OraSession = Nada
OraDB. off
Establecer OraDB=None
f_disconnect=True
Salir de la función
ierr:
Error de MsgBox. Descripción, vbOKOnly + vbCritical, "Error"
f_disconnect=false
Función final
Introduzca el código anterior en el módulo y llámelo directamente.