VB在数据库中自动创建编号

1、可以直接利用数据库的自动编号字段，省心省力；

2、利用当前时间生成：

Format(Now(), "yyyymmddhhnnss"

3、用随机数生成，但有可能会出现相同的编号：

Randomize

Format(Rnd 100000000, "00000000")

可以把2、3结合使用

比如在写入数据库时：

rs("编号") = Format(Now(), "yyyymmddhhnnss" & Format(Rnd 1000, "000")

连接属性设置为

select id+1 from 表名 a where not exists (select 1 from 表名 b where aid<bid)

那么

text1text=rs("id")

两种方法可以实现一是在数据库里设置自动增长列

二是用recordset绑定数据之后,用

rsmovelast就可以移动到最后一条

然后用addnew方法添加新行,

用update方法保存还是用save保存,好像都可以

用完之后关上记录集

补充 如果在数据库里设置了自动增长列,id会自动从最大的id再加1(默认是1 可以设置),

不过如果最后几条删除过的话会跳过

也就是说最大记录数一直在长,不会变小

Dim sql As String

sql = "select from Teacher"

'这句有问题，肯定是修改第一行数据，应该是

sql = "select from Teacher Order BY ID Desc"

Set rs = exesql(sql)

’在这里必须添加下面的语句：

rsAddNew '新增数据

rsFields("管理员姓名") = Trim(Text1Text)

rsFields("工号") = Trim(Text2Text)

rsFields("管理员密码") = Trim(Text19Text)

rsFields("性别") = Trim(Text3Text)

rsFields("****") = Trim(Text4Text)

rsFields("家庭住址") = Trim(Text5Text)

rsUpdate

rsClose

另外，我认为以下语句没有任何意义，不如删除：

rsFields("管理员姓名") = ""

rsFields("工号") = ""

rsFields("管理员密码") = ""

rsFields("性别") = ""

rsFields("****") = ""

rsFields("家庭住址") = ""

以上就是关于VB在数据库中自动创建编号全部的内容，包括:VB在数据库中自动创建编号、如何在VB中文本框显示：ACCESS的自动编号最大值加一。求代码！、VB中如何追加数据记录等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！