Do Not Sell My Personal Information Jump to content


Code Tag


Fidgits
 Share

Recommended Posts


The code tag normally formats the text differently.

It is used to post "code" snippets - of any language, on programming / technical forums.

So - for example I could use it to post this ActiveX script I have lying around - on an ActiveX site

Option Explicit

Function Main()

Main = DTSTaskExecResult_Success

Dim oPkg, oStep
Dim sServer, sUID, sPWD, iSecurity , sPkgPWD, sPkgName, sErrMsg
Set oPkg = CreateObject("DTS.Package")

' Assign parameters
sServer = "LDA-PMSDB"
sUID = ""
sPWD = ""
iSecurity = DTSSQLStgFlag_UseTrustedConnection
sPkgPWD = ""
sPkgName = "Create lda_transactions"

' Load Child Package
oPkg.LoadFromSQLServer sServer, sUID, sPWD, iSecurity , sPkgPWD, "", "", sPkgName

oPkg.Execute

For Each oStep In oPkg.Steps
 If oStep.ExecutionResult = DTSStepExecResult_Failure Then
  Main = DTSTaskExecResult_Failure
 End If
Next

oPkg.Uninitialize
Set oStep = Nothing
Set oPkg = Nothing

End Function

HTML is turned off for these forums, as the potential scope for damage far outweighs the advantages.

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

 Share



×
×
  • Create New...