SQLiteScript Class

On this page

Serves to execute series of SQL statements separated by special symbols.

Syntax

Visual Basic
C#


'Declaration Public Class SQLiteScript Inherits Devart.Common.DbScript Implements System.ComponentModel.IComponent, System.IDisposable


public class SQLiteScript : Devart.Common.DbScript, System.ComponentModel.IComponent, System.IDisposable

Remarks

Often it is necessary to execute several SQL statements one by one. It can be performed by using a lot of components such as SQLiteCommand. Usually it isn't a good solution. With only one SQLiteScript component you can execute several SQL statements as one. This sequence of statements is named script. To separate individual statements use semicolon (;) symbol.

When SQLiteScript encounters a BEGIN keyword in the script, it looks for a slash symbol "/" in the first position of some consecutive line. Everything between the BEGIN and the slash is considered single block. Usually the slash is placed after the line containing END keyword. You do not have to place slash after nested BEGIN...END block.

Example

This sample demonstrates how to execute script and retrieve information about execution flow using Progress and Error events.

csharp


[STAThread] static void Main(string[] args) { 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); sqScript.Progress += new Devart.Common.ScriptProgressEventHandler(OnProgress); sqScript.Error += new Devart.Common.ScriptErrorEventHandler(OnError); sqConn.Open(); sqScript.Execute(); sqConn.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."); }

[STAThread]
static void Main(string[] args)
{
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);
      sqScript.Progress += new Devart.Common.ScriptProgressEventHandler(OnProgress);
      sqScript.Error += new Devart.Common.ScriptErrorEventHandler(OnError);
      sqConn.Open();
      sqScript.Execute();
      sqConn.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.");
}

Visual Basic


Module Module1 Friend WithEvents sqScript As Devart.Data.SQLite.SQLiteScript Sub Main() 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;") sqScript = New SQLiteScript(script, sqConn) sqConn.Open() sqScript.Execute() sqConn.Close() Console.ReadLine() End Sub Sub OnProgress(ByVal sender As Object, ByVal e As Devart.Common.ScriptProgressEventArgs) Handles sqScript.Progress Console.WriteLine(e.Text) Console.WriteLine(" Successfully executed.") End Sub Sub OnError(ByVal sender As Object, ByVal e As Devart.Common.ScriptErrorEventArgs) Handles sqScript.Error e.Ignore = True Console.WriteLine(e.Text) Console.WriteLine(" Failed.") End Sub End Module

Module Module1

  Friend WithEvents sqScript As Devart.Data.SQLite.SQLiteScript

  Sub Main()
    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;")
    sqScript = New SQLiteScript(script, sqConn)
    sqConn.Open()
    sqScript.Execute()
    sqConn.Close()
    Console.ReadLine()
  End Sub

  Sub OnProgress(ByVal sender As Object, ByVal e As Devart.Common.ScriptProgressEventArgs) Handles sqScript.Progress
    Console.WriteLine(e.Text)
    Console.WriteLine("  Successfully executed.")
  End Sub

  Sub OnError(ByVal sender As Object, ByVal e As Devart.Common.ScriptErrorEventArgs) Handles sqScript.Error
    e.Ignore = True
    Console.WriteLine(e.Text)
    Console.WriteLine("  Failed.")
  End Sub

End Module

Inheritance Hierarchy

System.Object
   System.MarshalByRefObject
      System.ComponentModel.Component
         Devart.Common.DbScript
            Devart.Data.SQLite.SQLiteScript

Reference

SQLiteScript Members
Devart.Data.SQLite Namespace
SQLiteCommand Class

Send Feedback