在access的vba中循环调用带参数查询时遇到的问题及解决办法

还是前面的说导入用户名单的问题，由于在导入时要自动为每个队员加一个编号，于是自己写了个vba脚本，初稿如下：

'从文件中读入选手列表 Function ReadUserList(FileName As String) Dim UserName As String Dim UserCount As Integer '选手数目 UserCount = 0 UserName = "" '构造命令对象, '使用这个对象前应该加入MicrosoftActiveX dataobject 2.1 library的引用 '方法是工具->"引用",选中MicrosoftActiveX dataobject 2.1 library即可 Dim AdoCmd As New ADODB.Command 'Set AdoCmd = New ADODB.Command AdoCmd.CommandText = "添加选手" '添加选手是一个预先建立好的access带参数查询,有两个参数 '第一个参数为编号，第二个参数为姓名 AdoCmd.CommandType = adCmdStoredProc Set AdoCmd.ActiveConnection = CurrentProject.Connection '建立参数对象 Dim paraA As ADODB.Parameter Dim paraB As ADODB.Parameter Set paraA = AdoCmd.CreateParameter(Name:="UserID", Type:=adInteger, Value:=UserCount) Set paraB = AdoCmd.CreateParameter("UserName", adChar,adParamInput,10,UserName) AdoCmd.Parameters.Append paraA AdoCmd.Parameters.Append paraB Open FileName For Input As #1 ' 打开文件。 Do While Not EOF(1) ' 循环至文件尾。 Line Input #1, UserName ' 读入一行数据并将其赋予某变量。 UserName = Trim(UserName) If (Len(UserName) > 0) Then UserCount = UserCount + 1 Debug.Print UserCount, UserName ‘设置参数值 AdoCmd("UserID") = UserCount AdoCmd("UserName") = UserName AdoCmd.Execute '调用查询语句 End If Loop Close #1 ' 关闭文件。 End Function 运行结果发现是插入了重复的第一条记录，其他记录均未插入，经仔细分析，估计是参数值没被更新，几经探索，终于找到了一个初步解决方案，如下所示（只列出了改动后的循环体）：

Do While Not EOF(1) ' 循环至文件尾。 Line Input #1, UserName ' 读入一行数据并将其赋予某变量。 UserName = Trim(UserName) If (Len(UserName) > 0) Then UserCount = UserCount + 1 Debug.Print UserCount, UserName ' AdoCmd.Parameters.Refresh '清空参数列表 '重新构造参数 Set paraA = AdoCmd.CreateParameter(Name:="UserID", Type:=adInteger, Value:=UserCount) Set paraB = AdoCmd.CreateParameter("UserName", adChar, adParamInput, 10, UserName) AdoCmd.Parameters.Append paraA AdoCmd.Parameters.Append paraB AdoCmd.Execute '调用查询语句 '释放参数 Set paraA = Nothing Set paraB = Nothing End If Loop

问题解决。

小结：ado中的参数值似乎无法自动更新，如果想循环使用，只能先清除再增加，不知道在其他语言中是否也是这样。

另外,parameter的refresh方法是清除参数列表而不是刷新参数值，也是需要注意的地方。