Hiển thị toàn bộ tên nhà cung cấp (CompanyName) trong bảng Suppliers
Danh sach nha cung cap <%
Dim Conn, Rs
'// Tạo đối tượng Connection
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.ConnectionString = "Provider=Microsoft.Jet.oledb.4.0; Data Source = " & Server.Mappath("nwind.mdb")
Conn.CursorLocation = 3
'//// Mở kết nối đến CSDL
on error resume next
Conn.Open
'/// Tạo một biến Recordset
Set Rs = Server.CreateObject("ADODB.Recordset")
'/// Lưu kết quả select vào biến Recordset : RS
Set Rs = Conn.Execute("SELECT CompanyName from Suppliers")
'/// Duyệt các bản ghi trong biến kết quả RS và write ra trình duyệt
Do while not Rs.eof
Response.write(Rs("CompanyName"))
Response.write ("
")
Rs.MoveNext
loop
Conn.Close
%>
Version 2:
Kết nối và đọc dữ liệu sử dụng phương thức Open của đối tượng Recordset.
| Đọc dữ liệu thông qua phương thức Open | |
Danh sach nha cung cap <% Dim Conn, Rs Set Conn = Server.CreateObject("ADODB.Connection") Conn.ConnectionString = "Provider=Microsoft.Jet.oledb.4.0; Data Source = " & Server.Mappath("nwind.mdb") Conn.CursorLocation = 3 on error resume next Conn.Open Set Rs = Server.CreateObject("ADODB.Recordset") Rs.Open "SELECT CompanyName from Suppliers", Conn, 1,3Do while not Rs.eof Response.write(Rs("CompanyName")) Response.write ("
") Rs.MoveNext Loop Conn.Close%> |
Dùng cách này, về sau ta có thể thêm và cập nhật CSDL thông qua Rs.
