mORMot Open Source

procedure Test(Props: TSQLDBConnectionProperties);
var
   Customer , City , Vendor : Variant;
begin
  with Props.Execute( ['select * from Customers where AccountNumber like ?',    ['AW000001%'],@Customer ],   
   ['select * from City where Name like ?',    ['CHIGAGO%'],@City ], 
   ['select * from Vendor where ID = ?',   ['1000'],@Vendor ], 
    ) do
    while Step do
      assert(Copy(Customer.AccountNumber,1,8)='AW000001');

    while Step do
      assert(Copy(City.Name,1,8)='CHICAGO');

   while Step do
      assert(Copy(Vender.ID,1,8)='1000');

end;

---------------------------- OR   ------------------------------------

JSONToClientDataSets(self,Client(['select * from Customers','select * from City','select * from Vendor'], [ds1.DataSet ,ds2.DataSet ,ds3.DataSet ]);

Is possible ?

Tanks

Cristiano Barbosa