RDO kullanarak bir Oracle veritabaný Access nasýl kullanýlýr

Visual Basic 5.0 ve daha yüksek Enterprise edition, bir DSN-less baðlantý üzerinden bir Oracle veritabanýna, saklý yordam parametreleri kullanarak yürütme yetkiniz vardýr ve dönüþ deðerleri, saklý yordam alýn. Bu makaledeki örnekte, bu iþlevlerin tümü gösterilmiþtir.

Bu makaledeki örnek bir DSN-less baðlantý, bir Oracle veritabaný oluþturur ve bir saklý yordam çalýþtýrýlýr basit bir Visual Basic projesinin ' dir. Oracle için Oracle ve Microsoft ODBC sürücüsü ile çalýþýrken, Microsoft SQL Server ile çalýþma deðerinden farklý bazý ayarlarý vardýr. Farklý bir ODBC sürücüsü kullandýðýnýzdan, bu farklar ortaya çýkar.

Visual Basic 5.0 ve sonraki Enterprise edition, Oracle için RDO 2.0 ve Microsoft ODBC sürücüsü içerir. Bunlarýn her ikisi de bu makaledeki örnek proje çalýþmasý için yüklü olmasý gerekir.

Not: Oracle The ODBC sürücüsünden (ve dönüþ deðerleri baðlama saklý yordamlar, arama dahil) RDO 2.0 özellik kümesinin tümü desteklemiyor.

Aþaðýdaki örnek, bir Oracle 7.3 veritabanýnda bir SQL ile oluþturulmuþ * NET 2.3 baðlantý. Aþaðýdaki kodu (saklý yordamýn dahil) tüm ile Oracle 7.2 düzgün çalýþmalýdýr. Ancak, Microsoft ODBC Driver for Oracle Yardým dosyasý, yalnýzca SQL desteklediðini belirten * NET 2.3

Oracle veritabaný oluþturulmasý gereken iki nesne; bir tablo (rdooracle) ve bir saklý yordam (rdoinsert) vardýr. Bu nesneleri oluþturmak için veri tanýmlama dili (DDL) kodlarý þunlardýr:

• Bu yalnýzca iki sütunlu bir tablo ile birincil anahtar olarak ayarlamak ilk sütun, RDOORACLE::

        CREATE TABLE rdooracle (
                  item_number    NUMBER(3) PRIMARY KEY,
                  depot_number   NUMBER(3));
  					

• RDOINSERT: Bu yordam, tek bir sayýsal giriþ parametresi kabul eder ve bir tek sayýsal bir çýktý parametresi. Giriþ parametresi ilk giriþ bir deyim tarafýndan kullanýlan sonra 2 tarafýndan ayrýlmýþ ve çýkýþ parametresi ayarlayýn:

        CREATE OR REPLACE PROCEDURE rdoinsert
           (insnum IN NUMBER, outnum OUT NUMBER)
        IS
        BEGIN
        INSERT INTO rdooracle
           (Item_Number, Depot_Number)
        VALUES
           (insnum, 16);
        outnum := insnum/2;
        END;
  					

Not:, parametreleri için çýkýþ yordamlar ve olmayan iþlevler Oracle ve RDO yer tutucu parametreleri ile çalýþýrken kullanmanýz gerekir.

Yukarýdaki komut, SQL çalýþtýrýlabilir * artý ya da içinde Visual veritabaný Araçlarý eklenti, Visual Basic 5.0 Enterprise edition. Bu nesneler oluþturduktan sonra bunlarý kullanan bir Visual Basic projesi oluþturabilirsiniz.

Adým adým örnek

Bu örnek proje, RDOINSERT baðlamasý parametresi saklý yordamýný göndermek ve çýkýþ parametresi, bu yordamdan sonra geri dönmek için basit bir form kullanýr. Projeyi oluþturmak için adýmlarý aþaðýda verilmektedir:

1. Yeni bir proje, Visual Basic 5.0 Enterprise sürümünde açýn. Varsayýlan olarak, Form1 oluþturulur.
2. Formda <a1>Yerleþtir</a1> aþaðýdakileri denetler:

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

3. Araçlar menüsünden Seçenekler öðesini seçin. Varsayýlan Tam Modül Görünümü</a1> seçeneðini týklatýn ve sonra Tamam ' ý týklatýn. Bu, tüm bu proje kodunu görüntülemek izin verir.
4. Aþaðýdaki kodu kodu penceresine yapýþtýrýn:

         Option Explicit
         Dim Cn As rdoConnection
         Dim En As rdoEnvironment
         Dim CPw As rdoQuery
         Dim Rs As rdoResultset
         Dim Conn As String
         Dim QSQL As String
         Dim Response As String
         Dim Prompt As String
   
         Private Sub cmdCheck_Click()
   
             QSQL = "Select Item_Number, Depot_Number From rdooracle Where " _
             & "item_number =" & txtInput.Text
             Set Rs = Cn.OpenResultset(QSQL, rdOpenStatic, , rdExecDirect)
   
             Prompt = "Item_Number = " & Rs(0) & ".  Depot_Number = " _
             & Rs(1) & "."
   
             Response = MsgBox(Prompt, , "Query Results")
   
             Rs.Close
   
         End Sub
   
         Private Sub cmdSend_Click()
   
             CPw(0) = Val(txtInput.Text)
             CPw.Execute
   
             Prompt = "Return value from stored procedure is " & CPw(1) & "."
             Response = MsgBox(Prompt, , "Stored Procedure Result")
   
         End Sub
   
         Private Sub Form_Load()
   
             Conn = "UID=;PWD=;driver={Microsoft ODBC Driver for Oracle};" _
                  & "CONNECTSTRING=MyOracle;"
   
             Set En = rdoEnvironments(0)
             Set Cn = En.OpenConnection("", rdDriverPrompt, False, Conn)
             QSQL = "{call rdoinsert(?,?)}"
             Set CPw = Cn.CreateQuery("", QSQL)
   
         End Sub
   
         Private Sub Form_Unload(Cancel As Integer)
   
             En.Close
   
         End Sub
   
   					

