- - - - - - - - - - - - - - ผู้ให้การสนับสนุน- - - - - - - - - - - - - -

บทที่ 4 แสดงข้อมูลในตาราง

เมื่อเราได้ทำการเพิ่มข้อมูลเข้าสู่ตาราง เป็นที่เรียบร้อยแล้ว ต่อมาจะ เป็นการนำข้อมูลดังกล่าวขึ้นมาแสดง ผ่านทางการคลิกปุ่ม cmdListRows เพื่อให้มีการอ่านข้อมูล ขึ้นมาแสดงในช่องของ List1 ที่วางไว้

• ทำการดับเบิ้ลคลิกที่ปุ่ม cmdListRows และทำการป้อนโค้ด ลงในส่วนของ Sub cmdListRows_Click ตามตาราง

Private Sub cmdListRows_Click()
Dim rs As ADOCE.Recordset
Dim cnt As Integer
Dim strDisp As String
Dim arb2 As Integer

  If connOpen = True Then
    List1.Clear
    Set rs = CreateObject("ADOCE.Recordset.3.0")
    On Error Resume Next
    rs.Open "select * from TestTable", conn, adOpenForwardOnly, adLockReadOnly
    Do While Not rs.EOF
      strDisp = rs(0).Value & ": " & rs(1).Value
      List1.AddItem strDisp
      rs.MoveNext
    Loop
    cnt = rs.RecordCount
    rs.Close
    Set rs = Nothing
    txtDB.Text = cnt & " rows were listed in TestTable."
    On Error GoTo 0
  End If
  
  connClose

End Sub

การทำงานเริ่มต้นจาก การสั่งติดต่อกับฐานข้อมูลผ่านทางฟังก์ชั่น connOpen และเรียกใช้ Recordset ผ่านทางการสร้างออปเจค ด้วยฟังชั่น CreateObject แล้วใช้ เมธอด Open ของ Recordset เพื่อสั่งให้ดึงข้อมูล ทุกๆฟิลด์ จากตารางTestTable ขึ้นมา โดยใช้คำสั่ง SQL

จากนั้นจะทำการวนลูป เพื่อนำข้อมูลที่อยู่ใน rs (Recordset) มาแสดง โดยทำการเพิ่มรายการของข้อมูลลงใน List การวนลูป จะทำไปเรื่อยๆจนกระทั้งสิ้นสุด การอ่านข้อมูลจากตารางแล้ว จากนั้นจะรายงานผล จำนวนของข้อมูลที่ได้อ่านขึ้นมา ผ่านทาง txtDB และสั่งตัดการติดต่อกับฐานข้อมูล เป็นขั้นตอนสุดท้าย

• ทดสอบ Run และคลิกปุ่ม List Rows จะได้ผลดังรูป

รูปแสดง ผลการ Run โปรแกรม