asked on

Delphi doubt

IBQuery1.sql.Clear;
sql:= 'select * from osapuolet where o_ovtTunnus is not null ';
if gbMain then
begin
sql := sql + ' and O_MasterUser= :no'; // Giving error
IBQuery1.Params.paramByName('no').AsString := gsParPKey; // Giving error
end;

// jos hakusana, niin hakuehto lisätään sql-lauseeseen
if length(request.contentfields.Values['hakusana']) > 0 then
begin
sHakusana:= request.contentfields.Values['hakusana'];
while Pos('*',sHakusana) > 0 do
sHakusana[Pos('*',sHakusana)] :='%'; // korvataan jokerimerkki
sql :=sql + ' and UPPER(';
case iSortKentta of
0: sql := sql + 'O_OvtTunnus ';
1: sql := sql + 'O_Nimi ';
2: sql := sql + 'O_KTunnus ';
3: sql := sql + 'O_Liittymispvm ';
end;
sql :=sql + ') Like ' + ''''+ UpperCase(sHakusana) + '''';
end;
// lajittelujärjestys
sql:= sql +' order by ';
case iSortKentta of
0: sql := sql + 'O_OvtTunnus ';
1: sql := sql + 'O_Nimi ';
2: sql := sql + 'O_KTunnus ';
3: sql := sql + 'O_Liittymispvm ';
end;
case iSortTapa of
0: sql := sql + 'Desc ';
1: sql := sql + 'Asc ';
end;

if gbT then s:= '<br>' +sql;
IBQuery1.SQL.Add(sql);
IBQuery1.Open;

Have added "no" parameter but giving me error as :
IBQuery1: Parameter 'no' not found

Geert G

use a better title for delphi questions
... not always the same

the error is normal.
delphi is a top down programming language

you can only assign the parameter after you have assigned the sql
(and the sql has been parsed, which is normally done automatically)

IBQuery1.sql.Clear;
   sql:= 'select * from osapuolet where o_ovtTunnus is not null ';
   if gbMain then
         sql := sql + ' and O_MasterUser= :no ';                                                                         

   // jos hakusana, niin hakuehto lisätään sql-lauseeseen
   if length(request.contentfields.Values['hakusana']) > 0 then
   begin
      sHakusana:= request.contentfields.Values['hakusana'];
      while Pos('*',sHakusana) > 0 do
         sHakusana[Pos('*',sHakusana)] :='%'; // korvataan jokerimerkki
      sql :=sql + ' and UPPER(';
      case iSortKentta of
           0: sql := sql + 'O_OvtTunnus ';
           1: sql := sql + 'O_Nimi ';
           2: sql := sql + 'O_KTunnus ';
           3: sql := sql + 'O_Liittymispvm ';
      end;
      sql :=sql + ') Like ' + ''''+ UpperCase(sHakusana) +  '''';
   end;
   // lajittelujärjestys
   sql:= sql +' order by ';
   case iSortKentta of
     0: sql := sql + 'O_OvtTunnus ';
     1: sql := sql + 'O_Nimi ';
     2: sql := sql + 'O_KTunnus ';
     3: sql := sql + 'O_Liittymispvm ';
   end;
   case iSortTapa of
     0: sql := sql + 'Desc ';
     1: sql := sql + 'Asc ';
   end;

   if gbT then s:= '<br>' +sql;
   IBQuery1.SQL.Text := sql;
     if gbMain then
         IBQuery1.Params.paramByName('no').AsString := gsParPKey;                            
   IBQuery1.Open;

Open in new window

This question needs an answer!

Become an EE member today

7 DAY FREE TRIAL

Members can start a 7-Day Free trial then enjoy unlimited access to the platform.

View membership options

Learn why we charge membership fees

We get it - no one likes a content blocker. Take one extra minute and find out why we block content.