如何让工作簿当作数据库的ID序号自动生成

linmeici · 发表于 2012-4-9 23:15

工作簿不能像SQL数据库里面的ID字段能自动ID号(也许可以,但我不知道如何在工作簿里设置),如何让SQL的INTO命令让工作簿自动生成ID号呢?

我的做法是这样的
sql = "(select (max(储户_ID)+1) AS 储户_ID from [储户$])" '取得储户ID的最大值+1作为新增加的ID号
CN.Execute "insert into [储户$] (储户_ID,储户姓名) values(" & CN.Execute(sql3).fields(0).Value & ",'" & n_name & "')"

这样新增的记录里,ID字段就会自动添加上ID号了.(恕我不上传附件了,因为要删改一大堆代码,很不方便)

欢迎有不同方法的朋友分享一下思路,让更多朋友可以更方便学习SQL.

ASLXT · 发表于 2012-4-10 13:52

我的方法：表中有ID，时间，字段1，字段2...字段n等字段
ID和时间是不需要用户录入的，用户只要录入字段1~字段n的内容。
Private Sub Worksheet_Change(ByVal Target As Range)
  Me.Cells(Target.Row, 2) = Now()
  If Me.Cells(Target.Row, 1) = "" Then
Me.Cells(Target.Row, 1) = Val(Me.Cells(Target.Row - 1, 1)) + 1
  End If
End Sub

ASLXT · 发表于 2012-4-10 13:53

本帖最后由 ASLXT 于 2012-4-10 13:54 编辑

其中ID就是顺序编号，时间表示本记录的最后修改时间。
但是没有用sql的方法，只是手输。

linmeici · 发表于 2012-4-10 23:25

ASLXT 发表于 2012-4-10 13:53
其中ID就是顺序编号，时间表示本记录的最后修改时间。
但是没有用sql的方法，只是手输。

你的方法是可以,但用到SQL时,工作簿是当作数据库来用的,一般来说,这个工作簿也是不打开的.(只是连接,不是打开)那你这个方法还可以用吗?

2038996140 · 发表于 2014-8-6 16:53

大侠，能否做一个附件上传学习呢？？？？？？？？？

		自动登录	找回密码
密码			免费注册

[分享] 如何让工作簿当作数据库的ID序号自动生成