ID 自动加1

Question

想实现以下功能 ：
1、表table里没有一条记录，如何把id=“gz001”的记录插入表table里？
2、当表table里有一条记录时（id=gz001），如何让插入的下一条记录的id=“gz002”？
请高手赐教。

Answer 1

Dim Tmp as string
SELECT MAX(id) as AID from YourTable AID=AID+1

Answer 2

(1):dim sql as string sql="select * from T1"
set rs=cn.Execute(sql)
if rs.eof then
   cn.Execute("Insert into T1(id)value('gz001')")
end if(2):可用字符串截取，截取后三位，然后+1了之后再和'gz'连接起来形成你想要的字符串
最后插入数据库即可