懂ASP与access数据库的进

来源：百度知道 编辑：UC知道 时间：2024/05/17 17:39:59
<%
Dim database,conn,connstr

database = "dingdang.mdb" '数据库名称
Set conn=server.createobject("ADODB.Connection") '创建Connection对象
'provider 参数设置数据库的驱动程序，Access 使用OLE DB 驱动程序；Data Source 参数设置数据库的实际路径及文件名称
connstr="provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(database)
conn.Open connstr '采用Open 方法连接数据库

Set rs = Server.CreateObject("ADODB.RecordSet") '创建RecordSet 对象

sql = "select max(dingdanghao) from zong"
rs.Open sql,conn,1,3
请问,执行SQL语句后,怎么把这结果赋值给变量a
%>
ASP要实现的结果是:从数据库最取得最大编号,赋值给a
说详细点

<%
connstr="provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(database)
conn.Open connstr
Set rs = Server.CreateObject("ADODB.RecordSet")
dim maxID
sql = "select max(dingdanghao) from zong"
rs.Open sql,conn,1,3
if not rs.eof then
maxID=rs(0)
end if
rs.close
conn.close
%>
maxID就是你的最大编号

dim maxdingdang
sql = "select max(dingdanghao) from zong"
rs.Open sql,conn,1,3
if not irs.eof and not irs.bof then
maxdingdang=trim(irs(0))
end if

AD 是不是老翟

rs(0)