Visual Basic Script to Execute SQL

The following script shows how to execute SQL:

'************************************************************************************

'REVIEW INPUT PARAMETERS

'************************************************************************************

If WScript.Arguments.Count <> 5  Then

       Wscript.Echo "You must supply 5 runtime variables." & vbNewLine & "Usage: HFM_LOAD.vbs LoadID CSS_Token OracleInstancePath JavaHomePath OLE_DB_PROVIDER"

       WSCript.Quit -1

Else

        LoadID = Wscript.Arguments.Item(0)

       CSSToken = WScript.Arguments.Item(1)

        OracleInstancePath = WScript.Arguments.Item(2)

       JavaHomePath = WScript.Arguments.Item(3)

       Provider = WScript.Arguments.Item(4)

End If

'************************************************************************************

'************************************************************************************

'Initialize FDMEE VB API

'************************************************************************************

Set objFDMAPI = CreateObject("fdmapi.clsAppServerDM")

WScript.Echo "FDMEE VB API created."

blnInit = objFDMAPI.fInitializeMainAPI(CStr(LoadID), CStr(CSSToken), CStr(OracleInstancePath), CStr(JavaHomePath), CStr(Provider))

If blnInit Then 

       WScript.Echo "FDMEE VB API initialized."

Else

       WScript.Quit -1

       WScript.Echo "fInitializeMainAPI failed."

End If

'************************************************************************************

'************************************************************************************

'Sample Code

'************************************************************************************

If objFDMAPI.API.State.LocName = "MT_COMMA7" Then

       '************************************************************************************

       'Delete one record from tdataseg

       '************************************************************************************

       strDeleteSQL = "DELETE FROM TDATASEG_T WHERE LOADID = " & CStr(LoadID) & " AND ENTITY = 'EastSales'"

       'Execute SQL

       objFDMAPI.API.DataWindow.DataManipulation.fExecuteDML CStr(strDeleteSQL)

End If

      '************************************************************************************

'************************************************************************************

'Destroy objects

'************************************************************************************

objFDMAPI.Dispose

Set objFDMAPI = Nothing

WScript.Echo "FDMEE VB API  destroyed."

'************************************************************************************