Bài thực hành số 4: ADO
BAI TAP LAP TRINH MANG!
Bài thực hành số 4: ADO
1. Tạo CSDL HOSO.MDB và thiết kế bảng SINHVIEN có cấu trúc như sau:
2. Thiết kế trang DEFAULT.
ASP cho phép hiển thị danh
sách SV như sau:
3. Nhấn thêm cho phép thêm một SV mới(Hình trái)
4. Nhấn nút SỬA cho phép sửa thông tin của SV đã chọn (Hình phải)
GV: LÊ ANH TÚ - Bộ môn Mạng & Truyền thông – Khoa CNTT ĐH Thái Nguyên 1
Bài thực hành số 4: ADO
5. Nhấn nút XOÁ cho phép xoá những SV đã được đánh dấu
Yêu cầu SV nắm vững các kiến thức sau:
- Sử dụng và truy xuất các điều khiển trên FORM
- Phần lập trình ADO và truy vấn dữ liệu bằng Recordset
GV: LÊ ANH TÚ - Bộ môn Mạng & Truyền thông – Khoa CNTT ĐH Thái Nguyên 2
Bài thực hành số 4: ADO
HƯỚNG DẪN CHI TIẾT
Mô hình liên kết các trang
Default.asp
Xuly_Default.asp
Them.asp Sua.asp Xoa.asp
Xuly_Them.asp Xuly_Sua.asp
Connection.inc
Default.asp
New Page 1
DANH SACH SINH VIEN
XOA
SUA
MA SV
HO VA TEN
GIOI TINH
NGAY SINH
SO THICH
DIA CHI
GV: LÊ ANH TÚ - Bộ môn Mạng & Truyền thông – Khoa CNTT ĐH Thái Nguyên 3
Bài thực hành số 4: ADO
Xuly_Default.asp
Bài thực hành số 4: ADO
Nam
Nu
Ngay sinh
Ngay
thang
nam
So thich
Du lich
Ca nhac
The thao
Nau an
Xem TV
Ve
Mua sam
Tin hoc
Dia chi
Xuly_Them.asp
Bài thực hành số 4: ADO
'ghi thong tin tu form vao CSDL
ngaysinh=Cdate(request.form("optNgay") & "/" & request.form("optThang") & "/" &
request.form("OptNam"))
rs.addnew
rs.fields("maSV")=Ucase(trim(request.form("txtMaSV"))) 'Ham Ucase doi chu thuong thanh chu HOA
rs.fields("hoten")=request.form("txthoten")
if request.form("rdoGT")="Nam" then
rs.fields("Gioitinh")=TRUE
else
rs.fields("Gioitinh")=FALSE
end if
rs.fields("Ngaysinh")=Ngaysinh
rs.fields("Sothich")= request.form("chksothich")
rs.fields("Diachi")=request.form("txtaDiachi")
rs.update
rs.close
response.redirect("Default.asp")
End if
%>
Sua.asp
Ho va ten
SUA THONG TIN CA NHAN
Ma SV
Ho va ten
Gioi tinh
Nam
Nu
Ngay sinh
Ngay
thang
GV: LÊ ANH TÚ - Bộ môn Mạng & Truyền thông – Khoa CNTT ĐH Thái Nguyên 6
Bài thực hành số 4: ADO
nam
So thich
checked >Du lich
checked >Ca nhac
checked >The thao
checked > Nau an
checked >Xem TV
checked > Ve
checked >Mua sam
checked >Tin hoc
Dia chi
Xuly_Sua.asp
Bài thực hành số 4: ADO
if request.form("ChkXoa")(i)"" then
strSQL="Select * from Sinhvien Where MaSV=' " & ucase(trim(request.form("ChkXoa")(i))) & " ' "
rs.open strSQL,Conn,1,3
rs.delete
rs.close
End if
next
response.redirect("Default.asp")
%>
GV: LÊ ANH TÚ - Bộ môn Mạng & Truyền thông – Khoa CNTT ĐH Thái Nguyên 8