Execute um script SQL pelo VB

O exemplo a seguir executará um script SQL em um arquivo.  Desta maneira, o arquivo pode conter multiplos comandos, mas somente um único batch (sem comandos 'GO').  Se você precisa executar um arquivo de script contendo mais de um batch, você terá que ler o arquivo linha a linha e executar os comandos contidos nas linhas lidas, quando você encontrar um comando 'GO'.  Note que 'GO' é um delimitador de batches e não um comando T-SQL, portanto, você não pode incluí-lo na string do query enviado ao servidor.

Set oCn = CreateObject("ADODB.Connection")
Set oFSO = CreateObject("Scripting.FileSystemObject")
oCn.Open "Provider=SQLOLEDB;Data Source=MyServer;Initial
Catalog=MyDatabase;Integrated Security=SSPI"
oCn.Execute oFSO.OpenTextFile("C:\SQLScripts\MySQLScript.sql").ReadAll

Esta matéria foi postada originalmente no ASP4Developers por Valmir Cinquini (site), que na época era "Analista/Programador C#, VB.Net, ASP, VB, Javascript e T-SQL

www.cinquini.com.br/vcinquini>". Hoje, vai saber...