tipos de objetos são o Oracle injetável em VBA ou Visual Basic for Applications, para criar aplicativos funcionais, tais como clientes e ordens de compra, como objetos de banco de dados . Os tipos de objetos do Oracle são mais flexíveis , porque eles podem trabalhar com dados complexos, tais como áudio, imagens e vídeo. Seu projeto VBA integrado com o Oracle é agora também compatível com Java , PHP, SQL e PL /SQL porque os objetos do Oracle são todos suportados por essas linguagens de programação e plataformas de banco de dados. Instruções
1
baixar e instalar o Microsoft Data Access Components se você estiver usando o Visual Basic 5.0. Para conectar Oracle com o VBA, dois ActiveX Data Objects , ou ADO, são necessários elementos - uma tabela ( adooracle ) e um procedimento armazenado ( ADOINSERT )
2
entrada o seguinte código para criar o seu dados. tabela chamada " adooracle : "
CRIAR adooracle TABLE (
item_number NUMBER ( 3) PRIMARY KEY ,
NÚMERO depot_number (3) );
3
Insira o seguinte código para criar o procedimento do Oracle chamado " ADOINSERT ". Este procedimento irá extrair os dados da tabela " adooracle " .
CREATE OR REPLACE PROCEDURE ADOINSERT (
insnum em número, OutNum OUT NUMBER )
IS
BEGIN
INSERT INTO adooracle
( item_number , Depot_Number )
VALORES
( insnum , 16);
OutNum : = insnum /2;
END;
/
4
Abra um novo projeto no Visual Basic e adicionar uma " referência" para o Microsoft ActiveX Data Objects biblioteca para implementar o seu procedimento Oracle. Digite o seguinte controles no formulário :
Controle - Button, Button, Caixa de Texto ,
Etiqueta Nome
- cmdCheck , cmdSend , txtInput , lblInput
Texto /Caption - Verifique , Enviar, Input
5
Escolha "Options" no menu Ferramentas , clique na opção "Default Full Module View" e clique em "OK". Isso permitirá que você visualize todo o código do projeto. Cole o código abaixo em sua janela de código para executar seu projeto Oracle.
Option Explicit
Dim cn As ADODB.Connection
Dim CPw1 Como ADODB.Command
Dim CPw2 Como ADODB.Command
Dim Rs Como ADODB.Recordset
Dim Conn As String Dim
QSQL As String
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 " O valor de retorno do procedimento armazenado é" & CPw2 (1 ) & " . "
End Sub
Private Sub Form_Load ()
' Você terá de substituir o "*" com os valores apropriados
Conn = " UID = ***** ; . PWD = ** **; DRIVER = { Microsoft ODBC para Oracle }; "_
&" SERVER = ***** ";
Set Cn = New ADODB.Connection
com Cn
. ConnectionString = Conn
. CursorLocation = adUseClient
. Abrir
End With
QSQL = " Select item_number , Depot_Number De adooracle Onde " _
&" item_number =? " ActiveConnection = Cn <
Set CPw1 = New ADODB.Command
Com CPw1
. br>
. CommandText = QSQL
. CommandType = adCmdText
. Parameters.Append . CreateParameter ( , adInteger , adParamInput )
End With
QSQL = " ADOINSERT "
Set CPw2 = New ADODB.Command
Com CPw2
. ActiveConnection = Cn
. CommandText = QSQL
. CommandType = adCmdStoredProc
. Parameters.Append . CreateParameter ( , adInteger , adParamInput )
. Parameters.Append . CreateParameter ( , adDouble , adParamOutput )
Fim com
End Sub Private Sub
Form_Unload (Cancel As Integer)
cn.Close
Set Cn = Nothing
Definir CPw1 = Nada
Set CPw2 = Nothing
End Sub
