Devart Forums

Code: Select all

procedure TForm1.FormCreate( Sender : TObject );
  var
    lParam : TDAParam;
  begin
   // useunicode true
  // oracle table branschen
  // spezifikation varchar2(30)
  // br_id# number
  // spezifikation = 'Banken/Sparkassen'
  // br_id# = 1

    with unqry1 do begin
      sql.text := 'select spezifikation,br_id# from branschen';
      lParam := Params.CreateParam( ftWideString, 'SPEZIFIKATION', ptInput );
      filterSql := 'Lower(spezifikation) like lower(:spezifikation)';
      lParam.Value := 'banken/sparkassen%';
      prepare;
      open;
      showmessage( intToStr( recordcount ) ); // 0 record - ERROR
      close;
      lParam.Value := 'bank%';
      prepare;
      open;
      showmessage( intToStr( recordcount ) );
      lParam.Value := 'banken/sparkassen%';
//      prepare;
      open;
      showmessage( intToStr( recordcount ) );
      close;
      lParam.Value := 'bank%';
//      prepare;
      open;
      showmessage( intToStr( recordcount ) );


    end;
  end;