[lazarus] SqlDB query not working at runtime

[Nataraj S Narayan]

Hi

svn update fpc
At revision 4559.

svn update lazarus
At revision 9827.


Anything wrong with the following ? I dont get any result when I should
be getting.



object SQLQuery1: TSQLQuery
  Active = True
  Database = MySQL41Connection1
  Transaction = SQLTransaction1
  SQL.Strings = (
    'select * from purchorders where orderno=:morderno'
  )
  Params = <
    item
      Name = 'morderno'
    end>
  UpdateMode = upWhereKeyOnly
  UsePrimaryKeyAsKey = True
  ParseSQL = True
  left = 80
  top = 192
end


implementation

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
begin
  with SqlQuery1 do
  begin
       close;
       params[0].asinteger:=StrToInt(Edit1.Text);
       ExecSQL;
       Open;
  end;
end;


regards

Nataraj


begin:vcard
fn:http://www.gsis.ac.in
n:S Narayan;Nataraj
org:Good Shepherd International School;Software
adr:Niligiris, ;;M.Palada;Ootacamund;TN;643004;INDIA
email;internet:[EMAIL PROTECTED]
title:Project Coordinator
tel;work:0423 2550371 - 307
x-mozilla-html:TRUE
url:http://www.gsis.ac.in
version:2.1
end:vcard