asked on

TQuery locate problem

Hi, I have another problem

I run IBQuery6 -> select * from Bedrijsvorm

then

procedure TAdministratie.ComboBox1Exit(Sender: TObject);
var A: string;
begin
with Datamodule1 do begin
if Trim(ComboBox1.Text) = '' then begin
ShowMessage('Veld bedrijfsvorm MOET worden ingevuld !');
ComboBox1.SetFocus;
Exit;
end
else
begin
A:= Trim(ComboBox1.Text);
if not IBQuery2.Locate('BEDRIJFSVORMEN', A, [])then begin
IBQuery5.Close;
IBQuery5.SQL.Clear;
IBQuery5.SQL.Add('Insert INTO BEDRIJFSVORM (BEDRIJFSVORMEN) Values(:A)');
IBQuery5.Params[0].AsString:= A ;
IBQuery5.ExecSQL;
end
else
begin
Exit;
end;
end;
end;
end;

When I run the program, and exit the combobox, a locate is performed inside IBQuery6

When it does not find the value, run IBQuery5 to insert the value into bedrijfsvorm, else
Exit . The result is that I get an error (primary key violation), instead of exiting without trying to insert...

problem ?

thx
Mario

Ferruccio Accalai

Are you sure about the case of A?
I'd use
if not IBQuery2.Locate('BEDRIJFSVORMEN', A, [locaseinsensitive])then begin
It's a bit difficult find a right answer without knowing the structure of the table when you're trying to insert that value

ASKER CERTIFIED SOLUTION

Geert G

membership

This solution is only available to members.

To access this solution, you must be a member of Experts Exchange.

Start Free Trial

marioway

ASKER

Geert, thx a lot; what would I do without you guys ... I'm creating a client/server version of my stand-alone program from scratch. Not so easy, but I'm learning fast. I'm gone a have a look at that rdb$databse thing ; seems very important ...

Mario