dotConnect for SQLite Documentation
Devart.Common Namespace / DbScript Class / Statements Property
Example

Statements Property
Gets the collection of statements that make up the script.
Syntax
'Declaration
 
Public ReadOnly Property Statements As SqlStatementCollection
 

Property Value

Collection of statements.
Remarks
Use Statements to obtain SqlStatementCollection which allows to access individual statements of the script and execute them manually. The collection is read-only so you can not modify it in any way. It is also bound to originating DbScript object, which means that if you have altered ScriptText, previously obtained collection will be cleared.
Example
This sample shows how to retrieve collection of statements that make up the script and execute them one by one.
string script =
@"CREATE TABLE DEPT (
  DEPTNO INTEGER PRIMARY KEY,
  DNAME VARCHAR(14),
  LOC VARCHAR(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";
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 = _
@"CREATE TABLE DEPT (" & _
  "  DEPTNO INTEGER PRIMARY KEY," & _
  "  DNAME VARCHAR(14)," & _
  "  LOC VARCHAR(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 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()
Requirements

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

See Also