Serves to execute series of SQL statements separated by special symbols.
This sample demonstrates how to execute script and retrieve information about execution flow using
Progress and
Error events.
[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";
UniConnection myConn = new UniConnection("Provider=SQL Server;Data Source=SERVER;Initial Catalog=Northwind;User ID=sa");
UniScript myScript = new UniScript(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.Uni.UniScript
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 UniConnection = New UniConnection("Provider=SQL Server;Data Source=SERVER;Initial Catalog=Northwind;User ID=sa")
myScript = New UniScript(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