Binaryworld - ExecuteSqlScriptsWithOsql - Executing an array of script files with th ... [ VB.net -> Threads & Process ]

' 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 specify whether to use the integrated Windows
' authentication, or the SQL Server's login-password otherwise
'
' Example:
' Dim script1 As String = "C:\Scripts\CreateDbTables.sql"
' Dim script2 As String = "C:\Scripts\CreateDbSprocs.sql"
' Dim script3 As String = "C:\Scripts\InsertData.sql"
' ' use Windows integrated security
' ExecuteSqlScriptsWithOsql("TestDB", True, "", "", script1, script2, script3)
' ' use SQL Server's security
' ExecuteSqlScriptsWithOsql("TestDB", False, "loginname", "pwd", script1,
' script2, script3)

Sub ExecuteSqlScriptsWithOsql(ByVal dbName As String, _
  ByVal isWinAuth As Boolean, ByVal login As String, ByVal pwd As String, _
  ByVal ParamArray scriptFiles() As String)
  Dim osqlParams As String = ""
  ' the OSQL utility requires different parameters if using the Win or SQL
  ' server security
  If (isWinAuth) Then
    osqlParams = String.Format("-E -d {0} -i ", dbName)
  Else
    osqlParams = String.Format("-U {0} -P {1} -d {2} -i ", login, pwd, _
      dbName)
  End If
  ' execute each script file in the scripts array
  Dim proc As New Process
  proc.StartInfo.FileName = "osql.exe"
  proc.StartInfo.CreateNoWindow = True
  proc.StartInfo.WindowStyle = ProcessWindowStyle.Hidden
  Dim scriptFile As String
  For Each scriptFile In scriptFiles
    proc.StartInfo.Arguments = osqlParams & """" & scriptFile + """"
    proc.Start()
    ' wait until the scrip execution ends
    proc.WaitForExit()
  Next
End Sub