2007/11/23
MsSql、Access两种数据库中插入记录后马上得到自动编号的ID值
在Access数据的操作中,UPdate后,直接id=rs("id")就可取得,SQL却要加一名Rs.MoveLast ,即移到新增记录.
例句如下(MSsql下的SQL语句):
Set Rs=Server.CreateObject("ADODB.RecordSet") '创建要测试的对象
Rs.Open "[TestTable] ",Conn,1,3 '假定开始已经创建Conn,并且数据库已经连接
Rs.AddNew
Rs("ColName1")="ColName1"
Rs("ColName2")="ColName2"
......
Rs("ColNameN")="ColNameN"
Rs.Update '调用Update方法立即将内存中数据写入数据库中,下面这句是关键的
Rs.MoveLast '将记录移动最后一条
ID=testRs("ID") '这样就可以立即得到刚才这个新记录的自动编号了
'不要忘记关闭对象
Rs.Close
Set Rs= Nothing
在Access数据的操作中,UPdate后,直接id=rs("id")就可取得,SQL却要加一名Rs.MoveLast ,即移到新增记录.
例句如下(MSsql下的SQL语句):
Set Rs=Server.CreateObject("ADODB.RecordSet") '创建要测试的对象
Rs.Open "[TestTable] ",Conn,1,3 '假定开始已经创建Conn,并且数据库已经连接
Rs.AddNew
Rs("ColName1")="ColName1"
Rs("ColName2")="ColName2"
......
Rs("ColNameN")="ColNameN"
Rs.Update '调用Update方法立即将内存中数据写入数据库中,下面这句是关键的
Rs.MoveLast '将记录移动最后一条
ID=testRs("ID") '这样就可以立即得到刚才这个新记录的自动编号了
'不要忘记关闭对象
Rs.Close
Set Rs= Nothing
2007/04/28
由于Access 2007 在数据格式上有了很大变化,因此数据提供者已经不是 jet db 4.0 了,Microsoft.ACE.OLEDB.12.0 才是 *.accdb 的数据提供者。
连接方法看下面的代码。
Set conn=server.CreateObject("adodb.connection")
conn.provider="microsoft.ACE.oledb.12.0"
conn.open server.mappath("access2007.accdb") '连接access2007
Set conn=server.CreateObject("adodb.connection")
conn.provider="microsoft.JET.oledb.4.0"
conn.open server.mappath("access2003.mdb") '连接access2003及2000
连接方法看下面的代码。
Set conn=server.CreateObject("adodb.connection")
conn.provider="microsoft.ACE.oledb.12.0"
conn.open server.mappath("access2007.accdb") '连接access2007
Set conn=server.CreateObject("adodb.connection")
conn.provider="microsoft.JET.oledb.4.0"
conn.open server.mappath("access2003.mdb") '连接access2003及2000
2006/05/22
NB是我见过最好的ASP CMS系统,功能的强大,代码的简洁,系统的整合,都超越国内其它的ASP CMS系统。尤其NB的创作者(说实话,我并不清楚他的名字),低调,勤奋,负责的处世作风,在现在这个浮躁的网络上已经很少见了。
1.拷贝下面代码,另存为huandeng.asp
1.拷贝下面代码,另存为huandeng.asp






