Các thao tác với CSDL
Để đọc dữ liệu, trong một hoặc nhiều bảng, ta dựng cõu lệnh Select, sau đú thực hiện như phần 2.3 ở trờn. Vớ dụ: Hiển thị Toàn bài hát, Muốn tác giả và tòan ca sĩ thể hiện ra màn hình dưới dạng bảng. B1: Tạo connection ...
Để đọc dữ liệu, trong một hoặc nhiều bảng, ta dựng cõu lệnh Select, sau đú thực hiện như phần 2.3 ở trờn.
Vớ dụ: Hiển thị Toàn bài hát, Muốn tác giả và tòan ca sĩ thể hiện ra màn hình dưới dạng bảng.
B1: Tạo connection
B2: Mở kết nối
B3: Tạo Recordset
B4: Thực hiện cõu lệnh select
B5: Hiển thị ra màn hình.
Thực hiện như phần 2.3, nhưng thay câu lệnh "Select * From ...." bằng câu lệnh "Update..."
Vớ dụ: Sửa năm sáng tác của bài hỏt "Tình Ca", tỏc giả "Hoàng Việt" thành 1/1/1957.
<%
'Bước 1:Tạo đối tượng Connection và mở kết nối đến Cơ sở dữ liệu
Dim Cn
Set Cn=Server.CreateObject("ADODB.Connection")
Cn.ConnectionString="Provider=Microsoft.Jet.oledb.4.0; Data Source = " &
Server.Mappath("BaiHat.mdb")
Cn.Open
'Bước 2: Khai báo và tạo đối tượng Recordset
Dim Rs
Set Rs = Server.CreateObject("ADODB.Recordset")
'Bước 3: Thực hiện câu lệnh SQL, để lấy kết quả trả về.
Rs.Open "Update tblBaiHat set NamSangTac='1/1/1957' where
TenBai='Tình Ca' and TacGia='Hoàng Việt'", Cn, 3,3
Rs.Close
Cn.Close
Set Rs = Nothing
Set Cn = Nothing
%>
Thực hiện như phần 2.3, nhưng thay câu lệnh "Select * From ...." bằng câu lệnh "Insert Into ..."
Vớ dụ: .
<html>
<body>
<title> Hiển thị bài hát, tác giả, ca sĩ ra màn hình version 1.0</title>
<%
'bước 1
Dim Cn
Set Cn = Server.CreateObject("ADODB.Connection")
Cn.ConnectionString = "Provider=Microsoft.jet.oledb.4.0; Data source=" &Server.Mappath("Music.mdb")
'Bước2: Mở kết nối
Cn.Open
'Bước 3: Tạo recordset
Dim Rs
Set Rs = Server.CreateObject("ADODB.Recordset")
'Bước 4: Thực hiện câu lệnh Select
Rs.open "select TenBaiHat, CaSiTheHien, MaTacGia from tblBaiHat", Cn,3,3
Response.write("<table border='1'>")
'Bước 5: Lấy dữ liệu từ RS và hiển thị ra màn hình
Do While Not Rs.Eof
Response.write("<tr>")
Response.write("<td>" & Rs("TenBaiHat") & "</td>")
Response.write("<td>" & Rs("CaSiTheHien")& "</td>")
Response.write("<td>" &Rs("MaTacGia") & "</td>")
Response.write("</tr>")
Rs.MoveNext 'Xuống dòng để in bản ghi tiếp theo
loop
Response.write("</table>")
'Bước 6: Giải phóng đối tượng
Rs.Close
Cn.Close
Set Rs=Nothing
Set Cn = Nothing
%>
</body>
</html>
Ví dụ 2: Hiển thị toàn bài hát khi chọn một tác giả trong danh sách
|
| <html><title> Hiển thị toàn bài hát, năm sáng tác</title><body><form name="form1" action="HienThiBaiHatCuaTacGia.asp" method="Post"><% 'bước 1 Dim Cn Set Cn = Server.CreateObject("ADODB.Connection")Cn.ConnectionString = "Provider=Microsoft.jet.oledb.4.0; Data source=" &Server.Mappath("Music.mdb") Cn.Open 'Bước 2: Tạo recordset Dim Rs Set Rs = Server.CreateObject("ADODB.Recordset") 'Bước 3: Thực hiện câu lệnh Select Rs.Open "Select Distinct(maTacGia) from tblBaiHat", Cn,3,3 Response.write("<select name='dsMaTacGia' size='1'>") Do While Not RS.Eof response.write("<option value='" & rs("MaTacGia") & "'>" & rs("MaTacGia") &"</option>") Rs.MoveNext loop Response.write("</select>") '------------------------------------- 'Tạo button Response.write("<input type='submit' value='Hiển thị' name='btnSubmit'>") 'Bước 4: kiểm tra xem người dựng cứ chọn một tác giả và nhấn "Hiển thị" khung. 'Nếu hiển thị ra màn hình Dim MaTG MaTg = Request.Form("dsMaTacGia") If MaTg <> "" Then 'Bước 5: Tạo recordset thứ hai và hiển thị Dim Rs2 Set Rs2 = Server.CreateObject("ADODB.Recordset") Rs2.Open "Select TenBaiHat, NamSangTac from tblBaiHat where MaTacGia='" &MaTg &"'",Cn,3,3 'Bước 6: Hiển thị ra màn hình Response.write("<table border='1'>") Do While Not Rs2.Eof response.write("<tr>") response.write("<td>" & Rs2("TenBaiHat")) response.write("<td>" & Rs2("NamSangTac")) Rs2.MoveNext Loop Response.write("</table>") Rs2.Close Set Rs2= nothing End If Rs.Close Cn.Close Set Rs = nothing set Cn = Nothing%></form></body></html> |
Thực hiện như phần 2.3, nhưng thay câu lệnh "Select * From ...." bằng câu lệnh "Delete From ..."
Vớ dụ: .
