'Declaration Public ReadOnly Property Statements As SqlStatementCollection
public SqlStatementCollection Statements {get;}
'Declaration Public ReadOnly Property Statements As SqlStatementCollection
public SqlStatementCollection Statements {get;}
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()
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