Πώς να Τοποθετήστε Oracle σε VBA

είδη Oracle αντικείμενο είναι ενέσιμα σε VBA , ή Visual Basic for Applications , για να δημιουργήσετε λειτουργικές εφαρμογές , όπως οι πελάτες και τις εντολές αγοράς , όπως τα αντικείμενα της βάσης δεδομένων . Οι τύποι αντικειμένων από την Oracle είναι πιο ευέλικτο , διότι μπορεί να λειτουργήσει με σύνθετα δεδομένα , όπως αρχεία ήχου, εικόνες και βίντεο . Έργο VBA που σας ενσωματωθούν με την Oracle είναι πλέον συμβατό με Java , PHP , SQL και PL /SQL επειδή οι Oracle αντικείμενα όλες τις υποστηριζόμενες από αυτές τις γλώσσες προγραμματισμού και πλατφόρμες δεδομένων . Οδηγίες
Η 1

λήψη και εγκατάσταση του Microsoft Access Data Components εάν χρησιμοποιείτε το Visual Basic 5.0 . Για να συνδέσετε Oracle με τη VBA, δύο αντικείμενα δεδομένων ActiveX ή ADO , τα στοιχεία που απαιτούνται - ένα τραπέζι ( adooracle ) και μια αποθηκευμένη διαδικασία ( adoinsert ) 2

Πληκτρολογήστε τον ακόλουθο κώδικα για να δημιουργήσετε τα δεδομένα σας . πίνακα που ονομάζεται " adooracle : "

CREATE TABLE adooracle (

item_number ΑΡΙΘΜΟΣ ( 3 ) PRIMARY KEY , πώληση

depot_number ΑΡΙΘΜΟΣ ( 3 ) ) ?
Η
3

Εισάγετε τον παρακάτω κώδικα για να δημιουργήσετε τη διαδικασία της Oracle που ονομάζεται " adoinsert . " Η διαδικασία αυτή θα εξάγει δεδομένα από τον πίνακα " adooracle " .

Σύσταση ή την αντικατάσταση ΔΙΑΔΙΚΑΣΙΑ adoinsert (

insnum ΣΕ ΑΡΙΘΜΟ , outnum OUT ΑΡΙΘΜΟΣ )

IS

BEGIN

INSERT INTO adooracle

( Item_Number , Depot_Number )

ΑΞΙΕΣ

( insnum , 16)
?

outnum : = insnum /2 ?

ΤΕΛΟΣ ?

/
Η 4

Ανοίξτε ένα νέο έργο της Visual Basic και να προσθέσετε ένα " αναφοράς" στην Microsoft αντικείμενα δεδομένων ActiveX βιβλιοθήκη για εφαρμόσουν τη διαδικασία της Oracle . Εισάγετε τον παρακάτω στοιχεία ελέγχου στη φόρμα :

Ελέγχου - Button , Button , Πλαίσιο κειμένου , Label

Όνομα - cmdCheck , cmdSend , txtInput , lblInput

Κείμενο /Caption - Ελέγξτε , Αποστολή , Είσοδος
5

Επιλέξτε " Επιλογές" από το μενού Εργαλεία , κάντε κλικ στην επιλογή " Προεπιλογή Full Module View" και στη συνέχεια κάντε κλικ στο κουμπί "OK". Αυτό θα σας αφήσει να δείτε το σύνολο των κώδικα του έργου σας . Επικολλήστε τον παρακάτω κώδικα στο παράθυρο κώδικα σας για να εκτελέσετε το έργο σας Oracle .

Option Explicit Dim

Cn Όπως ADODB.Connection

Dim CPw1 Όπως ADODB.Command

Dim CPw2 Όπως ADODB.Command

Dim Rs Όπως ADODB.Recordset

Dim Conn Όπως String Dim

QSQL Όπως String

Private Sub cmdCheck_Click ( )

CPw1 ( 0 ) = Val ( txtInput.Text )

Σετ Rs = CPw1.Execute

MsgBox " Item_Number = " & R ( 0 ) & " . Depot_Number = " & Rs ( 1 ) & " . "