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

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

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

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

Private Sub cmdInsertRows_Click()
Dim rs As ADOCE.Recordset
Dim arb1 As Integer

  If connOpen = True Then

    Set rs = CreateObject("ADOCE.Recordset.3.0")
    On Error Resume Next
    rs.Open "TestTable", conn, adOpenKeyset, adLockOptimistic
    For arb1 = 1 To 5
      rs.AddNew
      rs.Fields("fldTxt") = "Data:" & CStr(arb1)
      rs.Fields("fldInt") = arb1
      rs.Update
    Next
    
    If conn.Errors.Count = 0 Then
      txtDB.Text = CStr(rs.RecordCount) & " rows were added to TestTable."
    Else
      DispErrors
      txtDB.Text = "There were errors adding rows to TestTable."
    End If
    
    'On Error GoTo 0
    'rs.Close
    connClose
  
  End If

End Sub

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

จากนั้นจะทำการทำการตรวจสอบข้อผิดพลาดที่เกิดขึ้น และแสดงผลออกมาทาง txtDB และจะสิ้นสุด การทำงาน เมื่อเกิดข้อผิดพลาด และสั่งปิดการติดต่อกับฐานข้อมูล เมื่อสิ้นสุดกระบวนการ

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

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