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

Latest Deals

Lexus Official Store for genuine Lexus parts & accessories

Disclaimer: As the club is an eBay Partner, The club may be compensated if you make a purchase via eBay links

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






Lexus Owners Club Powered by Invision Community


eBay Disclosure: As the club is an eBay Partner, the club may earn commision if you make a purchase via the clubs eBay links.

DISCLAIMER: Lexusownersclub.co.uk is an independent Lexus forum for owners of Lexus vehicles. The club is not part of Lexus UK nor affiliated with or endorsed by Lexus UK in any way. The material contained in the forums is submitted by the general public and is NOT endorsed by Lexus Owners Club, ACI LTD, Lexus UK or Toyota Motor Corporation. The official Lexus website can be found at http://www.lexus.co.uk
×
  • Create New...