การเข้าถึงของ Microsoft เป็นฐานข้อมูลที่ใช้บ่อยที่สุดสำหรับ Visual Basic แต่ Visual Basic ไม่มีฟังก์ชันที่คล้ายกับคำสั่ง BROWS ของ FoxPRoforWindows เพื่อเรียกดูฐานข้อมูล Access โปรแกรมนี้ให้วิธีการที่คล้ายกับอินเทอร์เฟซคำสั่ง BROWS เพื่อเรียกดูฐานข้อมูล Access ผู้อ่านที่สนใจสามารถเขียนโปรแกรมนี้ใหม่เป็นรูทีนย่อยพร้อมพารามิเตอร์ (ชื่อฐานข้อมูล ชื่อตาราง ชื่อฟิลด์ ความกว้างของฟิลด์ ฯลฯ ) เพื่อนำวิธีการที่คล้ายกับ Foxproforwindows ฟังก์ชั่นของคำสั่ง BROWS ถูกเรียกในแอปพลิเคชันของคุณเอง
ขั้นแรก ให้กำหนดตาราง (gridl) กล่องรายการ (list1) กล่องโต้ตอบปกติ (dlg) รายการการรับรู้ข้อมูล (ข้อมูล) และปุ่มคำสั่งสองปุ่ม (command1 และ command2) ในหน้าต่าง และจัดเรียงตำแหน่งของพวกเขา
เมื่อโปรแกรมถูกดำเนินการ ให้กดปุ่ม "เปิด" เพื่อเปิดกล่องโต้ตอบ หลังจากเลือกไฟล์ฐานข้อมูลแล้ว โปรแกรมจะแสดงชื่อตารางที่อยู่ในฐานข้อมูลในกล่องรายการ คลิกที่ชื่อตารางในกล่องรายการเพื่อเรียกดู โต๊ะ. โปรแกรมนี้สามารถกำหนดขนาดของพื้นที่การเรียกดูโดยอัตโนมัติตามความยาวของฟิลด์และขนาดตัวอักษรเพื่อให้แน่ใจว่าพื้นที่การเรียกดูไม่เกินหน้าต่าง หากหน้าต่างไม่สามารถเติมเต็มพื้นที่การเรียกดู โปรแกรมจะเพิ่มแถบเลื่อนแนวนอนหรือแนวตั้งลงในพื้นที่การเรียกดูโดยอัตโนมัติ สิ่งที่แนบมาด้วยคือรายการโปรแกรม:
1SubCommand1_Click()'คลิกปุ่ม "เปิด" ด้วยเมาส์
2Dim,IAsInteger,cuntAsInteger
3grid1.Visible=เท็จ
4dlg.ชื่อไฟล์ = ""
5dlg.Filter="การเข้าถึง(*.MDB)|*.MDB"
6dlg.FilterIndex=1
7dlg.Action=1'เปิดกล่องโต้ตอบ
8Ifdlg.Filename=""ถ้าไม่มีไฟล์ถูกเลือก
9โกโทแคน
10สิ้นสุดถ้า
11data.Connect=""
12data.DatabaseName=dlg.ชื่อไฟล์
13data.RecordSource=""
14data รีเฟรช
15browser.Caption="เข้าถึงเบราว์เซอร์[" datal.DatabaseName "]"
16cunt=data.Database.TableDefs.Count
17listl.ชัดเจน
18ForI=0Tocunt-1'เพิ่มชื่อตารางลงในกล่องรายการ
19IfLeft(data.Database.TableDefs(I).Name,4)<>"Msys"แล้ว
20listl.Additemdata.Database.TableDefs(I).ชื่อ
21สิ้นสุดถ้า
22ต่อไปI
23label1.Visible=จริง
24list1.Visible=จริง
25list1.ListIndex=0
26แคน:
27จบย่อย
28SubCommand2_Click()'คลิกปุ่ม "ออก" ด้วยเมาส์
29สิ้นสุด
30จบซับ
31SubForm_Load()
32browser.Caption="เข้าถึงเบราว์เซอร์"
33grid1.ความสูง=3200
34grid1.Visibli=เท็จ
35list1.Visible=เท็จ
36label1.Visible=เท็จ
37จบซับ
38SubListl_Click()'กล่องรายการจุดเมาส์
39DimctAsInteger
40data1.RecordSource=listl.ข้อความ
41ct=data1.Database.TableDefs(list1.ListIndex).Fields.Count
42grid1.Cols=ct
43grid1.Row=0
44ForI=0Toct-1'เพิ่มแต่ละชื่อฟิลด์ในตารางที่แถวแรกของตาราง
45grid1.Col=I
46grid1.Text=data1.Database(data1.RecordSource),ฟิลด์(I).ชื่อ
47เน็กซ์ที
48data1.รีเฟรช
49data1.Recordset.MoveLast
50grid1.Rows=data1.Recordset.RecordCount 1
51data1.Recordset.MoveFirst
52grid1.Row=0
53WhileNotdata1.Recordset.EOF'อ่านข้อมูลลงในแต่ละเซลล์ของกริด
54grid1.Row=grid1.แถว 1
55ฟอริ=0ตค-1
56grid1.Col=I
57IfNotIsNull(data.Recordset(I).Value)แล้ว
58grid1.Text=data.Recordset(I).Value
59อื่น ๆ
60grid1.Text=""
61สิ้นสุดถ้า
62cellwidth=TextWidth(grid1.Text) 200
63Ifcellwidth>grid1.ColWidth(I)แล้ว
64gridl.ColWidth(I)=ความกว้างของเซลล์
65สิ้นสุดถ้า
66ถัดไปI
67data1.Recordset.MoveNext
68เวน
69grid1.Width=0
70Fori=0Toct-1'คำนวณความกว้างรวมของตาราง
71grid1.Width=gridl.Width gridl.ColWidth(I)
72ต่อไปI
73Ifgrid1.Width>scalewidthThen'If ความกว้างรวมของเส้นตารางมากกว่าความกว้างของหน้าต่าง
74grid1.Width=ความกว้างของมาตราส่วน
75สิ้นสุดถ้า
76grid1.Height=(gridl.Rows 2)*20*grid1.FontSize' คำนวณความยาวของตาราง
77Ifgrid1.Height>3200Then'If ความยาวของกริดอยู่นอกขอบเขต
78grid1.ความสูง=3200
79สิ้นสุดถ้า
80browser.Width=grid1.Width 300'ตั้งค่าความกว้างของหน้าต่าง
81grid1.Visible=จริง
82EndSub->