Rubrik: Datenbanken · ADO.NET Allgemein | VB-Versionen: VB2005, VB2008 | 25.10.10 |
SQL-Scripts ausführen Mit SQL-Server Managment Studio generiertes SQL-Scripts ausführen. | ||
Autor: Christoph Tillmann | Bewertung: | Views: 17.805 |
christophsblog.spaces.live.com | System: Win2k, WinXP, Win7, Win8, Win10, Win11 | kein 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