marioway
asked on
TQuery locate problem
Hi, I have another problem
I run IBQuery6 -> select * from Bedrijsvorm
then
procedure TAdministratie.ComboBox1Ex
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('BEDRIJFSV
IBQuery5.Close;
IBQuery5.SQL.Clear;
IBQuery5.SQL.Add('Insert INTO BEDRIJFSVORM (BEDRIJFSVORMEN) Values(:A)');
IBQuery5.Params[0].AsStrin
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
I run IBQuery6 -> select * from Bedrijsvorm
then
procedure TAdministratie.ComboBox1Ex
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('BEDRIJFSV
IBQuery5.Close;
IBQuery5.SQL.Clear;
IBQuery5.SQL.Add('Insert INTO BEDRIJFSVORM (BEDRIJFSVORMEN) Values(:A)');
IBQuery5.Params[0].AsStrin
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
Last Comment
ASKER CERTIFIED SOLUTION
THIS SOLUTION IS ONLY AVAILABLE TO MEMBERS.
View this solution by signing up for a free trial.
Members can start a 7-Day free trial and enjoy unlimited access to the platform.
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
Mario
Databases
Databases are organized collections of data, most commonly accessed through management systems including schemas, tables, queries and processes that allow users to enter and manipulate the information or utilize it in other fashions, such as with web applications or for reporting purposes.
62K
Questions
--
Followers
--
Top Experts
Get a personalized solution from industry experts
TRUSTED BY
I'd use
if not IBQuery2.Locate('BEDRIJFSV
It's a bit difficult find a right answer without knowing the structure of the table when you're trying to insert that value