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

บทที่ 4 สร้างฐานข้อมูล

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

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

Private Sub cmdCreateDB_Click()
Dim rs, rc
  
  If DBExists(gDBFileSpec) = True Then
    rc = MsgBox("Overwrite database " & gDBFileSpec & " ?", vbYesNoCancel, "Database already exists")
    If rc = vbYes Then
      connClose
      FileSystem1.Kill gDBFileSpec
      txtDB.Text = gDBFileSpec & " deleted!"
    Else
      Exit Sub
    End If
  End If

  On Error Resume Next
  Set rs = CreateObject("ADOCE.Recordset.3.0")
  rs.Open "CREATE DATABASE '" & gDBFileSpec & "'"
  rs.Close
  Set rs = Nothing
  On Error GoTo 0
  
  If DBExists(gDBFileSpec) = True Then
    txtDB.Text = gDBFileSpec & " created!"
  End If
End Sub

การทำงานเริ่มจากการตรวจสอบ ไฟล์ฐานข้อมูลเดิม ว่ามีอยู่หรือไม่ โดยใช้ฟังก์ชั่น DBExists หากมีอยู่ก่อนหน้าแล้ว จะมีหน้าต่างสอบถามว่า จะทำการสร้างไฟล์ฐานข้อมูลใหม่ ทับของเดิมหรือไม่ ถ้าผู้ใช้ทำการคลิกเลือกปุ่ม Yes จะทำให้มีการหยุดการการติดต่อกับ ฐานข้อมูล โดยใช้ฟังก์ชั่น connClose และทำการลบไฟล์ฐานข้อมูลเดิมด้วยเมธอด Kill ของ FileSystem1 จากนั้นก็รายงานผลการทำงานว่าไฟล์ ฐานข้อมูลได้ถูกลบแล้ว ผ่านทาง txtDB.Text

สำหรับการสร้างไฟล์ฐานข้อมูลใหม่ จะกระทำผ่านทาง การสร้าง Recordset ขึ้นมา และใช้คำสั่ง SQL ในการสร้างไฟล์ใหม่ โดยใช้คำสั่ง "CREATE DATABASE 'ชื่อไฟล์ฐานข้อมูล' " จากนั้น Recordset จะถูกปิดลง สุดท้ายจะเป็นการตรวจสอบว่า ไฟล์ฐานข้อมูลได้ถูกสร้างหรือไม่ หากสร้างสำเร็จ จะแสดงข้อความออกทาง txtDB.Text

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

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