Bài toán : cho CSDL quanlysinhvien.mdb ch a b ng SinhVien có c u trúc nh sau
MaSV Text HoSV Text TenSV Text Makhoa Text Ngaysinh Date/Time
Yêu c u : s d ng Adodc truy c p và làm vi c trên CSDL ó.
III.1, a Adodc vào ch ng trình và thi t k giao di n
• Vào menu Project/Components.. (Ctrl + T)
• Sau ó thi t k giao di n nh sau :
III.2, K t n i c s d li u Access thông qua Adodc
• Trong Tab General c a h p tho i Property pages
• Click nút Build ( Option ch n th 3), Trong c a s Data Link Properties, Tab Provider
o ch n m c : Microsoft.Jet 4.0 OLE DB Provider
o n Next, ho c n chuy n sang Tab Connection
• Click nút [ ] ch n CSDL Access mong mu n
• Chuy n sang Tab RecordSource
o Command Type : cho phép b n l a ch n ph ng th c s l y d li u là t ng (2-adCmdTable) hay t câu l nh truy v n SQL (1-adCmdText)
o Table or Stored Procedure Name : l a ch n tên b ng (Table) ho c tên truy n (Query)
III.3, Xu t thông tin thông qua Adodc
• B n ch n ô TextBox mu n a thông tin ra. Sau ó thi t l p 2 thu c tính : DataSource (Adodc) và DataFiled (Tên tr ng)
• Ti n hành vi c này v i t t c các Textbox còn l i
Khi ch y ch ng trình ta có k t qu nh sau :
III.4, Cú pháp các câu l nh di chuy n trên các b n ghi
• Di chuy n v b n ghi u tiên
Private Sub cmdDau_Click() Adodc1.Recordset.MoveFirst End Sub
• Di chuy n v b n ghi phía tr c b n ghi hi n hành
Private Sub cmdTruoc_Click()
Adodc1.Recordset.MovePrevious End If
End Sub
• Di chuy n v b n ghi phía sau b n ghi hi n hành
Private Sub cmdSau_Click()
If Adodc1.Recordset.AbsolutePosition < Adodc1.Recordset.RecordCount Then Adodc1.Recordset.MoveNext
End If End Sub
• Di chuy n v b n ghi cu i cùng
Private Sub cmdDau_Click() Adodc1.Recordset.MoveLast End Sub
• Vi t l nh xem b n ghi hi n hành và t ng s b n ghi (ví d : 2 / 28 )
Private Sub cmdXem_Click()
MsgBox Adodc1.Recordset.AbsolutePosition & _ " / " & Adodc1.Recordset.RecordCount End Sub
III.5, Cú pháp các câu l nh c p nh t d li u
Private Sub cmdThem_Click() Adodc1.Recordset.AddNew End Sub
Private Sub cmdSua_Click() Adodc1.Recordset.Update End Sub
Private Sub cmdXoa_Click() Adodc1.Recordset.Delete End Sub