Error on Quoted String within ADOQuery in Delphi: `Parameter object is improperly defined. Inconsistent or incomplete information was provided.`

Question

I am having trouble with below ADOQuery quoted string %ABC%:

adoQuery1.SQL.Clear;
adoQuery1.SQL.Text := 'SELECT * FROM MyDB.MyTable WHERE MyField LIKE ''''%ABC%'''' ';
adoQuery1.ExecSQL;
adoQuery1.Close;
adoQuery1.Open;

I also tried to pass below parameter instead but no success:

adoQuery1.SQL.Clear;
adoQuery1.SQL.Text := 'SELECT * FROM MyDB.MyTable WHERE MyField LIKE :Param1 ';
aqBCCombi.Parameters.ParamByName('Param1').Value := '%ABC%';
adoQuery1.ExecSQL;
adoQuery1.Close;
adoQuery1.Open;

Here's the error I get: Parameter object is improperly defined. Inconsistent or incomplete information was provided.

Anyone here who knows how to handle quoted string within the ADO SQL text? Appreciate any help.

FYI, `ExecSQL; Close; Open;` makes absolutely no sense. Second, use `Open` for `SELECT` - `ExecSQL` is for queries that do not return a resultset (insert, delete, update). — Ken White, Jun 02 '21 at 01:03

fpiette · Accepted Answer · 2021-05-29T09:08:29.200

1

This code very similar to yours works for me:

if Pos('%', Article) > 0 then begin
    SQLCmd := 'SELECT d0301000.id_partstd ' +
              'FROM d0301000 ' +
              'WHERE (d0301000.Type = ''AF'') ' +
                'AND (d0301000.Part_Nbr LIKE :Part_Nbr)';
    ADOQuery1.SQL.Text := SQLCmd;
    ADOQuery1.Parameters.ParamByName('Part_Nbr').Value := Article;
end
else begin 
    .....   // Code removed for simplicity
end;
ADOQuery1.Open;

You are using ExecSQL for a SELECT statement. Replace it with Open.

edited May 29 '21 at 09:08

answered May 29 '21 at 07:50

fpiette

11,983
1
24
46

Thank you so much @fpiette. It works! Appreciate the quick help. – RickyBelmont May 29 '21 at 10:16

Error on Quoted String within ADOQuery in Delphi: `Parameter object is improperly defined. Inconsistent or incomplete information was provided.`

1 Answers1