IRepositoryScriptCallback.OnStart

Copy example

Sub Main;
Var
    Rsm: IRepositoryScriptManager;
    Driv: IDalDriver;
    ConDesc: IDalConnectionDescriptor;
    Params: IDalConnectionDescriptorParams;
    Con: IDalConnection;
    CallBack: IRepositoryScriptCallback;
Begin
    //Connection to schema on the Oracle server
    Driv := New DalOrcl8Driver.Create As IDalDriver;
    ConDesc := Driv.CreateDescriptor;
    Params := ConDesc.Params;
    Params.Find("User Name").Value := "TestSchema";
    Params.Find("Password").Value := "TestSchema";
    Params.Find("Host BSTR").Value := "Test";
    Params.Find("Schema").Value := "TestSchema";
    Con := ConDesc.CreateConnection;
    //Repository manager settings
    Rsm := New RepositoryScriptManager.Create;
    Rsm.Connection := Con;
    Rsm.Driver := RepositoryDriverType.ORCL9;
    Rsm.Operation := RepositoryOperationType.Update;
    //Repository update
    Rsm.Repository := RepositoryType.Metabase;
    Rsm.LoadScript(New FileStream.Create("c:\current.rm4", FileOpenMode.Read, FileShare.Exclusive));
    CallBack := New ScrCallback.Create;
    Rsm.Execute(CallBack);
End Sub Main;

Class ScrCallback: RepositoryScriptCallback
    s: String;

    Public Sub OnStart(Error: RepsitoryScriptInitError; FilesToProcess: Integer);
    Begin
        Debug.WriteLine("Start update");
        Select Case Error
        Case RepsitoryScriptInitError.None:
            Debug.WriteLine("Number of requests that will be executed: " + FilesToProcess.ToString);
        Case RepsitoryScriptInitError.NoTables:
            Debug.WriteLine("In the specified base there is no repository tables");
        Case RepsitoryScriptInitError.TablesAlreadyExist:
            Debug.WriteLine("The specified base already contains repository tables");
        Case RepsitoryScriptInitError.EmptyRepository:
            Debug.WriteLine("Empty repository for update");
        Case RepsitoryScriptInitError.CannotUpdateVers:
            Debug.WriteLine("Cannot update repository version");
        Case RepsitoryScriptInitError.UnicodeMismatch:
            Debug.WriteLine("Unicode of repository version in base and update file are different");
        End Select;
    End Sub OnStart;

    Public Sub BeginStatement(Statement: String);
    Begin
        s := Statement;
    End Sub BeginStatement;
    
    Public Sub EndStatement(bError: Boolean; Message: String; Var Cancel: Boolean);
    Begin
        If bError = True Then
            Debug.WriteLine("Error occurred on code execution!");
            Debug.Indent;
            Debug.WriteLine("Request: " + s);
            Debug.WriteLine("Error: " + Message);
            Debug.Unindent;
            Cancel := False;
        End If;
    End Sub EndStatement;

    Public Sub OnFinish;
    Begin
        Debug.WriteLine("Update is finished");
    End Sub OnFinish;
End Class ScrCallback;