'得到刚刚插入的记录的自动编号值 dim conn,rs set conn=Server.CreateObject("ADODB.Connection") conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=;Data Source=" & Server.MapPath("51windows.mdb") set rs=Server.CreateObject("ADODB.Recordset") sql="select * from [table] where id is null" '自动编号字段为id rs.open sql,conn,1,3 rs.addnew rs("Name") = Request.form("Name") rs("Name2") = Request.form("Name2") rs.update dim NewDbid NewDbid = rs("id") '得刚刚插入记录的自动编号的值 rs.close set rs = nothing conn.close set conn = nothing 原文:http://www.51windows.net/data/?url=/data/folders/folder_74.asp |
|小黑屋|最新主题|手机版|微赢网络技术论坛 ( 苏ICP备08020429号 )
GMT+8, 2024-9-30 05:35 , Processed in 0.091185 second(s), 12 queries , Gzip On, MemCache On.
Powered by Discuz! X3.5
© 2001-2023 Discuz! Team.