INFO: Visual Basic mengakses Database Oracle menggunakan ADO

Dengan Visual Basic dan ADO, Anda memiliki kemampuan untuk menghubungkan ke Oracle database melalui sambungan DSN-kurang, melaksanakan prosedur yang disimpan menggunakan parameter, dan mendapatkan kembali nilai-nilai dari prosedur yang tersimpan. The contoh dalam artikel ini menggambarkan semua fungsi ini.

Untuk menjalankan kode contoh dalam artikel ini, Anda mungkin perlu untuk men-download dan menginstal komponen akses Data Microsoft jika Anda menggunakan Visual Basic 5.0. MDAC komponen terletak di:http://MSDN.Microsoft.com/en-US/data/aa937729.aspxContoh berikut dibuat terhadap database Oracle 7.3 melalui SQL * Net 2.3 sambungan. Semua kode berikut (termasuk yang disimpan prosedur) harus bekerja baik-baik saja dengan Oracle 7,2. Namun, Microsoft ODBC Driver untuk Oracle membantu file menyatakan bahwa hanya mendukung SQL * Net 2.3.

Ada dua objek yang perlu dibuat pada Oracle database; a tabel (adooracle) dan prosedur yang disimpan (adoinsert).

CATATAN: Jika Anda telah bekerja melalui artikel Basis Pengetahuan Microsoft berikut, maka Anda dapat menggunakan Oracle benda-benda diciptakan dalam artikel ini (rdooracle dan rdoinsert). Hanya mengubah kode Visual Basic di bawah ini sesuai:

Berikut adalah script bahasa (DDL) definisi data untuk membuat ini objek:

ADOORACLE - ini adalah hanya dua kolom tabel dengan kolom pertama ditetapkan sebagai tombol utama:



ADOINSERT - prosedur ini menerima satu parameter masukan angka dan mengembalikan output numerik tunggal parameter. Input parameter pertama digunakan oleh pernyataan masukan, kemudian dibagi oleh 2 dan ditetapkan sebagai output parameter:


Dalam SQL 3.3, menggunakan foward garis miring (/) untuk mengakhiri dan menjalankan script yang menyatakan prosedur yang tersimpan.

CATATAN: Anda harus menggunakan prosedur yang memiliki output parameter dan tidak fungsi ketika bekerja dengan Oracle dan ADO parameter.

Skrip sebelumnya dapat dijalankan dari SQL * Plus. Setelah objek ini telah dibuat, Anda dapat membuat proyek Visual Basic yang akan menggunakannya.

Proyek sampel ini menggunakan formulir sederhana untuk mengirim mengikat parameter untuk ADOINSERT disimpan prosedur dan kemudian kembali output parameter dari yang prosedur. Berikut adalah langkah-langkah untuk membuat proyek:

1. Buka proyek baru dalam Visual Basic dan menambahkan referensi ke perpustakaan objek Data ActiveX Microsoft.
2. Menempatkan kontrol berikut pada formulir:

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

3. Dari menu alat, pilih pilihan, klik Opsi "Default modul tampilan penuh", dan kemudian klik OK. Hal ini memungkinkan Anda untuk melihat semua kode untuk proyek ini.
4. Paste kode berikut ke dalam jendela kode Anda:

   
       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. Menjalankan proyek.

Ketika Anda memasukkan nomor kotak teks, txtInput, dan klik Kirim tombol, Oracle disimpan prosedur, ADOINSERT, disebut. Nomor yang Anda masukkan dalam teks kotak digunakan sebagai input parameter untuk prosedur. Output parameter digunakan dalam kotak pesan yang disebut setelah disimpan prosedur selesai pengolahan. Dengan nilai asli Anda masih dalam kotak teks, klik tombol "Check". Ini menciptakan sederhana hanya-baca resultset yang ditampilkan dalam kotak pesan lain.

Berikut adalah penjelasan rinci kode yang digunakan dalam hal ini demonstrasi proyek.

Acara Form_Load berisi kode yang menciptakan DSN-kurang sambungan:Setelah Anda membuat objek sambungan ADO (Cn), Anda menetapkan beberapa dari yang parameter menggunakan dengan pernyataan.

Hubungkan string yang digunakan untuk membuka koneksi ke database Oracle (atau database hal) adalah sangat tergantung pada ODBC mendasari driver. Anda dapat melihat dalam string connect di bawah Microsoft Oracle driver Anda menggunakan bernama khusus oleh DRIVER =:Yang paling penting bagian dari string connect ini adalah "SERVER" kata kunci. The string yang ditugaskan ke SERVER adalah Alias Database yang Anda tetapkan dalam SQL * bersih. Ini adalah satu-satunya perbedaan dalam connect string saat menghubungkan ke database Oracle. Untuk koneksi DSN-kurang, seperti yang dinyatakan dalam bantuan file, Anda tidak menentukan DSN dalam connect string.

Juga di Form_Load acara adalah kode yang menciptakan dua perintah ADO benda-benda yang digunakan dalam proyek:Objek perintah pertama (CPw1) adalah permintaan parameterized sederhana. The CommandText memiliki satu parameter yang item_number untuk mana klausa. Perhatikan bahwa CommandType diatur ke adCmdText. Ini berbeda dari adCmdStoredProc CommandType di objek perintah kedua (CPw2). Berikut ini adalah dari ADO membantu HTML file:Menggunakan dengan perintah, Anda dapat membuat dan menambahkan parameter ke perintah objek dengan mudah. Parameter pertama fungsi CreateParameter untuk Nama parameter. Ini telah dibiarkan kosong karena sampel program menggunakan indeks koleksi parameter untuk mengidentifikasi individu parameter (seperti CPw1(0) untuk mengidentifikasi parameter pertama). Program sampel menggunakan adInteger dan adDouble datatypes. Jika ini digunakan panjang variabel datatype, maka parameter ukuran CreateParameter fungsi harus ditetapkan. Sekali lagi, dari ADO membantu HTML:Sisa proyek cukup sederhana dan terdokumentasi dengan baik dalam kedua berkas Bantuan Online dan buku Online yang datang dengan Visual Basic. ADO isu-isu yang sangat penting untuk bekerja dengan Oracle (connect string dan panggilan disimpan prosedur) telah diperincikan dalam hal ini proyek.

Untuk informasi lebih lanjut tentang masalah ini, silakan berkonsultasi dengan Oracle SQL * Net 2.3 dokumentasi, file bantuan untuk Microsoft ODBC Driver untuk Oracle, ADO HTML yang datang dengan MDAC, buku Online yang datang dengan Visual Basic 6.0 atau dokumentasi server Oracle 7 Anda.

Pengandar Microsoft ODBC Oracle berkas Bantuan

ADO bantuan HTML

"Oracle PL/SQL pemrograman" oleh Steven Feuerstein

"Hitchhiker's Guide to & Visual Basic SQL Server" oleh William Vaughn, kelima Edisi

Untuk informasi tambahan, silakan lihat artikel berikut di Basis Pengetahuan Microsoft: