Rubrik: Datenbanken · ADO.NET Allgemein | VB-Versionen: VB2005, VB2008 | 25.10.10 |
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