Serves to execute series of SQL statements separated by special symbols.
This sample demonstrates how to execute script and retrieve information about execution flow using
Progress and
Error events.
[STAThread]
static void Main(string[] args)
{
string script =
"DROP TABLE IF EXISTS DEPT;"+
"CREATE TABLE DEPT ("+
" DEPTNO INT PRIMARY KEY,"+
" DNAME VARCHAR(14),"+
" LOC VARCHAR(13)"+
") TYPE = InnoDB;"+
"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";
MySqlConnection myConn = new MySqlConnection(
"User Id=root;Host=localhost;Database=Test;");
MySqlScript myScript = new MySqlScript(script,myConn);
myScript.Progress += new Devart.Common.ScriptProgressEventHandler(OnProgress);
myScript.Error += new Devart.Common.ScriptErrorEventHandler(OnError);
myConn.Open();
myScript.Execute();
myConn.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.");
}
Module Module1
Friend WithEvents myScript As Devart.Data.MySql.MySqlScript
Sub Main()
Dim script As String = _
"DROP TABLE IF EXISTS DEPT;" + _
"CREATE TABLE DEPT (" + _
" DEPTNO INT PRIMARY KEY," + _
" DNAME VARCHAR(14)," + _
" LOC VARCHAR(13)" + _
") TYPE = InnoDB;" + _
"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 myConn As MySqlConnection = New MySqlConnection( _
"User Id=root;Host=localhost;Database=Test;")
myScript = New MySqlScript(script, myConn)
myConn.Open()
myScript.Execute()
myConn.Close()
Console.ReadLine()
End Sub
Sub OnProgress(ByVal sender As Object, ByVal e As Devart.Common.ScriptProgressEventArgs) Handles myScript.Progress
Console.WriteLine(e.Text)
Console.WriteLine(" Successfully executed.")
End Sub
Sub OnError(ByVal sender As Object, ByVal e As Devart.Common.ScriptErrorEventArgs) Handles myScript.Error
e.Ignore = True
Console.WriteLine(e.Text)
Console.WriteLine(" Failed.")
End Sub
End Module