向数据中添加序列号

lnlaulya 于 2021-07-24 发布在 Java

关注(0)|答案(1)|浏览(626)

这个问题在这里已经有答案了：

如何在查询数据旁边添加序列号（2个答案）
10个月前关门了。
我有一张名为tblfriends的table：

tblfriends是从查询qryfriends生成的。tblfriends中的数据和记录数每天都在变化，但从不超过30条。
我想在每个名字旁边生成序列号，但这似乎非常困难。
如果您假设表tblseqlikes中已经有字段（seq，likes）。
这是我一直尝试使用的代码：

Dim rs As Recordset

Dim strLikes As String

Set rs = CurrentDb.OpenRecordset("qryFriends", dbOpenDynaset, dbSeeChanges)

strSQL = "INSERT INTO tblSEQLikes (SEQ, Likes) VALUES (" & SEQNum & ", '" & strLikes & "')"

For SEQNum = 1 To 30

    strDisc = rs.Fields("Likes").Value

        DoCmd.RunSQL strSQL

    rs.MoveNext

Next SEQNum

我继续得到一个错误：“运行时错误'3219'无效操作”
此代码是对youtube视频中使用的代码的修改：
https://www.youtube.com/watch?v=wnm17l54z1c
结果，我觉得这应该给tblseqlikes如下：
seq喜欢
1辆自行车
2食物
3钱
4双鞋
5台计算机
6件衣服
7苏打水

sql ms-access vba

来源：https://stackoverflow.com/questions/62541806/add-sequential-numbers-to-data

1条答案

按热度按时间

c7rzv4ha1#

strLikes 从未使用过。还有，快走 strSQL 获取值后在循环中赋值 strLikes （假设 strDisc 应该是 strLikes )

Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset("qryFriends", dbOpenDynaset, dbSeeChanges)

For SEQNum = 1 To 30

    Dim likes As String
    likes = rs.Fields("Likes").Value

    Dim sql as String
    sql = "INSERT INTO tblSEQLikes (SEQ, Likes) VALUES (" & SEQNum & ", '" & likes & "')"

        DoCmd.RunSQL sql

    rs.MoveNext

Next SEQNum

我去掉了匈牙利符号（strlikes）

赞(0）回复(0）举报 2021-07-24

我来回答

向数据中添加序列号

1条答案

相关问题

热门标签

最新问答