Code: Select all
procedure TForm1.Button1Click(Sender: TObject);
var
LSum: Integer;
begin
VirtualQuery1.SQL.Text := 'SELECT sum(salary) from ClientDataSet1';
VirtualQuery1.Open;
LSum := VirtualQuery1.Fields[0].AsInteger;
end;
Do not trial?
Code: Select all
procedure TForm1.Button1Click(Sender: TObject);
var
LSum: Integer;
begin
VirtualQuery1.SQL.Text := 'SELECT sum(salary) from ClientDataSet1';
VirtualQuery1.Open;
LSum := VirtualQuery1.Fields[0].AsInteger;
end;
OK, I can trial. Thx!AlexP wrote:Hello,
We have already fixed this problem and reloaded VirtualDAC. Please download VirtualDAC again.