INFO: Visual Basic auf eine Oracle-Datenbank mit ADO

Mit Visual Basic und ADO haben die Möglichkeit, eine Verbindung zu einer Oracle-Datenbank über eine kleiner DSN-Verbindung herzustellen, Ausführen einer gespeicherten Prozedur mit Parametern, und Rückgabewerte von der gespeicherten Prozedur abrufen. Das Beispiel in diesem Artikel veranschaulicht die gesamte Funktionalität.

Ausführen des Beispielcodes in diesem Artikel müssen Sie downloaden und Installieren der Microsoft Data Access Components, wenn Sie Visual Basic 5.0 verwenden. Die MDAC-Komponenten befinden sich unter: http://msdn.microsoft.com/en-us/data/aa937729.aspx das folgende Beispiel, in einer Oracle 7.3 Datenbank über eine SQL erstellt wurde * NET 2.3 Verbindung. Alle im folgenden Code (einschließlich der gespeicherten Prozedur) sollten mit Oracle 7.2 fehlerfrei funktionieren. Der Microsoft ODBC-Treiber für Oracle-Hilfedatei jedoch besagt, dass Sie nur SQL unterstützt * NET 2.3.

Es gibt zwei Objekte, die auf der Oracle-Datenbank erstellt werden müssen; eine Tabelle (Adooracle) und eine gespeicherte Prozedur (Adoinsert).

Hinweis : Wenn Sie über die folgenden Microsoft Knowledge Base gearbeitet haben und Sie können die in diesem Artikel (Rdooracle und Rdoinsert) erstellten Oracle-Objekte verwenden. Nur ändern Sie entsprechend den folgenden Visual Basic-Code:

Hier sind die Daten Definition Language (DDL) Skripts zum Erstellen dieser Objekte:

ADOORACLE - ist dies nur eine zweispaltige Tabelle mit der ersten Spalte als Primärschlüssel festgelegt:



ADOINSERT - diese Prozedur akzeptiert einen einzelnen numerischen Eingabeparameter und gibt einen einzelnen numerischen Ausgabeparameter zurück. Der Eingabeparameter wird zuerst von eine input-Anweisung verwendet, und es geteilt durch 2 und als Output-Parameter festgelegt ist:


Verwenden Sie in SQL 3.3 einen Forward-Schrägstrich (/) beendet und das Skript deklarieren die gespeicherte Prozedur ausführen.

Hinweis : Prozeduren, die Parameter ausgegeben haben und keine Funktionen beim Arbeiten mit Oracle und ADO-Parameter muss verwendet.

Die vorangegangenen Skripts von SQL ausgeführt werden können * Plus. Nachdem diese Objekte erstellt wurden, können Sie das Visual Basic-Projekt erstellen, das Sie verwenden werden.

Dieses Beispielprojekt verwendet ein einfaches Formular, ein Parameter binden, die ADOINSERT gespeicherte Prozedur zu senden und dann den Ausgabeparameter aus, dass diese Prozedur zurückkehren. Hier sind die Schritte um das Projekt zu erstellen:

1. Öffnen Sie ein neues Projekt in Visual Basic und fügen Sie einen Verweis auf die Microsoft ActiveX Data Objects-Bibliothek hinzu.
2. Setzen Sie die folgenden Steuerelemente im Formular:

   
      Control      Name      Text/Caption
   
      Button      cmdCheck    Check
      Button      cmdSend     Send
      Text Box    txtInput
      Label       lblInput    Input:
   
   						

3. Im Menü Extras Wählen Sie Optionen, klicken Sie auf die Option "Standard Vollständige Modulansicht" und klicken Sie dann auf OK. Dadurch werden alle den Code für dieses Projekt anzuzeigen.
4. Fügen Sie den folgenden Code in Ihre Code-Fenster:

   
       Option Explicit
       Dim Cn As ADODB.Connection
       Dim CPw1 As ADODB.Command
       Dim CPw2 As ADODB.Command
       Dim Rs As 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 "Return value from stored procedure is " & CPw2(1) & "."
   
       End Sub
   
       Private Sub Form_Load()
   
          'You will need to replace the "*" with the appropriate values.
          Conn = "UID=*****;PWD=****;DRIVER={Microsoft ODBC for Oracle};" _
               & "SERVER=*****;"
   
          Set Cn = New ADODB.Connection
   
          With Cn
            .ConnectionString = Conn
            .CursorLocation = adUseClient
            .Open
          End With
   
          QSQL = "Select Item_Number, Depot_Number From adooracle Where " _
          & "item_number = ?"
   
          Set CPw1 = New ADODB.Command
   
          With CPw1
            .ActiveConnection = Cn
            .CommandText = QSQL
            .CommandType = adCmdText
            .Parameters.Append .CreateParameter(, adInteger, adParamInput)
          End With
   
          QSQL = "adoinsert"
   
          Set CPw2 = New ADODB.Command
   
          With CPw2
            .ActiveConnection = Cn
            .CommandText = QSQL
            .CommandType = adCmdStoredProc
            .Parameters.Append .CreateParameter(, adInteger, adParamInput)
            .Parameters.Append .CreateParameter(, adDouble, adParamOutput)
          End With
   
       End Sub
   
       Private Sub Form_Unload(Cancel As Integer)
   
          Cn.Close
          Set Cn = Nothing
          Set CPw1 = Nothing
          Set CPw2 = Nothing
   
       End Sub
   
   					

5. Führen Sie das Projekt aus.

Wenn Sie eine Zahl, in das Textfeld, TxtInput eingeben, und klicken Sie auf die Schaltfläche Senden , wird die Oracle-gespeicherten Prozedur, ADOINSERT, aufgerufen. Die Zahl eingegeben den Text im Feld als der Eingabeparameter für die Prozedur verwendet wird. Der Ausgabeparameter wird in einem Meldungsfeld verwendet, die aufgerufen wird, nachdem die gespeicherte Prozedur Verarbeitung abgeschlossen wurde. Klicken Sie mit Ihren ursprünglichen Wert noch in das Textfeld auf "Suchen". Dadurch kann ein einfacher nur-Lese-Resultset, das in ein anderes Meldungsfeld angezeigt wird.

Folgt eine ausführliche Erläuterung der Code in dieser Demo-Projekt verwendet.

Das Form_Load-Ereignis enthält den Code, kleiner DSN-Verbindung erstellt: Nachdem Sie das ADO-Verbindungsobjekt (CN) erstellen, Festlegen verschiedener Parameter mithilfe der WITH-Anweisung.

Die Connect-Zeichenfolge, die eine Verbindung zu einer Oracle-Datenbank (oder jeder Datenbank für die Frage) öffnen verwendet wird, ist sehr abhängig von der zugrunde liegenden ODBC-Treiber. Können Sie in der folgenden Verbindungszeichenfolge, dass der Microsoft Oracle-Treiber verwenden speziell durch DRIVER heißt =: der wichtigste Teil dieses Verbindungszeichenfolge ist das Schlüsselwort "SERVER". Die SERVER zugewiesene Zeichenfolge ist der Datenbank-Alias die Sie in SQL haben eingerichtet * NET. Dies ist der einzige Unterschied in der Verbindungszeichenfolge, beim Verbinden mit einer Oracle-Datenbank. Für eine Verbindung DSN kleiner keinen wie in der Hilfedatei angegeben Sie einen DSN in der Verbindungszeichenfolge an.

Auch in das Form_Load-Ereignis Code wird das im Projekt verwendet die beiden Command in ADO-Objekte erstellt: das erste Command-Objekt (CPw1) ist eine einfache parametrisierte Abfrage. Die CommandText hat einen Parameter, die die Item_number der Where-Klausel. Beachten Sie, das der CommandType auf AdCmdText eingestellt ist. Dies unterscheidet sich AdCmdStoredProc CommandType im zweiten Command-Objekt (CPw2). Der folgende Code ist aus der ADO-Hilfe HTML-Datei: WITH-Befehl verwenden, können Sie erstellen und Parameter an das Befehlsobjekt leicht anhängen. Der erste Parameter der Funktion CreateParameter ist für den Namen des Parameters. Dies wurde leer gelassen wurde da das Beispielprogramm den Index des Parameters-Auflistung, verwendet um die einzelnen Parameter (z. B. CPw1(0) zum Identifizieren des ersten Parameters) zu identifizieren. Die Beispiel-Anwendung verwendet AdInteger und AdDouble Datentypen. Wenn Sie einen Datentyp variabler Länge verwendet hätten, müssten die Size-Parameter der CreateParameter-Funktion festgelegt werden. Hilfe zu erneut, die ADO HTML: Der Rest des Projekts ist ziemlich einfach und gut dokumentiert, in der Datei Onlinehilfe und Onlinedokumentation, die im Lieferumfang von Visual Basic. Die ADO Probleme, die zum Arbeiten mit Oracle (die Verbindungszeichenfolge und Aufrufen von gespeicherten Prozeduren) wichtig sind haben in dieses Projekt ausführlich beschrieben wurde.

Weitere Informationen zu diesen Problemen finden Sie in Ihrem Oracle SQL * NET 2.3 Dokumentation die Hilfedatei für den Microsoft ODBC-Treiber für Oracle, den ADO HTML-Code, der mit MDAC, geliefert wird, die Onlinedokumentation bietet Visual Basic 6.0 oder in der Oracle 7-Server-Dokumentation.

Microsoft ODBC-Treiber für Oracle-Hilfedatei

HTML-Hilfe von ADO

"Oracle PL/SQL Programming" von Steven Feuerstein

"Hitchhiker's Guide to Visual Basic & SQL Server" von William Vaughn fünfte Edition

Weitere Informationen finden Sie in die folgenden Artikeln der Microsoft Knowledge Base: