数据库关联查询

时间：2007-07-23 来源：a010

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
</head>
<%'实际路径链接数据库
'Set cn=Server.CreateObject("ADODB.Connection")
'conn.Open"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\userinfo.mdb" 不加数据库密码的绝对路径
'cn.open"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\2006.mdb;jet OleDB:Database password=911;"
%>

<% '相对路径数据库连接方式
    Set conn=Server.CreateObject("ADODB.Connection")
'加密数据库的连接方法
    cn="DRIVER={Microsoft Access Driver (*.mdb)};DBQ="& Server.MapPath("2006.mdb")&";PWD=911;"
    conn.open cn
%>

<%
'可正确执行
'exec="select top 5 * from 参展回执"
'---------------------------------------------------测试代码
'关联表企业信息和参展回执的企业信息ID
exec="select top 8 * from 参展回执,企业信息 where 企业信息.企业信息ID=参展回执.企业信息ID and 回执日期>#2006-01-10# and 回执日期<#2006-6-25# order by 回执序号ID"
'---------------------------------------------------测试代码

set rs=server.createobject("adodb.recordset")
rs.open exec,cn,1,1
%>
<%do while not rs.eof
response.Write(rs("企业信息ID"))
response.Write(" ")
response.Write(rs("回执序号ID"))
response.Write(" ")
response.Write(rs("单位名称"))
response.Write(" ")
response.Write(rs("摊位号"))
response.Write("<br>")
rs.movenext

loop
rs.close
%>
<body>
</body>
</html>

相关阅读更多 +