vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Schützen Sie Ihre Software vor Software-Piraterie - mit sevLock 1.0 DLL!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2024
 
zurück
Rubrik: Datenbanken · ADO.NET Allgemein   |   VB-Versionen: VB2005, VB200825.10.10
SQL-Scripts ausführen

Mit SQL-Server Managment Studio generiertes SQL-Scripts ausführen.

Autor:   Christoph TillmannBewertung:     [ Jetzt bewerten ]Views:  17.771 
christophsblog.spaces.live.comSystem:  Win2k, WinXP, Win7, Win8, Win10, Win11kein Beispielprojekt 

Hier wird kurz gezeigt wie man mit VB.Net ein SQL-Script ausführt, dass mittels SQL-Server Managment Studio generiert wurde.

' Die DLLs befinden sich unter Programme\SQLServer20XX\90\SDK\Assamblies
Imports Microsoft.SqlServer.Management.Common
Imports Microsoft.SqlServer.Management.Smo
Class ExecuteSQLScript
 
  ''' <summary>
  ''' Führt ein SQL-Script aus, das mittels SQL-Server Management Studio erstellt wurde.
  ''' </summary>
  ''' <param name="scriptFile">z.B. c:\Script.sql</param>
  ''' <remarks></remarks>
  Public Sub Execute(ByVal scriptFile As String)
 
    If File.Exists(scriptFile) Then
      Dim fileInfo As New FileInfo(scriptFile)
      Dim script As String = fileInfo.OpenText().ReadToEnd()
 
      Using conn As New SqlConnection("ConnectionString")
        Dim server As New Server(New ServerConnection(conn))
 
        Try
          server.ConnectionContext.ExecuteNonQuery(script)
        Catch [error] As Exception
          MessageBox.Show("Fehler bei der Ausführung des Scripts", _
            "SQL-Server Error", MessageBoxButtons.OK, MessageBoxIcon.[Error])
        End Try
 
      End Using
    End If
  End Sub
 
End Class