โค้ด vb6 ต่างๆ เช่น เชื่อมต่อฐานข้อมูล, VB อินเตอร์เฟสฮาร์ดแวร์ , VB ประยุกต์(miscellaneous) เยี่ยม

Private Sub Form_Load()
	Data1.Connect = "access"
	Data1.DatabaseName = "My Documents\Database2.mdb"
End Sub


Private Sub Form_Activate()
	Data1.RecordSource = "select * from data"
	Data1.Refresh
	If Not Data1.Recordset.EOF Then   << มันขึ้น ERROR ตรงนี้อ้ะครับ ต้องทพยังไง
	With Data1.Recordset
	Text1.Text = !fname
	Text2.Text = !lname
	Text3.Text = !unumber
	Text4.Text = !id
	End With
	End If
End Sub


Private Sub Command3_Click()
	Data1.Recordset.AddNew
End Sub


Private Sub Command1_Click()
	With Data1.Recordset
	!id = Text4.Text
	!fname = Text1.Text
	!lname = Text2.Text
	!unumber = Text3.Text
	.Update
	End With
End Sub

 
Private Sub Command2_Click()
	Data1.RecordSource = "select  * from data where id = " & Text1.Text & ""
	Data1.Refresh
	If Not Data1.Recordset.EOF Then
	Data1.Recordset.Delete
	End If
End Sub

 
Private Sub Command4_Click()
	Unload Me
	End
End Sub
 

Private Sub Command5_Click()
	Data1.Recordset.Edit
End Sub
 
 
Private Sub Command6_Click()
	On Error GoTo Err
	Data1.Recordset.MovePrevious
	If Not Data1.Recordset.EOF Then
	With Data1.Recordset
	Text1.Text = !fname
	Text2.Text = !lname
	Text3.Text = !unumber
	Text4.Text = !id
	End With
	End If
	Err:
End Sub

 
Private Sub Command7_Click()
	On Error GoTo Err
	Data1.Recordset.MoveNext
	If Not Data1.Recordset.EOF Then
	With Data1.Recordset
	Text1.Text = !fname
	Text2.Text = !lname
	Text3.Text = !unumber
	Text4.Text = !id
	End With
	End If
Err: