Use Execute method to execute the script. Text of the script should be specified by ScriptText property.
After execution of each individual statement the Progress event fires. If the statement has produced an error, event Error fires.
[STAThread] static void Main(string[] args) { string script = "DROP TABLE DEPT;"+ "CREATE TABLE DEPT ("+ " DEPTNO NUMBER(38) NOT NULL,"+ " DNAME VARCHAR2(14),"+ " LOC VARCHAR2(13)"+ ");"+ "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"; OracleConnection myConn = new OracleConnection( "User Id=Scott;Password=tiger;Data Source=Ora;"); OracleScript myScript = new OracleScript(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.Oracle.OracleScript Sub Main() Dim script As String = _ "DROP TABLE DEPT;" & _ "CREATE TABLE DEPT (" & _ " DEPTNO NUMBER(38) NOT NULL," & _ " DNAME VARCHAR2(14)," & _ " LOC VARCHAR2(13)" & _ ");" & _"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 OracleConnection = New OracleConnection( _ "User Id=Scott;Password=tiger;Data Source=Ora;") myScript = New OracleScript(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