Berikut ini hanyalah contoh applet VB sederhana, tetapi mengandung kata kunci berikut: VB6.0, ADO, Access
Lingkungan: visual basic 6.0 Enterprise Edition (bukan versi yang disederhanakan, jika tidak maka tidak akan ada kontrol yang diperlukan)
Basis Data: Akses basis data, basis datanya adalah xs.mbd, tabel bawaannya adalah xj
Hasil: VB menggunakan ADO untuk menyambung ke database akses, menanyakan semua data di tabel xj, dan kemudian mengeluarkan hasil kueri ke jendela dalam satu lingkaran.
Kode:
Sub Pribadi Form_Click()Dim db Sebagai ADODB.Connection Baru, RS Sebagai ADODB.Recordset Baru 'Objek koneksi ADO dan kumpulan rekaman Dim strSQL As String 'SQL string db.ConnectionString = "provider=Microsoft.Jet.OLEDB.4.0;Sumber data =" & App.Path & "/xs.mdb" 'Koneksi database db.Open' Buka database strSQL = "pilih * dari xj" 'SQL string RS.Open strSQL, db, 3, 1' Kueri tabel data Lakukan Sementara Bukan RS.EOF 'Loop untuk menampilkan hasil kueri Cetak RS! Nama RS! Cetak hasil output di jendela RS.MoveNext 'Pindahkan record ke bawah LoopRS.Close 'Tutup kumpulan record Set RS = NothingEnd Sub
Di atas adalah keseluruhan isi artikel ini, saya harap Anda semua menyukainya.