ActiveDelphi

[pardal3000]

Olá amigos,

Criei uma funçãozinha SQL para buscar um determinado CEP numa base de dados. Estou enviando abaixo para ajudar aqueles menos experiêntes. Bem, minha base de dados é antiga, alguém teria ela atualizada? Estou precisando muito disso, para implementar esta função em um sistema que preciso entregar a semana que vêm. Quem puder me ajudar, ou pelo menos me indicar o caminho, fico grato...

Function BuscaCEP(CEP: String; var Endereco, Bairro, Cidade, UF: String): Boolean;
Begin
Endereco := \'\';
Bairro := \'\';
Cidade := \'\';
UF := \'\';
Result := False;
With dmData.qryCEPs Do
Begin
Close;
SQL.Clear;
SQL.Add(\'SELECT Logradouro, Endereco, Bairro, Cidade, UF, Cep FROM Ceps\');
SQL.Add(\'WHERE Cep="\' + CEP + \'"\');
Prepared := True;
Open;
If RecordCount > 0 Then
Begin
Endereco := FieldByName(\'Logradouro\').AsString + \' \' +
FieldByName(\'Endereco\').AsString;
Bairro := FieldByName(\'Bairro\').AsString;
Cidade := FieldByName(\'Cidade\').AsString;
UF := FieldByName(\'UF\').AsString;
Result := True;
end;
Close;
end;
end;


Exemplo de uso:

procedure TfrmMain.btnBuscaClick(Sender: TObject);
var
Endereco, Bairro, Cidade, UF: String;
begin
If BuscaCEP(Trim(edtCEP.Text), Endereco, Bairro, Cidade, UF) Then
Begin
edtEndereco.Text := Endereco;
edtBairro.Text := Bairro;
edtCidade.Text := Cidade;
edtUF.Text := UF;
end Else ShowMessage(\'CEP não encontrado! Tente outro...\');
edtCEP.SetFocus;
edtCEP.SelectAll;
end;


Abraços,


Pardal 3000

[pardal3000]

À propósito, achei uma base em TXT aqui no fórum, postada por nosso amigo KMerlot, mas ela também é bem antiga...

Se alguém conseguiu essa base no próprio Correio, por favor me informe como faço pra obter.

Obrigado!

Pardal3000

[pardal3000]

Alguém quer fazer a boa-ação do fim de semana?


Desculpem, estou desesperado!


Abraços,

Pardal3000

[pardal3000]

Eu novamente...

Achei uma base em Access (MDB) no link abaixo, mas também está desatualizada. Bom, digo que está desatualizada porque não possue os CEPs terminados com 000, como por exemplo 18570-000 (Conchas-SP). Por que será?

Copie e cole em uma nova janela do seu navegador:

http://www.z7.com.br/wmld/cepbr/cepbr.zip



Pô, me ajudem aí galera! Estou :casstet:

Abraços,

Pardal3000

[robotpost]

Amigo,

O Gustavo postou a alguns dias atrás, um link para um banco de dados em InterBase com os ceps do pais todo.
Faça uma busca pelo usuário gustavocco que vc vai encontrar.

Abraços!

Fernando

[pardal3000]

Valeu pela dica amigo, mas os arquivos que o Gustavo postou já não estão mais disponíveis. Também tentei outros links, mas todos fora do ar. Tá complicado achar isso...

Mas valeu de qquer maneira!

Abraços,

Pardal3000

[robotpost]

Amigo,

Eu tenho a base do Gustavo em casa, amanhã eu coloco no meu ftp, e posto o link aqui, pra vc e quem mais precisar poder baixar, ok?

Abraços!

Fernando

[pardal3000]

Oi Fernado,

Cara, obrigado! Obrigado mesmo! Vai ajudar eu e muitas outras pessoas, tenho certeza.


Abraços,

Pardal3000

[robotpost]

E ai Pardal!

Promessa é dívida, então aqui segue o link da base de CEP, espero que te ajude.

Abraços!

Fernando

http://fernando.gs.discovirtual.uol.com.br/disco_virtual/compartilhada/dbcep.zip

Senha: delphi

[gustavocco]

Bom, infelizmente tive q retirar o arquivo do ftp, pois o trafego fica muito pesado com downloads desses arquivos. Bom se alguem tiver interesse eu coloco novamente em meu ftp, o banco de dados d cep com 20 mb em formato gdb.

Qqr coisa posta ai q eu deixo num horario q nao atrapalhe por aki, geralmente a noite.

Flw ai.
_________________
Top System - www.topsystem.com.br

[robotpost]

E ai Gustavo!

Que isso, pode deixar no meu ftp, fica nos servidores do UOL, não me atrapalha em nada.. hehe..
Quase não uso ele mesmo...

Abraços!

Fernando

[gustavocco]

Eh q eu tenho um mais atualizado do q aquele ultimo link q postei... mas nao sei se eh o mesmo q vc tem ai... se quiser eu te mando ai vc comprar e coloca lah pra download... eu tenho um em ftp no brturbo.. aki baixa legal.. mas bastante gente nao consegue baixar... sei lah pq... bom se quiser este banco q tenho aki t mando...por email ou coloco em ftp pra vc comparar com esse db ai....

flw.
_________________
Top System - www.topsystem.com.br

[robotpost]

No seu BRTurbo eu tbm nunca consegui baixar nenhum arquivo, não sei pq...

Qual o tamanho do arquivo?.. dependendo do tamanho não chega por e-mail, esse que tenho aqui tem 18.131kb

Se der deixa só hj a noite disponível no seu FTP que eu baixo e mando para o meu no Uol...

Qualquer coisa: fernando.gs@uol.com.br

--

Fernando

[pardal3000]

Oi Fernando,

Cara, obrigado. Valeu mesmo! Estou baixando o arquivo.

Bom, agora só falta um jeito de transformar esse BD do Interbase para o Paradox (db) ou Access (mdb), mais isso pode deixar que me viro

Quero agradecer também o Gustavo! Valeu pela intenção!


Abraços à todos.

Pardal3000

[gustavocco]

Ai fernando.. o q tenho se nao me engano dah 20 mb... se nao me engano... mas nao estah neste micro... acredito q seja mais atual q aquele d 18 q tem no ftp da brturbo... assim q chegar em ksa disponibilizo e ftp pra ti v.. depois das 23:00 hrs... dai t passo o caminho tb... ou divido o arquivo em 2 partes e mando por email...

Pardal3000 blz, bom trabalho ai... rsrs..

flw ai gente.
_________________
Top System - www.topsystem.com.br