懂ASP与access数据库的进

<%
    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就是你的最大编号

其他：rs(0) dim a
a= rs("dinghanghao")

不是很明确您的意思！ 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 是不是老翟

上一个：Asp问题，怎么批量替换access数据库里面的字符
下一个：怎样将access数据库生成执行文件