Bagaimana menggunakan ADO dengan Visual Basic

Terjemahan Artikel Terjemahan Artikel
ID Artikel: 172403 - Melihat produk di mana artikel ini berlaku.
Untuk Microsoft Visual Basic.NET versi artikel ini, lihat 308656.
Perbesar semua | Perkecil semua

Pada Halaman ini

RINGKASAN

Adovb.exe adalah alat file terkompress mengandung sampel kode yang menunjukkan bagaimana untuk menggunakan ActiveX Data objek (ADO) dalam Visual Basic.

INFORMASI LEBIH LANJUT

Berkas berikut ini tersedia untuk diunduh dari Pusat Unduhan Microsoft:
http://download.Microsoft.com/download/vb60pro/demo/1/WIN98/en-US/AdoVB.exe
Untuk informasi lebih lanjut tentang cara men-download berkas Dukungan Microsoft, klik nomor artikel di bawah ini untuk melihat artikel pada Basis Pengetahuan Microsoft:
119591 Cara mendapatkan berkas Dukungan Microsoft dari Layanan Online
Microsoft telah memindai berkas ini dari virus. Microsoft menggunakan perangkat lunak pendeteksi virus terbaru yang tersedia pada tanggal saat berkas dikirimkan. Berkas tersebut disimpan di server yang aman, yang membantu mencegah pengubahan yang tidak sah terhadap berkas.
Perkecil tabel iniPerbesar tabel ini
Nama fileUkuranTanggal
AdoDemo.mdb332 KB7/28/97
AdoVB18 KB8/5/97
AdoVB.vbp1 KB8/5/97
AdoVbEx6 KB7/28/97

Adovb menunjukkan

Adovb menunjukkan penggunaan yang tepat output dan kembali parametros (untuk SQL Server), dan membuka recordset parameterized untuk Microsoft Access dan SQL Server sumber data. Juga termasuk adalah template generik untuk penanganan dengan ADO kode kesalahan:
   Private Sub cmdTemplate_Click()
      Dim Conn1 As adodb.Connection

      On Error GoTo VbError   ' Trap (non-ADO) error/exceptions

      ' Create Connection Object (using early binding)
      Set Conn1 = new ADODB.Connection

      On Error GoTo AdoError  ' Trap any error/exception

      Conn1.ConnectionString = AccessConnect
      Conn1.Open

      '----------------------
      ' YOUR CODE GOES HERE!
      '----------------------

      ' Successful Shutdown
      Conn1.Close

   Done:
      ' Miscellaneous (graceful) Cleanup
      On Error Resume Next

      Set Conn1 = Nothing

      Exit Sub

   ' ADO Error/Exception Handler
   AdoError:
      ' Save Error Information!
      ErrNumber = Err.Number
      ErrSource = Err.Source
      ErrDescription = Err.Description

      AdoErrorEx List1, Conn1

   ' Non-ADO Native error/exception handler
   VbError:
      VbErrorEx List1, ErrNumber, ErrSource, ErrDescription
      GoTo Done

   End Sub
				
CATATAN:
  • Bila menggunakan ADOVB dengan ADO 2.0 atau yang lebih baru, Anda harus menghapus referensi kepada Microsoft OLE DB ActiveX Data objek 1.0, dan mengatur referensi pada versi terbaru dari objek Data ActiveX Microsoft tersedia.
  • Ketika menggunakan ADO 2.0 atau yang lebih baru, referensi OriginalValue properti dari objek ADO lapangan akan memberikan kesalahan berikut, jika LockType ADO Recordset baca hanya:
    Galat run-time '3251': Operasi yang diminta oleh aplikasi tidak didukung oleh penyedia.
    Untuk menghindari kesalahan ini di ADOVB, komentar atau menghapus baris berikut kode, dalam acara klik prosedur untuk cmdAccess dalam jendela kode untuk frmADOVB:
    List1.AddItem vbTab & "OriginalValue= " & rs1.Fields(i).OriginalValue
    					

REFERENSI

Tentang ADO * seri sampel

Ini adalah salah satu beberapa identik sampel dilaksanakan menggunakan ADO dalam berbagai produk, seperti yang tercantum di bawah ini. Keuntungan adalah bahwa artikel ini memiliki identik antarmuka/fungsi, menunjukkan kedua persamaan dan perbedaan dalam menggunakan ADO dengan bahasa yang berbeda / mekanisme:
172403 BERKAS: Adovb.exe menunjukkan bagaimana menggunakan ADO dengan Visual Basic
220152 Contoh: ADOVC1 sederhana ADO / VC ++ aplikasi
185033 BERKAS: Adoacc.exe menunjukkan menggunakan ADO Access 97

Properti

ID Artikel: 172403 - Kajian Terakhir: 16 September 2011 - Revisi: 2.0
Berlaku bagi:
  • Microsoft ActiveX Data Objects 2.7
  • Microsoft Visual Basic 5.0 Professional Edition
  • Microsoft Visual Basic 6.0 Professional Edition
Kata kunci: 
kbdownload kbcode kbdatabase kbfile kbinfo kbsample kbstoredproc kbmt KB172403 KbMtid
Penerjemahan Mesin
PENTING: Artikel ini diterjemahkan menggunakan perangkat lunak mesin penerjemah Microsoft dan bukan oleh seorang penerjemah. Microsoft menawarkan artikel yang diterjemahkan oleh seorang penerjemah maupun artikel yang diterjemahkan menggunakan mesin sehingga Anda akan memiliki akses ke seluruh artikel baru yang diterbitkan di Pangkalan Pengetahuan (Knowledge Base) dalam bahasa yang Anda gunakan. Namun, artikel yang diterjemahkan menggunakan mesin tidak selalu sempurna. Artikel tersebut mungkin memiliki kesalahan kosa kata, sintaksis, atau tata bahasa, hampir sama seperti orang asing yang berbicara dalam bahasa Anda. Microsoft tidak bertanggung jawab terhadap akurasi, kesalahan atau kerusakan yang disebabkan karena kesalahan penerjemahan konten atau penggunaannya oleh para pelanggan. Microsoft juga sering memperbarui perangkat lunak mesin penerjemah.
Klik disini untuk melihat versi Inggris dari artikel ini:172403

Berikan Masukan

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com