5. Projeyi çalýþtýrýn.

TxtInput, metin kutusuna bir sayý girin ve "Gönder" düðmesini týklatýn, Oracle, saklý yordamý, RDOINSERT, denir. Sayý, metin olarak girilen kutusu yordamý için giriþ parametresi olarak kullanýlýr. Çýkýþ parametresi depolanmýþ yordamýn iþlem tamamlandýktan sonra olarak adlandýrýlan bir ileti kutusu içinde kullanýlýr. Kendi özgün deðer yine de metin kutusuna, "Denetim" düðmesini týklatýn. Bu, baþka bir ileti kutusunda görüntülenecek bir basit salt okunur resultset oluþturur.

Bu gösteri projede kullanýlan kodu ayrýntýlý bir açýklamasý aþaðýdadýr:

Form_Load olay DSN-less baðlantý oluþturan kodunu içerir. Ayrýca, saklý yordamý çaðýran bir sorgu oluþturur (kod) içerir: Not kullanýyorsanýz rdPreparedStatement nesne. Bu nesne rdoQuery nesne tarafýndan deðiþtirilmiþtir. Bu, RDO 2.0 için yeni bir özelliktir. Ayrýca, RDO 2.0, açýkça bu projede yapýlan gibi bir baðlantý nesnesi oluþturmak gerekmez. Özel bir baðlantý ile iliþkili olmayan bir tek baþýna bir sorgu nesnesini oluþturabilirsiniz. Bu iþlevi hakkýnda daha fazla bilgi için <a0></a0>, rdoQuery Nesnesi'nde, Visual Basic 5.0 Enterprise edition Yardým dosyasýna bakýn.

Bir Oracle veritabaný'ný (veya herhangi bir veritabaný) bir baðlantýyý açmak için kullanýlan baðlantý dizesini temel ODBC sürücüsü üzerinde çok baðlýdýr. Benzer parametreleri kullanýlan çoðu ODBC sürücüleri tarafýndan (UID, PWD, vb.) olsa bile, burada kullanýlan baðlantý dizesi Oracle için Microsoft ODBC sürücüsü ile yalnýzca iþ: en önemli bu baðlanma dizesi anahtar sözcüðü "CONNECTSTRýNG" bölümüdür. Oracle için Microsoft ODBC sürücüsü tarafýndan yalnýzca kullanýlýr. Microsoft SQL Server 6.5, "Sunucu" anahtar sözcüðünü kullanýn CONNECTSTRING için atanan SQL'DE ayarlama veritabaný diðer adý dizedir * NET. Oracle veritabanýna baðlanýrken baðlantý dizesindeki tek fark edilir. Tüm diðer parametreler, Visual Basic 5.0 Enterprise edition için Yardým dosyasý (rdoConnection nesne altýnda) açýklandýðý gibi çalýþýr. Bir baðlantý için Yardým dosyasý içinde belirtildiði gibi bir DSN baðlantý dizesinde belirtmeyin.

Ayrýca Form_Load olay saklý yordamý çaðýran bir sorgu nesnesini oluþturan kodudur: gibi Microsoft SQL 6.5 sürümünüzün SP5'e ile birlikte Oracle'ý týklatýn, bir saklý yordam çaðrýsýnýn dönüþ deðeri belirtemezsiniz; bu makalenin önceki bölümlerinde listelenen parametreleri çýkýþ, saklý yordamlar kullanmanýz gerekir. Parametre yer tutucularý QSQL dizesinde, tarafýndan belirtilen bir "?" ve bunlar dizede göründükleri sýrada baþvuruda bulunulan. Parametre rdoQuery nesne yer tutucularý kullanýmý hakkýnda daha fazla bilgi için Visual Basic 5.0 Enterprise edition Yardým dosyasýnda <a1>rdoParameter</a1> nesnesine bakýn.

Projenin kalaný hem çevrimiçi Yardým dosyasýný ve her ikisi de Visual Basic 5.0 ile gelen çevrimiçi, oldukça düz iletme ve well-documented kullanýlýyor. Oracle, baðlantý dizesini ve saklý yordamlar, arama ile çalýþmak için kritik RDO sorunlarý bu projede ayrýntýlý. Bu sorunlar hakkýnda daha fazla bilgi için lütfen, Oracle SQL bakýn * NET 2.3 belgelerine, Oracle 7 sunucunuzun belgelerine ve Oracle için Microsoft ODBC sürücüsü için Yardým dosyasý.

Visual Basic 5.0 Enterprise Edition Yardým dosyalarý

<a1>Oracle</a1> SQL * NET 2.3 Yardým dosyasý

Visual Basic ve dördüncü sürüm olan SQL Server - hitchhiker'in Kýlavuzu.