为什么插入值不变？

[beckham1122]

For b = 1 To 8
Dim Str As String
Str = CStr(b)

Set Par = com.CreateParameter("@num", adVarWChar, adParamInput, 20, Str)
com.Parameters.Append Par
com.CommandText = "insert into 年级临时表(节数) values(@Num)"
com.Execute
next
但始终都插入的是1

[43720938]

你试一下这样行不行。
Set cmdpara = cmdCommand.CreateParameter("code", adVarChar, adParamInput, 50)
cmdCommand.Parameters.Append cmdpara
cmdCommand.Parameters("code").Value = Str

[beckham1122]

43720938(浪人！)
我试过了，还是不行啊。哪位高手能够指点，谢谢

[beckham1122]

非常高兴，我已经弄出来了。还是谢谢各位。

[lilaclone]

你Command对象的用法有问题，应该这样使用

Dim adoCmm As Command
adoCmm.Parameters.Append adoCmm.CreateParameter("@TestName", adVarChar, adParamInput, 255, mvarCaseName)

adoCmm.CommandText = "update TestModel set TestName=? Where TestID=1"
adoCmm.Execute

[victorycyz]

str在每次循环的时候肯定会随b的值而变，问题是你的参数集合每次都是定义同样名称的元素，那当然不对了。要用8个不同的参数，或者用str=str & "," & cstr(b)的方式扩充值。

[beckham1122]

不至于要多个参数吧

[beckham1122]

那在调用存储过程的时候，参数值是变化的，也是一样的道理啊，那不是每变化一次就 要一个参数？