‘ Unregister an Enterprise Service from the COM+ Catalog’ Note: requires a reference to the System.EnterpriseServices.dll assembly’ Note: applicationID is the name of the COM+ application that contains the ‘

‘ Execute an array of sql script files with batch statements,’ by using the same SqlCommand object’ – connString is the connection string for the destination database” Example:’ Dim connString

‘ Get the path of the SQL Server’s OSQL.exe utilityFunction GetOsqlPath() As String Dim regKey As Microsoft.Win32.RegistryKey = _ Microsoft.Win32.Registry.LocalMachine.OpenSubKey( _ “SOFTWAREMicrosoftMicrosoft SQL Server80ToolsClientSetup”) If regKey Is Nothing Then Return

‘ Register an Enterprise Service in the COM+ Catalog’ Note: requires a reference to the System.EnterpriseServices.dll assembly’ This version identify the enterprise service with its path’ Example: RegisterEnterpriseService(“C:TempTestService.dll”)Sub RegisterEnterpriseService(ByVal servicePath

‘ Execute an array of sql script files with batch statements,’ by using the OSQL utility’ – dbName is the name of the destination database’ – isWinAuth, login and pwd

‘ Get the path of the Oracle’s SqlPlus.exe utilityFunction GetSqlPlusPath() As String Dim regKey As Microsoft.Win32.RegistryKey = _ Microsoft.Win32.Registry.LocalMachine.OpenSubKey(“SOFTWAREORACLE”) If regKey Is Nothing Then Return “” End If Dim sqlplusPath

Want to declare and initialize a string array, but tired of typing all those quotes and commas? Try this method instead. First, add the Imports System.Text.RegularExpressions line to the top

Want to declare and initialize a string array, but tired of typing all those quotes and commas? Try this method instead. First, add the Imports System.Text.RegularExpressions line to the top

‘ Change the icon of a drive’ Example: ChangeDriveIcon(“d”, “c:myicon.ico”)Sub ChangeDriveIcon(ByVal driveLetter As String, ByVal icoPath As String) ‘ create the parent key Dim regKey As Microsoft.Win32.RegistryKey = _ Microsoft.Win32.Registry.LocalMachine.CreateSubKey(

‘ Ask a Yes/no question’ returns True if the user replies “Yes”‘ Example: MessageBox.Show(AskYesOrNo(“Do you like me?”, “ME”, True))Function AskYesOrNo(ByVal text As String, ByVal title As String, _ ByVal defaultAnswer

‘ Display a text with 3D effect” g: a Graphics object’ text: the text to be displayed’ coords: the Point with the X and Y coordinates’ col: the text color’

‘ Returns the date that Rosh Hashanah begins for the requested year.’ It is important to note that Rosh Hashanah is based on the Lunar cycle so the ‘ Holiday

‘ Display the “Open with…” dialog and open the specified file with the ‘ selected program’ Example: ShowOpenWithDialog(“d: est.txt”) Shared Function _ ShellExecute(ByVal hwnd As Integer, ByVal lpOperation As String,

‘ Increment the numeric right-most portion of a string’ Example: MessageBox.Show(IncrementString(“test219”)) ‘ => 220Function IncrementString(ByVal text As String) As String Dim index As Integer Dim i As Integer For i

You can easily execute a SQL Server 7.0 Data Transformation Services (DTS) package from VB remotely: Create a DTS package. It can be an import from Excel into SQL Server.

When creating a project or Web page, you sometimes need to use characters not included on your keyboardfor example,

You use quotation marks in VB to define strings, but how do you include them in your output? Use whichever of these methods works the best for you: Dim strUseChr