向数据中添加序列号

lnlaulya  于 2021-07-24  发布在  Java
关注(0)|答案(1)|浏览(635)

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

如何在查询数据旁边添加序列号(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苏打水

c7rzv4ha

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)

相关问题