VB script issue

[mfauzim]

the following vbscript give me headache to trouble shoot. Pls see code below: the issue is at GetAsasData vbscript, it keep giving error , but the same method in another function works and return 0

Code: Select all

VBSTART
'--- GLOBAL VARIABLE AREA -----------
Dim pEquestOdbcConn, pEquestData, pQuestSQLString
Dim pArtnOdbcConn, pArtnAsasData, pArtnAsasProcessNoSql, pArtnAsasProcessNoData
Dim pAsasOpenWin
Dim pOssOpenWin, pOssRtnData
Dim pCassOpenWin, pCassRtnExch, pCassRtnExchTelDat

'--- FUNCTION AREA -------------------
Function OpenArtnOdbc
  OpenArtnOdbc = 0
  Set pArtnOdbcConn = CreateObject("ADODB.Connection")
  on error resume next

  pArtnOdbcConn.Open "DSN=AUTORTN;uid="";pwd="";"
  if err.number > 0 then
  	 OpenArtnOdbc = 1
  else
  end if
	msgbox "open artn odbc " & OpenArtnOdbc

End Function

Function CloseArtnOdbc
    on error goto 0
    pArtnOdbcConn.Close
End Function

Function GetAsasData
	GetAsasData = 0
 	msgbox "Asas data sql 1: " & GetAsasData
	pArtnAsasDataSql = "select * from svc_act_history"
	MsgBox pArtnAsasDataSql
    set pArtnAsasData = pArtnOdbcConn.Execute(pArtnAsasDataSql)
  	if err.number > 0 then
   	    GetAsasData = 2

  	end if
	msgbox "Asas data sql 2 : " & GetAsasData
	'msgbox pArtnAsasData
  	on error resume next
  	pArtnAsasData.MoveFirst
End Function

Function GetAsasProcessNo
	GetAsasProcessNo = 0
    pArtnAsasProcessNoSql = "select * from REF_ASAS_PROCESSNO"
	'MsgBox pArtnAsasProcessNoSql

    set pArtnAsasProcessNoData = pArtnOdbcConn.Execute(pArtnAsasProcessNoSql)
  	if err.number > 0 then
   	    GetAsasProcessNo = -1
  	end if
	msgbox "Get Asas  process no " & GetAsasProcessNo
  	on error resume next
  	pArtnAsasProcessNoData.MoveFirst
End Function



VBEND

/*----------------------------------------------------------
Macro Script start here. 
Main routine
----------------------------------------------------------*/

VBEval>OpenArtnOdbc,ArtnOdbcReply
msgbox>ArtnOdbcReply
//VbEval>GetAsasData,AsasDataReply
//msgbox>AsasDataReply
//vbEval>GetAsasProcessNo,AsasProcessNoReply
//MessageModal>AsasProcessNoReply

Label>MainAsasServerLoop
  vbeval>GetAsasProcessNo,AsasProcessNoReply
  MessageModal>AsasProcessNoReply
  
  if>AsasProcessNoReply>-1
     //messagemodal>in the loop
  	 vbeval>GetAsasData,AsasDataReply
     Label>ReadData
     VBEval>GetNextEquestData,record
     if>record=0
       GOto>MainLoop
     endif>
	 VbEval>GetCheckDuplData,nDuplicate
	 if>nDuplicate=-1
	 else
	 	if>nDuplicate=0
	       vbeval>InsertArtnData("%record%"),creturn
	    else
	    endif
	 endif>
     goto>ReadData
     wait>5
  else
  endif
  
  Vbeval>GetNextAsasProcessNo(),AsasProcessNoReply
Goto>MainAsasServerLoop
Label>FinishAsasServerLoop

/*----------------------------------------------------------
Main sub routine
----------------------------------------------------------*/

[mfauzim]

actually it is not an error. When vbscript execute select * from svc_acv_history, error is > 0, but it return all the data.

Why vbscript give error . 0????

[Marcus Tettmar]

GetAsasData does not use on error resume next. err.number could have been already set by some other piece of code.

[mfauzim]

thanks for the help