Cómo insertar Oracle en VBA

Oracle se integra fácilmente con Visual Basic para Aplicaciones.

 

INSERT ORACLE

Tipos de objetos de Oracle son inyectables en VBA o Visual Basic para aplicaciones, para crear aplicaciones funcionales, tales como clientes y órdenes de compra, como los objetos de base de datos. Los tipos de objetos de Oracle son más flexibles, ya que pueden trabajar con datos complejos, tales como audio, imágenes y video. Su proyecto VBA integrado con Oracle es ahora también compatible con Java, PHP, SQL y PL / SQL porque los objetos de Oracle son compatibles con estos lenguajes de programación y plataformas de bases de datos.

 

Descargar e instalar los componentes de acceso a datos de Microsoft si está utilizando Visual Basic 5.0. Para conectar con Oracle VBA, dos objetos de datos ActiveX o ADO, se necesitan elementos - una tabla (adooracle) y un procedimiento almacenado (adoinsert).

 

Escriba el siguiente código para crear la tabla de datos llamada "adooracle:"

 

CREATE TABLE adooracle (

 

item_number NUMBER (3) PRIMARY KEY,

 

NÚMERO depot_number (3));

 

Inserte el siguiente código para crear el procedimiento de Oracle llamado "adoinsert." Este procedimiento va a extraer los datos de la tabla "adooracle".

 

CREATE OR REPLACE PROCEDURE adoinsert (

 

insnum en número, OUTNUM SALIDA NÚMERO)

 

IS

 

EMPEZAR

 

INSERT INTO adooracle

 

(Item_number, Depot_Number)

 

VALORES

 

(Insnum, 16);

 

OUTNUM: = insnum / 2;

 

END;

 

/

 

Abra un nuevo proyecto en Visual Basic y agregue una "referencia" a la biblioteca Microsoft ActiveX Data Objects para implementar el procedimiento de Oracle. Introduzca los siguientes controles en el formulario:

 

Control - Button, Button, Cuadro de texto, Label

 

Nombre - cmdCheck, cmdSend, txtInput, lblInput

 

Texto / Leyenda - La cuenta, enviar, de entrada

 

Seleccione "Opciones" en el menú Herramientas, haga clic en la opción "Completo módulo vista predeterminada" y luego haga clic en "Aceptar". Esto le permitirá ver todo el código del proyecto. Pegue el código siguiente en la ventana de código para ejecutar el proyecto Oracle.

 

Option Explicit

 

Cn As ADODB.Connection

 

CPw1 As ADODB.Command

 

CPw2 As ADODB.Command

 

Dim R Como ADODB.Recordset

 

Conn Dim As String

 

QSQL Dim As String

 

Private Sub cmdCheck_Click ()

 

CPw1 (0) = Val (txtInput.Text)

 

Set rs = CPw1.Execute

 

MsgBox "item_number =". Depot_Number = "."

 

Rs.close

 

End Sub

 

Private Sub cmdSend_Click ()

 

CPw2 (0) = Val (txtInput.Text)

 

CPw2.Execute

 

MsgBox "Valor devuelto de procedimiento almacenado es" "".

 

End Sub

 

Private Sub Form_Load ()

 

"Tendrá que sustituir el" * "con los valores apropiados.

 

Conn = "UID = *****; PWD = ****; DRIVER = {Microsoft ODBC para Oracle};" _

 

****; "

 

Set cn = New ADODB.Connection

 

Con Cn

 

. ConnectionString = Conn

 

. CursorLocation = adUseClient

 

. Abierto

 

Extremo con

 

QSQL = "Select item_number, Depot_Number De adooracle donde" _

 

ber =? "

 

Set CPw1 = New ADODB.Command

 

Con CPw1

 

. ActiveConnection = Cn

 

. CommandText = QSQL

 

. CommandType = adCmdText

 

. Parameters.Append. CreateParameter (, adInteger, adParamInput)

 

Extremo con

 

QSQL = "adoinsert"

 

Set CPw2 = New ADODB.Command

 

Con CPw2

 

. ActiveConnection = Cn

 

. CommandText = QSQL

 

. CommandType = adCmdStoredProc

 

. Parameters.Append. CreateParameter (, adInteger, adParamInput)

 

. Parameters.Append. CreateParameter (, adDouble, adParamOutput)

 

Extremo con

 

End Sub

 

Form_Unload Sub Private (Cancel As Integer)

 

Cn.Close

 

Set Cn = Nothing

 

Establecer CPw1 = Nothing

 

Establecer CPw2 = Nothing

 

End Sub

 

Consejos y advertencias

Utilice "procedimientos" que tienen los parámetros de salida y no "funciones" cuando se trabaja con parámetros de Oracle y ADO. Las funciones se utilizan para otras tecnologías de programación como Java y AJAX.