'Declaration Public Class SqlScript Inherits Devart.Common.DbScript Implements System.ComponentModel.IComponent, System.IDisposable
public class SqlScript : Devart.Common.DbScript, System.ComponentModel.IComponent, System.IDisposable
'Declaration Public Class SqlScript Inherits Devart.Common.DbScript Implements System.ComponentModel.IComponent, System.IDisposable
public class SqlScript : Devart.Common.DbScript, System.ComponentModel.IComponent, System.IDisposable
Often it is necessary to execute several SQL statements one by one. It can be performed by using a lot of components such as SqlCommand. Usually it isn't a good solution. With only one SqlScript component you can execute several SQL statements as one. This sequence of statements is named script. To separate individual statements use semicolon (;) symbol.
[STAThread] static void Main(string[] args) { string script = "INSERT INTO DEPT VALUES (10,'ACCOUNTING','NEW YORK');"+ "INSERT INTO DEPT VALUES (20,'RESEARCH','DALLAS');"+ "INSERT INTO DEPT VALUES (30,'SALES','CHICAGO');"+ "INSERT INTO DEPT VALUES (40,'OPERATIONS','BOSTON');"+ "SELECT * FROM DEPT"; SqlConnection myConn = new SqlConnection( "User Id=sa;Server=localhost;Initial Catalog=Test;"); SqlScript myScript = new SqlScript(script,myConn); myScript.Progress += new Devart.Common.ScriptProgressEventHandler(OnProgress); myScript.Error += new Devart.Common.ScriptErrorEventHandler(OnError); myConn.Open(); myScript.Execute(); myConn.Close(); } static void OnProgress(object sender, Devart.Common.ScriptProgressEventArgs e) { Console.WriteLine(e.Text); Console.WriteLine(" Successfully executed."); } static void OnError(object sender, Devart.Common.ScriptErrorEventArgs e) { e.Ignore = true; Console.WriteLine(e.Text); Console.WriteLine(" Failed."); }
Module Module1 Friend WithEvents myScript As Devart.Data.SqlServer.SqlScript Sub Main() Dim script As String = _ "INSERT INTO DEPT VALUES (10,'ACCOUNTING','NEW YORK');" + _ "INSERT INTO DEPT VALUES (20,'RESEARCH','DALLAS');" + _ "INSERT INTO DEPT VALUES (30,'SALES','CHICAGO');" + _ "INSERT INTO DEPT VALUES (40,'OPERATIONS','BOSTON');" + _ "SELECT * FROM DEPT" Dim myConn As SqlConnection = New SqlConnection( _ "User Id=sa;Server=localhost;Initial Catalog=Test;") myScript = New SqlScript(script, myConn) myConn.Open() myScript.Execute() myConn.Close() Console.ReadLine() End Sub Sub OnProgress(ByVal sender As Object, ByVal e As Devart.Common.ScriptProgressEventArgs) Handles myScript.Progress Console.WriteLine(e.Text) Console.WriteLine(" Successfully executed.") End Sub Sub OnError(ByVal sender As Object, ByVal e As Devart.Common.ScriptErrorEventArgs) Handles myScript.Error e.Ignore = True Console.WriteLine(e.Text) Console.WriteLine(" Failed.") End Sub End Module
System.Object
System.MarshalByRefObject
System.ComponentModel.Component
Devart.Common.DbScript
Devart.Data.SqlServer.SqlScript
Target Platforms: Windows 7, Windows Vista SP1 or later, Windows XP SP3, Windows Server 2008 (Server Core not supported), Windows Server 2008 R2 (Server Core supported with SP1 or later), Windows Server 2003 SP2