นี่เป็นเพียงตัวอย่างแอปเพล็ต VB ง่ายๆ แต่มีคำหลักเหล่านี้: VB6.0, ADO, Access
สภาพแวดล้อม: Visual Basic 6.0 Enterprise Edition (ไม่ใช่เวอร์ชันที่ได้รับการปรับปรุง ไม่เช่นนั้นจะไม่มีการควบคุมที่จำเป็น)
ฐานข้อมูล: ฐานข้อมูล Access ฐานข้อมูลคือ xs.mbd ตารางในตัวคือ xj
ผลลัพธ์: VB ใช้ ADO เพื่อเชื่อมต่อกับฐานข้อมูลการเข้าถึง สอบถามข้อมูลทั้งหมดในตาราง xj แล้วส่งผลลัพธ์ผลลัพธ์แบบสอบถามไปยังหน้าต่างในวงวน
รหัส:
Private Sub Form_Click()Dim db As New ADODB.Connection, RS As New ADODB.Recordset 'วัตถุการเชื่อมต่อ ADO และชุดบันทึก Dim strSQL As String 'SQL string db.ConnectionString = "provider=Microsoft.Jet.OLEDB.4.0;Data source =" & App.Path & "/xs.mdb" 'การเชื่อมต่อฐานข้อมูล db.Open 'เปิดฐานข้อมูล strSQL = "เลือก * จาก xj" 'สตริง SQL RS.Open strSQL, 3, 1 'ค้นหาตารางข้อมูล ทำในขณะที่ไม่ใช่ RS.EOF 'วนซ้ำผลลัพธ์การสืบค้น พิมพ์ RS! Gender; RS! พิมพ์ผลลัพธ์ผลลัพธ์ในหน้าต่าง RS.MoveNext 'ย้ายบันทึกลง LoopRS.Close 'ปิดชุดบันทึก Set RS = NothingEnd Sub
ข้างต้นเป็นเนื้อหาทั้งหมดของบทความนี้ ฉันหวังว่าทุกคนจะชอบมัน