บทเรียนภาษาเบสิกและกรณีศึกษา


	ภาษาเบสิก และกรณีศึกษา

เว็บเพจสำรอง (Backup webpages) : thaiall.com | thaiabc.com
ปรับปรุง : 2557-01-16 (ส่วนรายละเอียดของวีบี)
กลับสารบัญ (Back to Content)

ภาษาโปรแกรม (Program Language) # คือ วิธีการมาตรฐานในการสื่อสารสำหรับแสดงคำสั่งไปยังคอมพิวเตอร์ ภาษาโปรแกรมกำหนดไวยากรณ์และการตีความหมายจากโปรแกรมคอมพิวเตอร์ที่เขียนขึ้น ภาษาโปรแกรมทำให้โปรแกรมเมอร์สามารถระบุอย่างชัดเจนถึงข้อมูลที่คอมพิวเตอร์จะทำงาน และวิธีการที่คอมพิวเตอร์จะประมวลผลข้อมูลเหล่านั้น
ภาษาเบสิค (Basic Language) คือ ภาษาคอมพิวเตอร์ที่พัฒนาโดยจอห์น เคมเมนี (John Kemeny) และ ธอมัส เคิรตส์ (Thomas Kurtz) แห่งวิทยาลัยดาร์ทเมิร์ท (Dartmouth College) ในปีค.ศ. 1963
วิชวลเบสิก (Visual Basic) คือ ภาษาคอมพิวเตอร์สำหรับสร้างโปรแกรมประยุกต์ (Application) ที่ใช้งานได้อย่างหลากหลายบนระบบปฏิบัติการวินโดว์ และสามารถเรียกใช้วัตถุที่ตัวแปลภาษาเตรียมไว้ให้บริการ Programming :: VB :: VB.NET :: ASP.NET :: GWBasic :: ASP ::

ตอนที่ 3 :

ระบบฐานข้อมูลด้วย DAO

Download : chap201.zip

บทที่ 201 : เรียกระเบียนแรก และกดปุ่มเพื่อแสดงระเบียนถัดไปด้วย DAO + JET

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

ในการเขียนโปรแกรมหากประกาศตัวแปรแบบ workspace และ database แล้วมีปัญหา แสดงว่าไม่ได้เรียก DAO library ขึ้นมา โดยเลือก Project จาก menu bar แล้วเลือก References จากนั้นทำเครื่องหมายเลือก Microsoft DAO 3.51 Object Library ก็จะทำให้เรียกคำสั่งเกี่ยวกับฐานข้อมูลมาใช้ได้ โดยโปรแกรมนี้จะเรียกข้อมูลมาแสดงทีละระเบียน หากกดปุ่มก็จะแสดงข้อมูลในระเบียนต่อไปขึ้นมา

ขั้นตอน

Source code ที่ใช้งาน

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

บทที่ 202 : เพิ่มระเบียนใหม่ต่อท้ายแบบ DAO recordset และแสดงใน msgbox

ปรับปรุงมาจากโปรแกรม 201 เขียนง่ายไม่ซับซ้อน มีการติดต่อแบบ DAO เช่นเดิม แต่มีการตรวจสอบความถูกต้องของข้อมูลมากขึ้น เช่น ป้องกันการพิมพ์ชื่อซ้ำ เพิ่มรหัสระเบียนอัตโนมัติ และสร้างโปรแกรมย่อย loadlast มาใช้งาน เพราะต้องเรียกใช้ 2 จุด เพื่อประโยชน์ในการตรวจสอบ จึงอ่านข้อมูลไปแสดงใน msgbox ให้เห็นผลของการเพิ่มข้อมูล

ขั้นตอน

Source code ที่ใช้งาน

Public nwind As Workspace
Public dbnwind As Database
Public catrs As Recordset

Private Sub Command1_Click()
SQL = "select categoryid,categoryname as cn from categories where categoryname = '" & Text2 & "'"
Set catrs = dbnwind.OpenRecordset(SQL, dbOpenSnapshot, dbReadOnly)
If catrs.EOF And Len(Text2) > 0 Then
  ' SQL = "insert into categories (categoryid,categoryname) values(" & Text1 & ",'" & Text2 & "')"
  ' dbnwind.Execute (SQL)
  Dim rs As Recordset
  Set rs = dbnwind.OpenRecordset("categories")
  rs.AddNew
  rs!categoryid = Text1
  rs!categoryname = Text2
  rs.Update
Else
  MsgBox "invalid on categoryname"
End If
Call loadlast
End Sub

Private Sub Command2_Click()
txt = ""
catrs.Requery
Do While Not catrs.EOF
  txt = txt & catrs.Fields("categoryid") & " " & catrs.Fields("cn") & Chr(13)
  catrs.MoveNext
Loop
MsgBox txt
End Sub

