Red de conocimiento informático - Material del sitio web - Cómo conectar tablas de bases de datos Oracle en VB6.0, consulte a Daniel.

Cómo conectar tablas de bases de datos Oracle en VB6.0, consulte a Daniel.

Es una vieja pregunta, búsquela en línea.

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.