Oracle en VBA tipos de objetos 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 . Instrucciones
1

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 )
2

Introduzca el siguiente código para crear sus datos. tabla llamada " adooracle : "

CREATE TABLE adooracle (

NÚMERO item_number ( 3 ) PRIMARY KEY ,

NÚMERO depot_number ( 3 ));

3

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

Crear o sustituir PROCEDIMIENTO adoinsert (

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

< p > COMENZAR

INSERT INTO adooracle

( item_number , Depot_Number )

VALORES

( insnum , 16 ) ;

OUTNUM : = insnum /2 ;

END;

/
4

Abra un nuevo proyecto en Visual Basic y agregar 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, etiqueta

Nombre - cmdCheck , cmdSend , txtInput , lblInput

Texto /Título - Comprobar , Enviar , entrada
5

Elija "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 Dim As
ADODB.Command < p> Dim CPw2 Como ADODB.Command

Dim R Como ADODB.Recordset

Conn dévil como secuencia

QSQL dévil como secuencia

Private Sub cmdCheck_Click ( )

CPw1 ( 0 ) = Val ( txtInput.Text )

Set rs = CPw1.Execute

MsgBox " item_number =" & Rs ( 0 ) & " . Depot_Number = " & Rs ( 1 ) &" . "

rs.close

End Sub Private Sub

cmdSend_Click ()

CPw2 ( 0 ) = Val ( txtInput.Text )

CPw2.Execute

MsgBox "Valor devuelto de procedimiento almacenado es" & CPw2 ( 1 ) & " . "

End Sub

Private Sub Form_Load ( )

' tendrá que sustituir el "*" con los valores apropiados

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

y " SERVER = ***** ";

Set cn = New ADODB.Connection

Con Cn

. ConnectionString = Conn

. CursorLocation = adUseClient

. abierto

extremo con

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

&" item_number = ? "

Set CPw1 = New ADODB.Command

CPw1

. ActiveConnection = Cn

. CommandText = QSQL

. CommandType = adCmdText

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

extremo con
< p > QSQL = " adoinsert "

Set CPw2 = New ADODB.Command

CPw2

. ActiveConnection = Cn

. CommandText = QSQL

. CommandType = adCmdStoredProc

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

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

End Con

End Sub Private Sub

Form_Unload ( Cancel As Integer )

cn.Close

Set cn = Nothing

Establecer CPw1 = Nothing

CPw2 Set = Nothing End Sub