VBScript/ADODB语法adArray是否有问题?

本文介绍了VBScript/ADODB语法adArray是否有问题?的处理方法，对大家解决问题具有一定的参考价值，需要的朋友们下面随着小编来一起学习吧！

问题描述

我希望有人可以让我对vb脚本有新的了解.该脚本的主要目的是使用一些参数来执行存储过程.

I'm hoping somebody could provide me with some fresh eyes on my vb script. The main purpose of this script is to execute a stored procedure using some parameters.

我得到的错误是

我没有做太多的VB脚本编写，但是到目前为止，我发现的错误-归结于某种语法问题.我已经看了这个脚本好几个小时了，看不到任何明显的东西.我只能认为这取决于adArray的声明(在我看来，它看起来不正确，但我无法找到被声明的任何示例).仅在我开始添加更多参数时才引入此错误.

I haven't done much VB scripting but from what I have found so far - this error has been down to some kind of syntax issue. I've looked over this script for many hours and can't see anything obvious. I can only assume it's down to the declaration of adArray (which doesn't look right in my eyes but I haven't been able to find ANY examples of this being declared). This error has only been introduced when I started adding more parameters.

代码:

Const adVarChar = 200
Const adParamInput = 1
Const adArray = 0x2000

Dim cmd
Dim sp
Dim intCode
Dim addIn
Dim groupCode
Dim screens
Dim arrScreens
arrScreens=split(LF06,",")

Set cmd=CreateObject("ADODB.Command")
sp="vfile_dev.dbo.vfp_groupReorder"

Set intCode=CreateObject("ADODB.Parameter")
intCode.Direction=adParamInput
intCode.name="@p_intCode"
intCode.Size=100
intCode.Type=adVarChar
intCode.Value=LF03

Set addIn=CreateObject("ADODB.Parameter")
addIn.Direction=adParamInput
addIn.name="@p_addIn"
addIn.Size=100
addIn.Type=adVarChar
addIn.Value=LF04

Set groupCode=CreateObject("ADODB.Parameter")
groupCode.Direction=adParamInput
groupCode.name="@p_groupCode"
groupCode.Size=100
groupCode.Type=adVarChar
groupCode.Value=LF05

Set screens=CreateObject("ADODB.Parameter")
screens.Direction=adParamInput
screens.name="@p_screens"
screens.Size=100
screens.Type=adArray
screens.Value=arrScreens

With cmd
   .ActiveCOnnection = "Provider='sqloledb';Data source='xxx';Integrated Security='SSPI';"
   .CommandType = 4
   .CommandText = sp
   .Parameters.Append intCode
   .Parameters.Append addIn
   .Parameters.Append groupCode
   .Parameters.Append screens
   .Execute
End With

Set cmd = Nothing
Set sp = Nothing
Set intCode = Nothing
Set addIn = Nothing
Set groupCode = Nothing

任何帮助将不胜感激.谢谢.

Any help would be much appreciated. Thanks.

对于那些感兴趣的人-我的解决方案是抛弃adArray并将我的数据作为逗号分隔的varchar传递.然后，我使用简单的split函数在存储过程中处理这些数据.

For those interested - my solution was to ditch adArray and pass my data through as a comma delimited varchar. I then handle this data in my stored procedure with a simple split function.

有用的链接

如何在VBScript中将ADODB参数化查询与adArray数据类型一起使用?-建议adArray是可能的.
Useful Links
- How to use ADODB parameterized query with adArray data type in VBScript? - Suggestion that using adArray is possible.
  Carl Prothman-数据类型映射 -我去ADO数据类型映射的资源.
  
  这篇关于VBScript/ADODB语法adArray是否有问题?的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持！

adArray