for-loop 在 MS Access 中使用 SQL 添加列

Question

我正在尝试将 n 列添加到 table，就像这个代码示例中的 n = 10:

Sub toto()
    Dim db As Database, i As Integer
    Set db = CurrentDb()

    For i = 1 To i = 10 
         db.Execute " ALTER TABLE time_series " _
             & "ADD COLUMN F_" & i & " Number;"
         '  End If
    Next i
End sub

我尝试将 i 转换为 CStr(i) 的字符串，但无济于事。有什么提示吗？

编辑：未添加列。

Answer 1

我已经测试了您的代码，除了您的 For 语句有点偏离并且您需要设置 db 对象之外，我没有发现任何问题。试试这个代码。

Sub toto()
    Dim db As Database, i As Integer
    Set db = CurrentDb
    For i = 1 To 10
        db.Execute " ALTER TABLE time_series " _
                    & "ADD COLUMN F_" & i & " Number;"
    Next i
    Set db = Nothing
End Sub

for-loop 在 MS Access 中使用 SQL 添加列

for-loop add columns using SQL in MS Access

sql

iteration

ms-access

for-loop