IDalCommand.ExecuteWithoutLast

Syntax

ExecuteWithoutLast: Integer;

Description

The ExecuteWithoutLast method executes the command with all sets of parameters except for the last one and returns the number of processed records.

Comments

This method executes the same functions as the Execute method, but the last set of parameter values, which index is returned by the CurrentParamsRow property, is ignored on executing the method. This method is necessary when there is a chance that the maximum number of processed sets of parameters is exceeded.

Example

Executing the example requires that the repository contains a database with the DB identifier and a table with the MyTable identifier.

Sub UserProc;

Var

Mb : IMetabase;

DB_ORCL8 : IDatabaseInstance;

Command : IDalCommand;

Params : IDalCommandParams;

sql : String;

paramArraySize, i, j : Integer;

Begin

MB := MetabaseClass.Active;

DB_ORCL8 := MB.ItemById("DB").Open(Null) As IDatabaseInstance;

sql := "insert into MyTable (field,field1) values(:1,:2)";

Command := DB_ORCL8.Connection.CreateCommand(sql);

Command.Type := DalCommandType.Text;

Command.Parse;

Command.Prepare;

Params := Command.Params;

Params.Item(0).DataType := DbDataType.String;

Params.Item(1).DataType := DbDataType.Float;

paramArraySize := 3;

Command.MaxParamsRows := paramArraySize;

j := 1;

For i := 1 To 10 Do

Params.Item(0).Value := "№ "+i.ToString;

Params.Item(1).Value := i + 0.1;

If (j < paramArraySize) Then

Command.NextParamsRow;

j := j+1;

Else

Command.Execute;

j:= 1;

End If;

End For;

If j > 1 Then

Command.ExecuteWithoutLast;

End If;

End Sub UserProc;

After executing the example ten records are inserted into the table.