The event handler receives an argument of type ScriptProgressEventArgs containing data related to this event. The following ScriptProgressEventArgs properties provide information specific to this event.
| Property | Description |
|---|
| Length | Gets length of the statement in symbols. |
| LineNumber | Gets number of line in the whole script where the statement can be located. |
| LinePosition | Gets position of the statement in its line. |
| Offset | Gets offset of the statement in the whole script text. |
| StatementType | Gets type of the statement that is executed. |
| Text | Gets SQL statement that has been executed. |
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";
DB2Connection db2Conn = new DB2Connection(
"user id=db2admin;server=db2;database=SAMPLE;");
DB2Script db2Script = new DB2Script(script,db2Conn);
db2Script.Progress += new Devart.Common.ScriptProgressEventHandler(OnProgress);
db2Script.Error += new Devart.Common.ScriptErrorEventHandler(OnError);
db2Conn.Open();
db2Script.Execute();
db2Conn.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 db2Script As Devart.Data.DB2.DB2Script
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 db2Conn As DB2Connection = New DB2Connection( _
"user id=db2admin;server=db2;database=SAMPLE;")
db2Script = New DB2Script(script, db2Conn)
db2Conn.Open()
db2Script.Execute()
db2Conn.Close()
Console.ReadLine()
End Sub
Sub OnProgress(ByVal sender As Object, ByVal e As Devart.Common.ScriptProgressEventArgs) Handles db2Script.Progress
Console.WriteLine(e.Text)
Console.WriteLine(" Successfully executed.")
End Sub
Sub OnError(ByVal sender As Object, ByVal e As Devart.Common.ScriptErrorEventArgs) Handles db2Script.Error
e.Ignore = True
Console.WriteLine(e.Text)
Console.WriteLine(" Failed.")
End Sub
End Module
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