Question

我想在column1中插入一个值。同时，每个循环的column2值应增加1。

Private Sub counter_Click()
Dim strSQL As String
Dim column2 As Integer = 1
Do While column2 <= 1000

strSQL = "INSERT INTO table (column1, column2) VALUES ('" & Me!Value & "', "'+1'")
CurrentDb.Execute strSQL

Loop

End Sub

我试过这个，但它显然无法工作......

Answer 1

以防万一，数据库中的数据类型为numeric / Integer。不要使用''与数字：“1”而不是“'+1'”

编辑：如果这是循环的索引，则为+1

Answer 2

- 我稍微修改了下面的代码，修改后的代码。我已经定义了strYourValue变量，因此你可以设置你想要的任何值，例如来自文本框，数据集，下拉列表等。

Private Sub counter_Click()

    Dim strSQL As String
    Dim column2 As Integer = 1

    Dim strYourValue As String = "abc"

    Do While column2 <= 1000

        strSQL = "INSERT INTO table (column1, column2) VALUES ('" & strYourValue & "', '" & column2 & "')"
        CurrentDb.Execute(strSQL)
        column2 = column2 + 1
    Loop

End Sub

访问：用于插入和循环的SQL

2 个答案: