Search options

How can I put SQL result in variable and then read each value from variable.
Example
myvariable  := SQLExecute('SELECT Contracts.id, Clients.company,Contracts.contractno,Products.prodname FROM Contracts INNER JOIN clients ON clients.id = contracts.id_clients INNER JOIN products ON products.id = contracts.id_products WHERE Contracts.id = 2');
showmessage(first value in myvariable);
showmessage(second value in myvariable);
showmessage(third value in myvariable);

Thanks for help

Hi

When would one get this error? I have re-created the tables and forms and error still appears.

Thanks for help. Using 1.41 & 1.42 beta

Please help with last WHERE clause for custom search using SQL. When date control is not selected (checked), that field should be ignored but if selected the date field must be included.

SELECT
Dispatches.releaseno
,strftime('%d/%m/%Y', Dispatches.loaddate)
,Dispatches.truckreg
,Clients.company
,Products.prodname
,Contracts.contractno
,Dispatches.id

FROM
Dispatches

inner join Contracts
on Dispatches.id_Contracts = Contracts.id

inner join Clients
on Contracts.id_Clients = Clients.id

inner join Products
on Contracts.id_Products = Products.id

WHERE
(case when '{edReleaseNo}'='' then 1=1
else Dispatches.releaseno = "{edReleaseNo}" end)
and
(case when '{edTruckReg}'='' then 1=1
else Dispatches.truckreg = "{edTruckReg}" end)
and
(case when '{edContractNo}'='' then 1=1
else Contracts.contractno = "{edContractNo}" end)
and
(case when {cboProduct}=-1 then 1=1
else Contracts.id_Products = {cboProduct} end)
and
(case when {cboClient}=-1 then 1=1
else Contracts.id_Clients = {cboClient} end)
and
(case when {dtLoadDate} // IS NOT SELECTED // then 1=1
else Dispatches.loaddate = {dtLoadDate} end)                                                                                   
;

Thanks

I cant get 2 linked lists/comboboxes on frmEditEmpskill in attached project to work. When user selects an Organisation, only the Skills linked to the selected organisation must show in Skill combobox. Please have a look. Thanks

Few questions, please:
What is the current official version?
When will the unofficial version become official?
And what are the new features we can look forward to?

Thanks

Please help with correct syntax/properties....

procedure frmDictionary_gridGender_OnCellClick (Sender: string; ACol, ARow: Integer);
begin
     frmDictionary.edGender.Text := frmDictionary.gridGender.(value in the selected grid cell)

end;

Grid has only one column named 'gender'

Thanks