Fórum Como completar edits com firebird? #375925

14/10/2009

0

Delphi

Olá amigos do fórum, preciso de uma dica, usando o mysql eu consigo fazer com que ao escolher uma cidade em um dblookupcombobox ele complete os dbedit do estado e codigo de area com os codigos abaixo.
         Close;
         SQL.Clear;
         SQL.Add(´select * from tbcidade where nome_cidade like ´ + QuoTedStr(edt_cidade.Text+´¬´ ));
         Open;
         qrempresa[´uf_empresa´]:=FieldByName(´uf_cidade´).AsString;
         qrempresa[´ca_empresa´]:=FieldByName(´ca_cidade´).AsString;
      End;


Só que usando essas linhas de codigo usando o banco firebird não esta funcionando, gostaria de uma ajuda dos amigos de como eu faria isso usando o firebird.

Obrigado.


Junior-programador

Junior-programador

Responder

Posts

14/10/2009

Facc

Precisa colocar no onExit do dblookupcombobox um select trazendo esses campos, e porteriormente, no mesmo evento, preencher os Edits.


Responder

Gostei + 0

14/10/2009

Junior-programador

você pode me dar uma dica de como fazer amigo, não tenho boa experiência com Delphi ainda.

Obrigado.


Responder

Gostei + 0

14/10/2009

Junior-programador

Problema resolvido.

   With DMPrincipal.qrCombo1 do
      Begin         
         Close;
         SQL.Clear;
         SQL.Add(´select * from tbcidade where id_cidade =´ + QuoTedStr(edt_cidade.EditValue));
         Open;
         qrempresa[´uf_empresa´]:=FieldByName(´uf_cidade´).AsString;
         qrempresa[´ca_empresa´]:=FieldByName(´ca_cidade´).AsString;
      End;


Valeu, dúvida encerrada.


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar