[讨论]如何在新增表查询中直接增加自动编号列

老鬼

在SQL SEVER中，使用select id=identity(int,1,1),a.* into aaa from table这样的新增表查询可以在临时表aaa中增加一个自动编号列。请问在ACCESS中有没有这样的功能？

hi-wzj

好像没有直接的方法，我是这样来完成的：1、删除临时表。2、建立临时表（带自动编号的）3、运行追加查询。例：DoCmd.SetWarnings False

DoCmd.DeleteObject acTable, "tmp"

DoCmd.RunSQL "CREATE TABLE tmp ([ID] AUTOINCREMENT, [名字] text,PRIMARY KEY ([ID]));"

DoCmd.RunSQL "INSERT INTO tmp ( 名字 ) SELECT 姓名 FROM 表1;"

DoCmd.SetWarnings False

DoCmd.OpenTable "tmp"

老鬼

看来在ACCESS里面真的不支持SQL SERVER里直接增加的功能了~~~~~有点不死心啊~~~~~

chajiangliang

我有一個笨方法, 寫個函數

dim ac as long



Function identity(b As variant) As Long

Static tm As Date

If Now - tm <> 0 Then ac = 0

tm = Now

ac = 1 + ac

identity = ac

End Function

查詢中用 Select a,b,c, identity([a]) as d from tableA即可

[此贴子已经被作者于2005-3-29 12:06:07编辑过]

老鬼

楼上的想法虽然不错，但是一旦在新表中增加记录，其编号就不会自动产生了~~~~~

而且测试后发现，你的那个自定义函数好像得出的结果都是1，而不是递增的数字。改用如下代码测试通过：

Function identity(b As Variant) As Long

Static ac As Integer

If IsNull(ac) Then ac = 0

ac = 1 + ac

identity = ac

End Function

[此贴子已经被作者于2005-3-29 22:10:18编辑过]

szhtszx

能否给个示例瞅瞅，多谢！

szhtszx

俺试用的结果，可能是从3开始排序，也可能是5 。每次打开查询，序号都有可能有变。新增记录，序号的排序就更乱了。

szhtszx

请 瞅瞅俺写的错在哪里，谢谢！

老鬼

我用的是生成表查询测试的，如果用选择查询，生成的序号会随点击变动。

szhtszx

有否办法在查询中实现自动编号的功能？