Private Sub Form_Load()
Set nwind = DBEngine.Workspaces(0)
Set dbnwind = nwind.OpenDatabase("C:\Program Files\Microsoft Visual Studio\VB98\Nwind.mdb", False, False)
Text1.Enabled = False
Call loadlast
End Sub

Sub loadlast()
Set catrs = dbnwind.OpenRecordset("select categoryid,categoryname as cn from categories", dbOpenSnapshot, dbReadOnly)
catrs.MoveLast
Text1 = catrs.Fields("categoryid") + 1
Text2 = ""
End Sub

แบบฝึกหัด
? เปลี่ยนจากตาราง categories เป็นตารางอื่น
? เปลี่ยนการแสดงข้อมูลใน msgbox เป็นใน form ใหม่
? เปลี่ยน หรือเพิ่ม หน้าที่จาก addnew เป็น edit หรือ delete

Download : vbnwind.zip

Program screen

Database screen

บทที่ 203 : เพิ่มระเบียนใหม่ต่อท้ายแบบ Data control + DAO recordset

vbnwind.exe ที่ให้ download จะคลาย zip ลงห้อง c:\program files\vbnwind สามารถเรียก vbnwind.vbp มาทดสอบได้ โดยมี form ทั้งหมด 10 ฟอร์ม แต่ฟอร์มที่น่าสนใจคือ add_cat.frm ส่วนฟอร์มอีก 8 ฟอร์ม ใช้ wizard สร้างขึ้นมาอย่างง่าย ๆ ส่วน main ก็ปรับปรุงให้มีขนาดที่ 800 * 600

Source code ที่ใช้ใน add_cat.frm

Public z_addnew As Integer
Public nwind As Workspace
Public dbnwind As Database
Public catrs As Recordset
Private Sub Command1_Click(Index As Integer)
If Index <> 6 And Index <> 9 Then z_addnew = 0
If z_addnew = 0 Then
Command1(9).Enabled = False
Command1(10).Enabled = False
Else
Command1(9).Enabled = True
Command1(10).Enabled = True
End If
Text2.Enabled = False
Text3.Enabled = False
OLE1.Enabled = False
Text2.Appearance = 0
Text3.Appearance = 0
Select Case Index
Case 0: Unload Me
Case 1: Data1.Recordset.MoveFirst
Case 2:
Data1.Recordset.MovePrevious
If Data1.Recordset.BOF Then Data1.Recordset.MoveLast
Case 3:
Data1.Recordset.MoveNext
If Data1.Recordset.EOF Then Data1.Recordset.MoveFirst
Case 4: Data1.Recordset.MoveLast
Case 5:
Set catrs = dbnwind.OpenRecordset("categories")
MsgBox catrs.RecordCount
Case 6:
Text2.Enabled = True
Text3.Enabled = True
Text2.Appearance = 1
Text3.Appearance = 1
OLE1.Enabled = True
Data1.Recordset.AddNew
z_addnew = 1
Command1(9).Enabled = True
Command1(10).Enabled = True
Case 7:
Set catrs = dbnwind.OpenRecordset("select * from products where categoryid =" & Text1, dbOpenSnapshot, dbReadOnly)
If catrs.EOF Then
Data1.Recordset.Delete
Else
MsgBox "พบข้อมูลในแฟ้ม products จำนวน " & catrs.RecordCount & " ระเบียน" & Chr(13) & "จึงไม่สามารถลบระเบียนนี้ (Can not delete)"
End If
Data1.Recordset.MoveNext
If Data1.Recordset.EOF Then Data1.Recordset.MoveFirst
Case 8:
Text2.Enabled = True
Text3.Enabled = True
Text2.Appearance = 1
Text3.Appearance = 1
OLE1.Enabled = True
Command1(10).Enabled = True
Case 9:
If z_addnew = 1 Then Data1.Recordset.CancelUpdate
Case 10:
Data1.Refresh
End Select
End Sub

Private Sub Form_Load()
Set nwind = DBEngine.Workspaces(0)
Set dbnwind = nwind.OpenDatabase("C:\Program Files\Microsoft Visual Studio\VB98\Nwind.mdb", False, False)
'Set catrs = dbnwind.OpenRecordset("select categoryid,categoryname as cn from categories", dbOpenSnapshot, dbReadOnly)
With Me
.Height = 8500
.Width = 12000 - 1200
.Left = (Screen.Width - 12000) / 2 + 1200
.Top = (Screen.Height - 9000) / 2 + 255
End With
Text1.Appearance = 0
Text2.Appearance = 0
Text3.Appearance = 0
Command1(9).Enabled = False
Command1(10).Enabled = False
End Sub

Private Sub OLE1_DblClick()
OLE1.InsertObjDlg
End Sub

แบบฝึกหัด
? เปลี่ยนจากตาราง categories เป็นตารางอื่น
? เพิ่มฟอร์มปรับปรุงข้อมูล