Akses Microsoft adalah database yang paling umum digunakan untuk Visual Basic, tetapi Visual Basic tidak menyediakan fungsi yang mirip dengan perintah BROWS dari FoxPRoforWindows untuk menelusuri database Access. Program ini menyediakan metode yang mirip dengan antarmuka perintah BROWS untuk menelusuri database Access. Pembaca yang tertarik dapat menulis ulang program ini sebagai subrutin dengan parameter (nama database, nama tabel, nama bidang, lebar bidang, dll.) untuk mengimplementasikan metode yang mirip dengan Foxproforwindows. . Fungsi perintah BROWS dipanggil di aplikasi Anda sendiri.
Pertama, tentukan grid (gridl), kotak daftar (list1), kotak dialog normal (dlg), item kesadaran data (datal), dan dua tombol perintah (command1 dan command2) di jendela, dan atur posisinya.
Ketika program dijalankan, tekan tombol "Buka" untuk membuka kotak dialog. Setelah memilih file database, program menampilkan nama tabel yang terdapat dalam database di kotak daftar meja. Program ini secara otomatis dapat mengatur ukuran area penelusuran sesuai dengan panjang bidang dan ukuran font untuk memastikan area penelusuran tidak melebihi jendela. Jika jendela tidak dapat memenuhi area penelusuran, program secara otomatis menambahkan bilah gulir horizontal atau vertikal ke area penelusuran. Terlampir adalah daftar program:
1SubCommand1_Click()'Klik tombol "Buka" dengan mouse
2Dim,IAsInteger,cuntAsInteger
3grid1.Terlihat=Salah
4dlg.Nama File=""
5dlg.Filter="Akses(*.MDB)|*.MDB"
6dlg.FilterIndex=1
7dlg.Action=1'Buka kotak dialog
8Ifdlg.Filename=""Maka jika tidak ada file yang dipilih
9GoTocanc
10AkhirJika
11data.Hubungkan=""
12data.DatabaseName=dlg.NamaFile
13data.RecordSource=""
14data.Segarkan
15browser.Caption="Akses browser[" datal.DatabaseName "]"
16cunt=data.Database.TableDefs.Hitungan
17daftar.Hapus
18ForI=0Tocunt-1'Tambahkan nama tabel ke kotak daftar
19IfLeft(data.Database.TableDefs(I).Name,4)<>"Msys"Lalu
20listl.Additemdata.Database.TableDefs(I).Nama
21AkhirJika
22SelanjutnyaI
23label1.Terlihat=Benar
24list1.Terlihat=Benar
25daftar1.ListIndex=0
26 batal:
27Sub Akhir
28SubCommand2_Click()'Klik tombol "Keluar" dengan mouse
29Akhir
30Sub Akhir
31SubFormulir_Beban()
32browser.Caption="Akses browser"
33grid1.Tinggi=3200
34grid1.Visibli=Salah
35list1.Visible=Salah
36label1.Terlihat=Salah
37Sub Akhir
38SubListl_Click()'Kotak daftar titik mouse
39DimctAsInteger
40data1.RecordSource=daftarl.Teks
41ct=data1.Database.TableDefs(list1.ListIndex).Fields.Count
42grid1.Kolom=ct
43grid1.Baris=0
44ForI=0Toct-1'Tambahkan setiap nama bidang dalam tabel ke baris pertama kisi
45grid1.Kol=I
46grid1.Text=data1.Database(data1.RecordSource),Fields(I).Name
47Selanjutnya
48data1.Segarkan
49data1.Recordset.MoveLast
50grid1.Rows=data1.Recordset.RecordCount 1
51data1.Recordset.MoveFirst
52grid1.Baris=0
53WhileNotdata1.Recordset.EOF'Baca data ke dalam setiap sel grid
54grid1.Baris=grid1.Baris 1
55Fori=0Tokt-1
56grid1.Kol=I
57IfNotIsNull(data.Recordset(I).Value)Lalu
58grid1.Teks=data.Recordset(I).Nilai
59Lainnya
60grid1.Teks=""
61AkhirJika
62cellwidth=Lebar Teks(grid1.Teks) 200
63Jika lebar sel> grid1.ColWidth (I) Lalu
64gridl.ColWidth(I)=lebar sel
65AkhirJika
66SelanjutnyaI
67data1.Recordset.MoveNext
68Wend
69grid1.Lebar=0
70Fori=0Toct-1'Hitung total lebar grid
71grid1.Width=gridl.Lebar gridl.ColWidth(I)
72SelanjutnyaI
73Ifgrid1.Width>scalewidthThen'Jika total lebar grid lebih besar dari lebar jendela
74grid1.Width=lebar skala
75AkhirJika
76grid1.Height=(gridl.Rows 2)*20*grid1.FontSize' Hitung panjang grid
77Ifgrid1.Height>3200Then'Jika panjang grid di luar batas
78grid1.Tinggi=3200
79AkhirJika
80browser.Width=grid1.Width 300'Setel lebar jendela
81grid1.Terlihat=Benar
82EndSub->