dotConnect for DB2 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 =

  "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);
SqlStatementCollection db2Coll = db2Script.Statements;
IDataReader db2Reader;
db2Conn.Open();
foreach (SqlStatement db2Statement in db2Coll)
{
  Console.WriteLine(db2Statement.Text);
  try
  {
    db2Reader = db2Statement.Execute();
    Console.WriteLine("  Records affected " + db2Reader.RecordsAffected); 
    while (db2Reader.Read()) 
    { 
      Console.WriteLine(db2Reader.GetString(0)); 
    } 
    db2Reader.Close(); 
    Console.WriteLine();
  }
  catch
  {
    Console.WriteLine("  Failed");
  }
}
db2Conn.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 db2Conn As DB2Connection = New DB2Connection( _
    "user id=db2admin;server=db2;database=SAMPLE;")
Dim db2Script As DB2Script = New DB2Script(script, db2Conn)
Dim db2Coll As SqlStatementCollection = db2Script.Statements
Dim db2Reader As IDataReader
db2Conn.Open()
For Each db2Statement As SqlStatement In db2Coll
  Console.WriteLine(db2Statement.Text)
  Try
    db2Reader = db2Statement.Execute()
    Console.WriteLine("  Records affected " & db2Reader.RecordsAffected)
    While db2Reader.Read()
      Console.WriteLine(db2Reader.GetString(0))
    End While
    db2Reader.Close()
    Console.WriteLine()
  Catch ex As Exception
    Console.WriteLine("  Failed")
  End Try
Next db2Statement
db2Conn.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