Code: Select all
create table cec.tabadresses(
ID NOT NULL NUMBER(8),
TELEPHONE VARCHAR2(25),
FAX VARCHAR2(25),
GSM VARCHAR2(25),
EMAIL VARCHAR2(50),
ADDRESS VARCHAR2(60),
ZIP VARCHAR2(10),
CITY VARCHAR2(50),
STATE VARCHAR2(20),
COUNTRY VARCHAR2(30),
SERVICE VARCHAR2(30),
ADRI VARCHAR2(30),
ATTN VARCHAR2(30),
ADRNAME VARCHAR2(50),
CYNAME VARCHAR2(50),
primary key(id));
insert into cec.tabadresses (id,address,zip, city, country)
values (1,'Bp 100','13881','GEMENOS CEDEX','FR');
commit;
Create a datamodule FDM, with a TOraSession and a TOraQuery named QSearchAddress with the following statement:
Code: Select all
SELECT ID
FROM CEC.tabadresses
WHERE ADDRESS=:1
AND ZIP=:2
AND CITY=:3
AND STATE=:4
AND COUNTRY=:5
AND SERVICE=:6
AND ADRI=:7
AND ATTN=:8
AND ADRNAME=:9
Code: Select all
if (!FDM->QSearchAddress->Prepared)
FDM->QSearchAddress->Prepare();
FDM->QSearchAddress->Params->Items[0]->AsString="Bp 100";
FDM->QSearchAddress->Params->Items[1]->AsString="13881";
FDM->QSearchAddress->Params->Items[2]->AsString="GEMENOS CEDEX";
FDM->QSearchAddress->Params->Items[3]->Clear();
FDM->QSearchAddress->Params->Items[4]->AsString="FR";
FDM->QSearchAddress->Params->Items[5]->Clear();
FDM->QSearchAddress->Params->Items[6]->Clear();
FDM->QSearchAddress->Params->Items[7]->Clear();
FDM->QSearchAddress->Params->Items[8]->Clear();
FDM->QSearchAddress->Active=true;
if (!FDM->QSearchAddress->Eof)
ShowMessage("found");
FDM->QSearchAddress->Active=false;
Any hint?