时间戳

首页 > 解决方案 > 将序号添加到数据

sql - 将序号添加到数据

问题描述

我有一个名为 tblFriends 的表：

在此处输入图像描述

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 中给出如下：

序列喜欢

1 自行车

2 食物

3 钱

4 鞋

5 台电脑

6 件衣服

7 苏打水

标签： sqlvbams-access

解决方案

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）

推荐阅读