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

บทที่ 4 ลบข้อมูลจากในตาราง

ขั้นตอนนี้จะเป็นการสั่งลบข้อมูล ที่อยู่ในตารางออกไป ผ่านทางการเรียกใช้งานฟังก์ชั่น ExecSQL ที่เราได้เขียนขึ้นมา

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

Private Sub cmdDeleteRows_Click()
  
  ExecSQL "delete from TestTable", "All rows in TestTable were deleted.", "Err: the rows in TestTable were not deleted."

End Sub

การทำงานจะทำผ่านทางการเรียกใช้งานฟังก์ชั่น ExecSQL เพื่อสั่งให้ทำงานตามคำสั่ง SQL เพื่อลบ ทุกๆข้อมูล ในตาราง TestTable ออกไป (คำสั่ง SQL ในที่นี้จะเป็นคำสั่ง "delete from TestTable") โดยมีการส่งข้อความสำหรับรายงานผล ไปด้วย เพื่อใช้ในการแสดงผลการทำงาน เมื่อทำงานตาม ฟังก์ชั่นได้สำเร็จหรือไม่สำเร็จ ก็จะแสดงข้อความที่เหมาะสม ออกมารายงาน ให้ทราบ

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

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

จะสังเกตุได้ว่า รายการใน List1 ยังคงอยู่ ให้คุณทำการคลิกปุ่ม List Rows ใหม่ จะปรากฏว่า รายการทั้งหมดจะไม่มีเหลือ เพราะเราได้ทำการลบไปก่อนหน้านี้แล้ว