原先只有一个参数,是可以正常运行的,加了个参数后就运行不了,帮忙看看哪里错了 Set Conn = New ADODB.Connection
Conn.ConnectionTimeout = 25
Conn.ConnectionString = TextLine
Conn.Open
OpenCn = True
'Conn.CursorLocation = adUseClient
Set Com = New ADODB.Command
Set Parm = New ADODB.Parameter
Parm.Name = "name"
Parm.Type = adChar
Parm.Size = 4
Parm.Direction = adParamInput
Parm.Value = YearStr
Com.Parameters.Append Parm Set Parm2 = New ADODB.Parameter
Parm2.Name = "name2"
Parm2.Type = adChar
Parm2.Size = 2
Parm2.Direction = adParamInput
Parm2.Value = MonthStr
Com.Parameters.Append Parm2 Com.ActiveConnection = Conn Com.CommandText = GroupProcess
Com.CommandType = adCmdStoredProc Set Rs = Com.Execute()
Conn.ConnectionTimeout = 25
Conn.ConnectionString = TextLine
Conn.Open
OpenCn = True
'Conn.CursorLocation = adUseClient
Set Com = New ADODB.Command
Set Parm = New ADODB.Parameter
Parm.Name = "name"
Parm.Type = adChar
Parm.Size = 4
Parm.Direction = adParamInput
Parm.Value = YearStr
Com.Parameters.Append Parm Set Parm2 = New ADODB.Parameter
Parm2.Name = "name2"
Parm2.Type = adChar
Parm2.Size = 2
Parm2.Direction = adParamInput
Parm2.Value = MonthStr
Com.Parameters.Append Parm2 Com.ActiveConnection = Conn Com.CommandText = GroupProcess
Com.CommandType = adCmdStoredProc Set Rs = Com.Execute()
解决方案 »
- 对象关闭时不允许操作
- 关于 RasGetProjectionInfo 求 IP 地址的问题
- 高分,请教如何清除IE网址的历史访问记录
- 如何控制Listview每列的宽度自适应这列最长的内容?
- to Cooly(给我一个开心的理由!),多谢你的代码,可是我碰到一个问题
- 如何使MSCHART横坐标列数不断增加后保持间距不便,并且实现滚动条功能?
- 求SQL SERVER语句
- 本人用DAO连接Access数据库,请问可否用SQL语句查询,如何使用
- VB中批量更新的问题,多多关照,我现在就在线
- 求救:如何去掉vb窗口右上角的关闭按钮?请详细一点?
- 哥哥们姐姐们帮忙啊!
- 在VB60中把一个字符型数字转换成数字型不知用哪个函数啊!
Com.CommandText = “GroupProcess”而不要直接写,因为CommandText是一个字符串。试一下,我以前记在本子上是这样的,解决了,别忘记给分哦~~~先谢谢了。
错误信息的字面意思应该是:过程或函数指定了太多的参数.
你应该仔细检查一下存储过程的参数,看看存储过程中指定的参数个数,类型,大小等和程序中的是否一致