三星s7edge照相技巧:创建记录集与如何读取数据库内容

来源:百度文库 编辑:偶看新闻 时间:2024/04/28 11:46:41
1、建立一个数据库文件,名称估且命为data.mdb ,里面准备存放一些公司企业的电话地址等内容。数据库中建一个名为company的表,表设计以下四个字段:companyname,tel,address,website (公司名称,电话,地址,网址),字段类型全部选择“文本”,字段大小设置为250,创建好表后,打开表,自己输入随意输入几条记录值
(所有建立数据库的具体操作本文略过)

2、新建一个文件名为index.asp
index.asp文件代码里,首先要建立数据库连接,代码如上文介绍:

dim conn  
dim connstr
connstr="DBQ="+server.mappath("data.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION") '创建数据库连接对象
conn.open connstr '连接数据库

创建记录集:
set rs=server.CreateObject("adodb.recordset") '创建rs记录集
sql="select * from [company]" '读取数据库的SQL语句串
rs.open sql,conn,1,1 '打开记录集

读取数据库代码:
结合前面介绍过的do while ...loop语句来循环读取多条记录内容


  <%do while not rs.eof
  'rs.eof意思是最后一条记录,rs.bof的意思是第一条记录,所以这句话的意思是:当不是最后一条记录时,输出下面的代码%>
 
   
   
   
   
 
  <%rs.movenext '移到下一条记录
loop%>
<%=rs("companyname")%><%=rs("tel")%><%=rs("address")%>" target="_blank"><%=rs("website")%>

所有代码放在一起就是index.asp的所有代码。如下:

<%
dim conn 
dim connstr
connstr="DBQ="+server.mappath("data.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION") '创建数据库连接对象
conn.open connstr '连接数据库
set rs=server.CreateObject("adodb.recordset") '创建rs记录集
sql="select * from [company]" '读取数据库的SQL语句串
rs.open sql,conn,1,1 '打开记录集
%>


连接数据库与读取数据库内容




  <%do while not rs.eof
  'rs.eof意思是最后一条记录,rs.bof的意思是第一条记录,所以这句话的意思是:当不是最后一条记录时,输出下面的代码%>
 
   
   
   
   
 
  <%rs.movenext '移到下一条记录
loop%>
<%=rs("companyname")%><%=rs("tel")%><%=rs("address")%>" target="_blank"><%=rs("website")%>