Bài 5. BÀI GI NG TH C HÀNH MÔN NH P MÔN CÔNG NGH PH N M MẢ Ự Ậ Ệ Ầ Ề
Bài 5.K t n i VB v i MS Access thông qua côngế ố ớ
ngh ADO ệ
(ti p theo)ế
M c đíchụ
Trong bài th c hành này, b n s làm quen v i cách xây d ng m t ng d ng VBự ạ ẽ ớ ự ộ ứ ụ
t ng tác v i CSDL Access thông qua s d ng công ngh ADOươ ớ ử ụ ệ .
Yêu c uầ
Đã n m đ c các khái ni m c b n v xây d ng ng d ng b ng VBắ ượ ệ ơ ả ề ự ứ ụ ằ
S d ng đ c h qu n tr CSDL Accessử ụ ượ ệ ả ị
V n đ liên quanấ ề
Thi t k CSDL b ng Accessế ế ằ
K t n i CSDL Access thông qua ADOế ố
Th i gian đ hoàn t t bài th c hành: 90 phútờ ể ấ ự
1
Bài 5. BÀI GI NG TH C HÀNH MÔN NH P MÔN CÔNG NGH PH N M MẢ Ự Ậ Ệ Ầ Ề
Bài t p 5.1.ậThi t k CSDL Accessế ế
M c đích: Xây d ng CSDLụ ự
1. M ng d ng Microsoft Access ở ứ ự
2. Thi t k CSDL, đ t tên là THUCDON.MDB, có c u trúc g m 1 b ng THUCDON nhế ế ặ ấ ồ ả ư
sau:
THUCDON
STT Tên tr ngườ Ki u d li uể ữ ệ Ghi chú
1 MaMonAn Text (7) Primary Key
2 TenMonAn Text (50) Required
3 Dongia Text(15)
3. Đi n m t s record thông tin vào b ng d li u nàyề ộ ố ả ữ ệ
MaMonAn TenMonAn Dongia
MA1 Bún bò 5000
MA2 H tíuủ7000
MA3 C m s nơ ườ 6000
MA4 Phở4000
4. L u thưông tin
2
Bài 5. BÀI GI NG TH C HÀNH MÔN NH P MÔN CÔNG NGH PH N M MẢ Ự Ậ Ệ Ầ Ề
Bài t p 5.2.ậThi t k giao di nế ế ệ
M c đích: H c cách thi t k form theo m uụ ọ ế ế ẫ
1. Thieát keá form theo maãu döôùi ñaây
Caùc ñoái töôïng treân Form ñöôïc ñaët teân (thuoäc tính Name) nhö trong
hình treân
Löu yù: ñoái töôïng ListThucDon vaø ListDuocChon laø ListBox
3
ListDuocChon
ListThucDon
cmdTinhTien
cmdThoat
txtThanhTien
cmdChon
cmdKhong
Bài 5. BÀI GI NG TH C HÀNH MÔN NH P MÔN CÔNG NGH PH N M MẢ Ự Ậ Ệ Ầ Ề
Bài t p 5.3.ậK t n i Visual Basic v i Accessế ố ớ
M c đích: Th c hi n các b c làm vi c đ k t n i Access v i VBụ ự ệ ướ ệ ể ế ố ớ
Ghi nh :ớ
Các b c làm vi c v i CSDLướ ệ ớ
1. Ch n công ngh s d ng (DAO, ADO…)ọ ệ ử ụ
2. M k t n i v i CSDLở ế ố ớ
3. Chu n b câu l nh SQLẩ ị ệ
4. M RecordSet t ng ng v i câu l nh SQL trên (hay nói cáchở ươ ứ ớ ệ
khác, RecordSet s ch a k t qu tr v khi th c thi câu l nh SQL)ẽ ứ ế ả ả ề ự ệ
5. Di chuy n con tr c a RecordSet v v trí đ u tiênể ỏ ủ ề ị ầ
6. Duy t qua t ng giá tr c a RecordSet, x lý d li u theo yêu c uệ ừ ị ủ ử ữ ệ ầ
7. Đóng k t n i v i CSDLế ố ớ
1. Vào m c ụProject -> References -> Ch n và đánh d u vào m cọ ấ ụ Microsoft ActiveX Data
Objects 2.6 Library.
L u ýư: không ch n nh m m c ọ ầ ụ Microsoft ActiveX Data Objects 2.5 (ho c 2.1…),ặ cũng
nh b o đ m t t c các m c ư ả ả ấ ả ụ Microsoft DAO 3.6 Object Library, Microsoft DAO 3.51 Object
Library… không đ c ch n.ượ ọ
4
Bài 5. BÀI GI NG TH C HÀNH MÔN NH P MÔN CÔNG NGH PH N M MẢ Ự Ậ Ệ Ầ Ề
5. Khai baùo bieán Connection laø bieán toaøn cuïc trong phaàn General (treân
cuøng cuûa file)
Dim Cn As ADODB.Connection
6. Vi t hàm x lý s ki n ế ử ự ệ Load cho đ i t ng ố ượ Form1
(B m đúp (double click) trên form, VB s t đ ng thêm hàm x lý s ki n)ấ ẽ ự ộ ử ự ệ
Private Sub Form_Load()
Dim Rs As ADODB.Recordset
Dim strSQL As String
‘Khoi tao moi mot doi tuong Connection
Set Cn = new ADODB.Connection
Cn.ConnectionString = “Provider=Microsoft.Jet.OLEDB.4.0;
Data Source = Thucdon.mdb”
Cn.Open
‘Thuc thi cau lenh SQL de lay tat ca Ten mon an co trong CSDL
' Phan lay du lieu dua vao listbox
strSQL = "Select TENMONAN from THUCDON"
Set Rs = new ADODB.Recordset
Rs.Open strSQL, Cn, adOpenStatic, adLockOptimistic
If (Not Rs.BOF) Then
Rs.MoveFirst
While (Not Rs.EOF)
5