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
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