使用for循环执行SQL语句

获取错误

目标列数和查询数不相同

请帮忙

db.Open ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\New folder (2)\cri.mdb;Persist Security Info=False")
s1 = "select MAX(teamid) from player"
Set rs = db.Execute(s1)
v = rs(0)
For Index = 1 To 2

db.Execute ("insert into player values('" & Str(v) & "' ,'" & p1(Index).Text & "'," & age1(Index).Text & "," & avg1(Index).Text & ")")

Next Index
db.Close

---

当我看到这一点时，通常意味着提供的值的数量与您试图插入的列不匹配。您没有提供列列表，因此我不能确定。现在您提供了4个要插入的值，只要该表中只有4列，这将很好地工作。如果还有更多列，则需要指定要插入的列：

插入到播放器（column1、column2、column3、column4）值（value1、value2、value3、value4）

。