<html>
<body bgcolor="#FFFFFF">
<p><big><big>Categories</big></big> </p>
<hr size="1" align="left">
<%
Dim accessDB
Dim conn
Dim rst
Dim sql
accessDB = "Northwind 2007.accdb"
conn = "Provider=Microsoft.ACE.OLEDB.12.0;" & _
"Data Source=" & Server.MapPath(accessDB) & _
"; Persist Security Info = False;"
Set rst = Server.CreateObject("ADODB.Recordset")
sql = "Select ID, Company, City From Employees"
rst.Open sql, conn
%>
<table border="1" width="670">
<tr bgcolor="gray">
<td width="155" height="11">
<p><b>Category ID</b></p>
</td>
<td width="159" height="11">
<p><b>Category Name</b></p>
</td>
<td width="334" height="11">
<p><b>Description</b></p>
</td>
</tr>
<%
While Not rst.eof
%>
<tr>
<td width="155" height="3">
<p><%=rst("ID")%></p>
</td>
<td width="159" height="3">
<p><%=rst("Company")%></p>
</td>
<td width="334" height="3">
<p><%=rst("City")%></p>
</td>
</tr>
<%
rst.movenext
Wend
rst.close
set rst=nothing
conn.close
Set conn=nothing
%>
</table>
</body>
</html>read.asp 다른방법 DB연결
/
/
2020. 5. 18. 09:31
