WSF и ADO с DB2, recordset.MoveNext не поддерживается ошибка в VBScript - PullRequest
Новая
       20

WSF и ADO с DB2, recordset.MoveNext не поддерживается ошибка в VBScript

1 голос
/ 19 декабря 2008

Я пытаюсь зациклить набор записей, возвращенный из db2, используя файл .wsf и vbscript.

vbscript libfile (lib.vbs) выглядит следующим образом 

'***************  
Const ADOCon="Provider=IBMDADB2.1;Password=*****;User ID=*****;Data Source=yourdatasourc;"
'************************  
'ADO environment is Initialised here  
'*************************  
Function ADOINI(strDB2Cn)  
  With objConnection  
        .Open strSQLCn  
        .CursorLocation=adUseClient  
  End With  
  If objConnection.Errors.Count > 0 Then  
        ErrorOut "Conncetion has Failed."  
  End If  
  With objCommand  
        .ActiveConnection = objConnection  
        .CommandType = adCmdText           
  End With    
End Function  
'********************    
'Execute ADO Comand  
'strSQL - SQL Statment to execute     
'Return ADO RecordSet.  
'*******************************    
Function Exec(strSQL)  
    objCommand.CommandText = strSQL  
    Exec=objCommand.Execute  
End Function  
'******************************************    
    Function ErrorOut(errMsg)  
        Wscript.StdErr.Write Now()&" "&errMsg&vbCrLf   
    End Function  
'****************    
    Function StdOut(msg)   
        WScript.StdOut.Write Now()&" "&msg&vbCrLf   
    End Function  
'************************

Я использую файл trial.wsf, чтобы вернуть набор записей, на котором я пытаюсь выполнить цикл 

<?xml version="1.0" encoding="utf-8" ?>  
<package xmlns="http://schemas.microsoft.com/WindowsScriptHost">  
<job id="main">  
<object id="objConnection"  progid="ADODB.Connection" />  
<object id="objCommand"     progid="ADODB.Command" />  
<object id="objError"       progid="ADODB.Error" />  
<reference object="ADODB.Connection" />  
<reference object="ADODB.Command" />  
<reference object="ADODB.Error" />  

<script language="VBScript" src="lib.vbs">  

    ADOINI(ADOCon)      
    Set objRS = Exec("SELECT REF_CRSETTINGS.NAME, REF_CRSETTINGS.VALUE FROM   WMRCR.REF_CRSETTINGS REF_CRSETTINGS WHERE TRIM(UPPER(REF_CRSETTINGS.CATEGORY)) IN   ('SAMPLE_SETTINGS') ORDER BY REF_CRSETTINGS.CRSETTINGSCODE")  

' the above recordset is a name value pair based on the category   

 StdOut objRS("NAME").Value 'this worked fine  

objRS.MoveNext ' this doesnt work neither does check for EOF or BOF   

</script>  
</job>  
</package>

Я изначально думал, что тип курсора может быть неправильным,
но я даже не могу установить динамический тип курсора, получил ошибку VBScript не поддерживается.

возможно, это проблема с провайдером, но я не могу это подтвердить.

Я хочу сделать что-то подобное, но не могу зациклить на наборе записей .. 

  Do While Not objRS.EOF  
    Select Case UCase(trim(objRS("NAME").Value))  
      Case "SOAPSERVER"   SOAPSERVER=objRS("VALUE").Value  
      Case "SOAPMESSAGE"   SOAPMESSAGE=objRS("VALUE").Value  
      Case "SOAPACTION"   SOAPACTION=objRS("VALUE").Value  
      Case Else   ErrorOut "Error: InCorrect Value"  
     End Select  
        objRS.MoveNext  
    Loop

Я уверен, что здесь есть какая-то базовая / глупая ошибка, не очень хорошо разбирающаяся в wsf и скриптах.

Ответы [ 2 ]

0 голосов
/ 02 июля 2014

Функция - это именованный фрагмент кода, который возвращает что-то через (в VBScript) присваивание имени функции. Большинство «функций» в вашей библиотеке нет и, следовательно, нет.

Функция Exec пытается вернуть набор записей, то есть объект. Назначение объекта в VBScript необходимо Set. Итак: 

Function Exec(strSQL)  
    objCommand.CommandText = strSQL  
    Set Exec=objCommand.Execute  
End Function
0 голосов
/ 27 декабря 2008

Основываясь на статье базы знаний, упомянутой в комментарии, вы можете просто захотеть записать набор записей в массив, используя. GetRows и обработать массив. Проверьте это

...