Use SqlStatement to execute individual statements in a script. Each SqlStatement object contains SQL text and information about location of statement in the whole script.
SqlStatement object can be obtained through DbScript.Statements collection. After originating ScriptText has been modified any obsolete SqlStatement objects can no longer be used.
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"; SQLiteConnection sqConn = new SQLiteConnection( "DataSource=mydatabase.db;"); SQLiteScript sqScript = new SQLiteScript(script,sqConn); SqlStatementCollection sqColl = sqScript.Statements; IDataReader sqReader; sqConn.Open(); foreach (SqlStatement sqStatement in sqColl) { Console.WriteLine(sqStatement.Text); try { sqReader = sqStatement.Execute(); Console.WriteLine(" Records affected " + sqReader.RecordsAffected); while (sqReader.Read()) { Console.WriteLine(sqReader.GetString(0)); } sqReader.Close(); Console.WriteLine(); } catch { Console.WriteLine(" Failed"); } } sqConn.Close();
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 sqConn As SQLiteConnection = New SQLiteConnection( _ "DataSource=mydatabase.db;") Dim sqScript As SQLiteScript = New SQLiteScript(script, sqConn) Dim sqColl As SqlStatementCollection = sqScript.Statements Dim sqReader As IDataReader sqConn.Open() For Each sqStatement As SqlStatement In sqColl Console.WriteLine(sqStatement.Text) Try sqReader = sqStatement.Execute() Console.WriteLine(" Records affected " & sqReader.RecordsAffected) While sqReader.Read() Console.WriteLine(sqReader.GetString(0)) End While sqReader.Close() Console.WriteLine() Catch ex As Exception Console.WriteLine(" Failed") End Try Next sqStatement sqConn.Close()
System.Object
Devart.Common.SqlStatement