VII. PHẦN TỬ SELECT
1. ĐỐI TƯỢNG CONNECTION
Đối tượng này được dùng để tạo một kết nối tới một cơ sở dữ liệu. Để tạo một kết nối với cơ sở dữ liệu trước tiên phải tạo ra một biến Connection sau đĩ sử dụng phương thức Open của đối tượng này.
<%
Set biến_đối_tượngServer=CreateObject(“ADODB.Connection”) Biến_đối_tượng.Open “DSN=Mydatabase”
%>
MyDataBase là tên một cơ sở dữ liệu nguồn (DSN) mà đã dược tạo ra trước đĩ.
Các phương thức của đối tượng Connection:
Open: Mở một cơ sở dữ liệu đã được kết nối
Close: Đĩng một cơ sở dữ liệu đã mở
Execute: Thực hiện một truy vấn trên cơ sở dữ liệu được kết nối
BeginTrans: Bắt đầu một Transaction mới
ComitTrans: Lưu giữ Transaction khi cĩ sự thay đổi
RollBackTrans: Hủy bỏ sự Transaction để bắt đầu một Transaction mới Connection Command Errors Fields Parameters Recordset
OpenSchema: Cho phép hiển thị cơ sở dữ liệu như bảng, cột ở phía SERVER
Ví dụ 1: Xố tất cả các sinh viên cĩ tên là Nam trong bảng sinhviên của cơ sở dữ liệu SV.
<%
Set conn=Server.CreateObject(“ADODB.Connection”) conn.Open “DSN=SV”
conn.Execute “DELETE FROM sinhvien WHERE name=’Nam’ ”
%>
Ví dụ 2: Giả sử trong cơ sở dữ liệu cĩ bảng mon_thi bao gồm các trường:
tenmom (tên mơn), sodvht (số đơn vị học trình), ngaythi (ngày thi), thoigian (thời gian thi), giaovien (giáo viên bộ mơn), dvpt (đơn vị phụ trách). Ta muốn hiện thị lên trình duyệt bảng danh sách cĩ dạng:
Danh sách mơn thi
Mơn thi Thời gian Ngày thi Giáo viên bộ mơn
Ta cĩ thể viết đoạn mã như sau: <%@ Language=VBScript%>
<%
Sub OpenConnection (ByRef con)
Set con = Server.CreateObject("ADODB.Connection") con.Open "DSN"
End Sub
%> <html> <head>
<title>Danh sach mon thi</title> </head>
<%
OpenConnection con
Response.Write "<BODY>" '---
Set rs = con.Execute(SQL)
Response.Write "<TABLE COLS=2 WIDTH='100%' CELLSPACING=0 CELLPADDING=0 BORDER=0>"
Response.Write "<TR><TD COLSPAN=2 WIDTH='100%' ALIGN=LEFT BGCOLOR='DarkBlue'><FONT Face='Tahoma' COLOR=White SIZE=4>" Response.Write "<FONT FACE='.VnTimeH' SIZE=4
COLOR='WHITE'>   <B>Danh sách các mơn thi</B></FONT><BR></TD>"
Response.Write "<TR><TD COLSPAN=2 WIDTH='100%' ALIGN=LEFT><HR></TD></TR>"
Response.Write "</TABLE>" If rs.EOF Then
Response.Write "<P>"
Response.Write " No record found in the database... Back to <A HREF='mt.asp'>Cap nhat mon thi</A>"
Response.Write "</P>" Else
Response.Write "<TABLE WIDTH='100%' CELLSPACING=0 CELLPADDING=0 BORDER=1>"
Response.Write "<TR><TD align=center><font face='.VnTimeH'
size=+1>Mơn thi</TD><TD align=center><font face='.VntimeH' size=+1>" Response.Write "Thời gian (phút)</TD><TD align=center><font
face='.VnTimeH' face=+1 size=+1>Ngày thi</TD><TD align=center><font face='.VnTimeH' size=+1>Giáo viên dạy</td></TR>"
While Not rs.EOF
Response.Write "<TR><TD>"
Response.Write "<font face='.VnTime' size=+1>" Response.Write rs("Tenmon")
Response.Write "</font>"
Response.Write "</TD><TD align=center>" Response.Write "<font face='.VnTime' size=+1>" Response.Write rs("Thoigian")
Response.Write "</font>"
Response.Write "</TD><TD align=center>" Response.Write "<font face='.VnTime' size=+1>" Response.Write rs("ngaythi")
Response.Write "</font>" Response.Write "</TD><TD>"
Response.Write "<font face='.VnTime' size=+1>" Response.Write rs("giaovien") Response.Write "</font>" Response.Write "</TD></TR>" rs.MoveNext Wend end if Response.Write "</Table>" Response.Write "<Table>" Response.Write "<TR><TD COLSPAN=2 WIDTH='100%'ALIGN=LEFT><HR></TD></TR>" Response.Write "<TR><TD COLSPAN=2
WIDTH='100%'ALIGN=LEFT> Back to <A HREF='mt.asp'>Cap nhat mon thi</A></TD></TR>"
Response.Write "</TABLE>" %>
</BODY> </HTML>