You are not logged in.
Pages: 1
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
Offline
Pages: 1