Inserir consulta CPF no vb.net

[Tiago_BB 0]

Bom dia pessoal.

 

Estou com uma dúvida.

 

Vou fazer um sistema de cadastro de clientes, onde vai ter um campo CEP.

 

Como eu faço para que ao digitar o CEP, exibir os dados como rua, bairro, etc referente ao CEP digitado??

 

Estou usando windows form.

 

atte.

[quintelab 91]

De um clique duplo no seu textbox, ele irá criar o evento padrão, que á ativo quando o usuário digita algo e sae do campo, neste evento faça seu select no banco e traga os dados.

 

Abraços...

[Jucelio 0]

Amigo Tiago_BB você ja tem essa base de dados com ceps?

caso teja ai vai uma classe completa para tal tarefa

 

Imports System.Data.OleDb


Namespace Ceps
    Public Class Cep

        Public Function CON() As OleDb.OleDbConnection
            Dim conn As New OleDb.OleDbConnection("Provider = Microsoft.jet.OleDB.4.0;Data Source =  " & Environment.CurrentDirectory & "\ceps.mdb;")
            If conn.State = ConnectionState.Closed Then conn.Open()
            Return conn
        End Function

        Dim myCommand As New OleDbCommand
        Dim myAdapter As New OleDb.OleDbDataAdapter
        Dim myData As New DataTable
        Dim PENDERECO As String
        Dim PBAIRRO As String
        Dim PCIDADE As String
        Public Property ENDERECO() As String
            Get
                Return PENDERECO
            End Get
            Set(ByVal value As String)
                PENDERECO = value
            End Set
        End Property
        Public Property BAIRRO() As String
            Get
                Return PBAIRRO
            End Get
            Set(ByVal value As String)
                PBAIRRO = value
            End Set
        End Property
        Public Property CIDADE() As String
            Get
                Return PCIDADE
            End Get
            Set(ByVal value As String)
                PCIDADE = value
            End Set
        End Property

        Public Sub CEP(ByVal CEPSET As String, ByVal UFSET As String)
            Try
                If CON.State = ConnectionState.Closed Then CON.Close()
                CON.Open()
                Dim cmd As New OleDbCommand("SELECT * FROM " & UFSET & " WHERE CEP = '" & CEPSET & "'", CON)
                Dim drdr As OleDbDataReader
                drdr = cmd.ExecuteReader
                drdr.Read()
                ENDERECO = drdr.Item("LOGRADOURO") & " " & drdr.Item("Nome")
                BAIRRO = drdr.Item("BAI_INI")
                CIDADE = drdr.Item("Localidade")
                cmd.Cancel()
                CON.Close()
            Catch ex As Exception
                MsgBox(ex.Message)
                CON.Close()
            End Try
        End Sub

    End Class
End Namespace

 

Para chamar o cep do form

 

 

Dim cep As New Ceps.Cep
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        cep.CEP(TextBoxCEP.Text, ComboBoxUF.Text)' fais a consulta na base de dados de ceps
        ListBox1.Items.Add("ENDERECO: " & cep.ENDERECO) ' pega os dados propriedade 
        ListBox1.Items.Add("BAIRRO: " & cep.BAIRRO)' pega os dados propriedade 
        ListBox1.Items.Add("CIDADE: " & cep.CIDADE)' pega os dados propriedade 
    End Sub