在SQLSERVER2000中插入一条新记录,如何做到立刻获得自动ID号呢? 我建了一个表,主键是自动ID的我插入一条新记录,那么如何立刻获得插入的新记录的自动ID,即主关键字呢? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 insert ....select @@identity注意在一个事务中操作 请使用[IDENT_CURRENT]用法:SELECT IDENT_CURRENT('TABLENAME') SELECT IDENT_CURRENT('TableName') --返回当前的最后自动编号SELECT IDENT_INCR('TableName')--返回增量值SELECT IDENT_SEED('TableName')--返回种子值返回下一个自动编号:SELECT IDENT_CURRENT('TableName') + (SELECT IDENT_INCR('TableName')) 如果你是在用ADODBDim Conn As New adodb.ConnectionDim rs1 As New adodb.RecordsetDim rs2 As New adodb.RecordsetConn.ConnectionString = "..."Conn.OpenConn.BeginTransOn Error GoTo Errxrs1.Open SQLstr, Conn, adOpenDynamic, adLockOptimisticrs2.Open SQLstr, Conn, adOpenDynamic, adLockOptimisticrs1.AddNewrs1.Fields(?)=???rs1.Fields(?)=???...rs1.Updaters2.AddNewrs2.Fields(FK).Value = rs1.Fields(PK).Valuers2.Fields(?)=???rs2.Fields(?)=???...rs2.UpdateConn.CommitTransErrx:Conn.RollbackTransmesgbox ..... 如何修改listview表头的颜色啊? 如何修改ACCESS系统表 mshflexgrid添加记录的问题 请问各位 在源程序中如何把当前窗体的某个显示区域 存为一个图片? 水晶报表数据源问题 请教如何制作一个最简单的进销存软件! 谁知道OCX怎么反编译啊,狂放1000分 鸡和蛋的问题 如何不借助REGSVR32,在VB程序中注册DLL? comboBox如何不让输入列表外的其他值? 小弟VB6.0一个百思不的其解的问题,错误提示:VB弹出菜单至少要有一个子菜单 谁能告诉我avg、 min、 max、 sum、count等函数怎么用?
select @@identity注意在一个事务中操作
用法:SELECT IDENT_CURRENT('TABLENAME')
SELECT IDENT_INCR('TableName')--返回增量值
SELECT IDENT_SEED('TableName')--返回种子值
返回下一个自动编号:
SELECT IDENT_CURRENT('TableName') + (SELECT IDENT_INCR('TableName'))
Dim rs1 As New adodb.Recordset
Dim rs2 As New adodb.RecordsetConn.ConnectionString = "..."
Conn.OpenConn.BeginTrans
On Error GoTo Errx
rs1.Open SQLstr, Conn, adOpenDynamic, adLockOptimistic
rs2.Open SQLstr, Conn, adOpenDynamic, adLockOptimistic
rs1.AddNew
rs1.Fields(?)=???
rs1.Fields(?)=???
...
rs1.Updaters2.AddNew
rs2.Fields(FK).Value = rs1.Fields(PK).Value
rs2.Fields(?)=???
rs2.Fields(?)=???
...
rs2.Update
Conn.CommitTransErrx:
Conn.RollbackTrans
mesgbox .....