使用VBScript从Access中读取表格数据

来源：互联网发布：苗木识别软件编辑：程序博客网时间：2024/05/22 07:51

第一步：连接Access数据库

<%dim conn,rsset conn = server.createObject("adodb.connection")'声明一个数据库实例'连接数据库conn.connectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("text.mdb")conn.open'或者使用conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("text.mdb")的方式连接set rs = server.createObject("adodb.recordset")'创建一个记录表的实例rs.open "择友俱乐部",conn,1,3'response.write "表连接成功" &"<hr/>"%>

第二步：在<body></body>中写入table

<table border="1" width="700" align="center"><tr><%for i=0 to rs.fields.count-1%><th><%=rs.fields(i).name%></th><%next %></tr><% do while not rs.eof %><tr><%for i=0 to rs.fields.count-1%><td><%=rs.fields(i).value%></td><%next%></tr><%rs.moveNextloop%></table>

其中

<tr><%for i=0 to rs.fields.count-1%><th><%=rs.fields(i).name%></th><%next %></tr>

表示使用fields.counts获取字段数目，rs.fields(i).name获取字段的名称

紧接着

<% do while not rs.eof %><tr><%for i=0 to rs.fields.count-1%><td><%=rs.fields(i).value%></td><%next%></tr><%rs.moveNextloop%>

使用do while not rs.eof的循环方式获取字段信息即value值，rs.moveNext表示自动读取数据库中的下一行信息

效果截图：