SET NOCOUNT ON When using dbexpers, you want to write this line in the stored procedure of SQL Server, write set nocount off before the tail Select.
Procedure VariantTostReam (Stream: TSTREAM); VAR P: POINTER; Begin P: = VararrayLock (data); try stream.write (p ^, VararrayHighBound (data, 1) 1); // Assuming Low Bound = 0 Finally Vararrayunlock (data); end;
Function streamtovariant (Stream: TSTREAM): Olevariant; var P: Pointer; Begin Result: = VaRrayCreate ([0, Stream.size - 1], varbyte); p: = varosition: = 0; Try stream.position: = 0 // Start from Beginning Of Stream Stream.read (p ^, stream.size); Finally Vararrayunlock (Result); end;
Function Rectovariant (Rec: TmyRecarr): Variant; Var P: pchar; begin Result: = Vararraycreate ([0, SizeOf (REC) - 1], varbyte); p: = varRaylock (result); try move (REC [1] , P ^, SizeOf (REC)) Finally Vararrayunlock (Result); end;
Procedure VariantTorec (Value: Variant): TMYRECARR; VAR P: PCHAR; SIZE: cardinal; Begin Size: = VararrayHighBound (Value, 1); P: = VararrayLock (Value); Try Move Finally Vararrayunlock (Value); End;
