Consulta SQL em Cadastro, BD Firebird 2.0

25/06/2008

0

Olá pessoal, to começando agora e sei muito pouco de programação. Preciso entregar um trabalho e não sei como fazê-lo. O trabalho é o seguinte: Fazer um Cadastro onde ao digitar o CEP e pressionar a tecla TAB, apareça automaticamente os seguintes dados: LOGRADOURO, BAIRRO, CIDADE, ESTADO. para fazer o cadastro o banco de dados é um firebird 2.0 já fiz as conexões necessárias e o cadastro está funcionando o problema é somente na hora da consulta. Peguei com um colega a parte de pesquisa separada, porém não consigo juntar com a parte de cadastro que eu já fiz. A parte de cadastro que ele fez foi a seguinte:
[color=blue:48f9dd65d0]procedure TFprincipal.DBEdit4Exit(Sender: TObject);
begin
SQLDataSet.Close;
ClientDataSet.Close;
SQLDataSet.CommandText:= ´select TABLOGRADOURO.NOME_LOGRADOURO, TABBAIRRO.NOME_BAIRRO, ´ +
´TABCIDADE.NOME_CIDADE, TABESTADO.SIGLA, TABLOGRADOURO.CEP ´ +
´from TABLOGRADOURO ´ +
´inner join TABBAIRRO on (TABLOGRADOURO.CODIGO_BAIRRO = TABBAIRRO.CODIGO_BAIRRO) ´ +
´inner join TABCIDADE on (TABBAIRRO.CODIGO_CIDADE = TABCIDADE.CODIGO_CIDADE) ´ +
´inner join TABESTADO on (TABCIDADE.CODIGO_ESTADO = TABESTADO.CODIGO_ESTADO) ´ +
´and TABLOGRADOURO.CEP = ´ + DBEdit4.Text;
SQLDataSet.Open;
ClientDataSet.Open;
Edit1.Text := ClientDataSet.FieldByName(´NOME_BAIRRO´).AsString;
Edit2.Text := ClientDataSet.FieldByName(´NOME_LOGRADOURO´).AsString;
Edit3.Text := ClientDataSet.FieldByName(´NOME_CIDADE´).AsString;
Edit4.Text := ClientDataSet.FieldByName(´SIGLA´).AsString;
end;[/color:48f9dd65d0]

já tentei colocar isso no SQLDataSet/CommandText pois lá tem a seguinte instrução: [color=blue:48f9dd65d0]select * from TABPESSOA[/color:48f9dd65d0] (que é o cadastro em si)
Se alguem souber como fazer por favor post aí porque eu preciso muito entregar este trabalho.

Desde já agradeço pela colaboração![color=blue:48f9dd65d0][/color:48f9dd65d0]


Thiagu

Thiagu

Responder

Assista grátis a nossa aula inaugural

Assitir aula

Saiba por que programar é uma questão de
sobrevivência e como aprender sem riscos

Assistir agora

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

Aceitar