none
relatorio de pesquisa RRS feed

  • Pergunta

  • boa tarde a todos aqui nesse forum estou com uma duvida em um codigo que estou fazendo como meu projeto de vb de final de curso. tenho que fazer uma consulto onde tenho um campo que digito uma parte do nome e ele preenche um listview, ex( mar) ele carrega no list view

    marcos, marcio, ou seja todos dos nomes que tenha mar e quando clico encima do nome e clico em pesquisar ele me chama uma outra tela que contenha os dados do nome....... estou usando access com oledb.

     

    desde ja agradeço

     

    terça-feira, 6 de dezembro de 2011 17:35

Todas as Respostas

  • Olá Aclempes,

    Esse código deve ajudar:

    Imports System.Data.OleDb
    Imports System.Data
    
    Public Class Form1
    
        Private Sub btnPesquisar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPesquisar.Click
            Dim strSql As String = String.Empty
    
            strSql = "select id, nome from tbcliente where nome like '{0}%'"
            strSql = String.Format(strSql, Me.txtPesquisar.Text.Trim())
    
            Dim con As New OleDbConnection("sua connection string")
            Dim command As New OleDbCommand(strSql, con)
    
            Dim da As New OleDbDataAdapter(command)
            Dim dt As New DataTable
    
            da.Fill(dt)
    
            Dim clientes As New List(Of Cliente)
            For index = 1 To dt.Rows.Count
                Dim cliente As New Cliente
    
                cliente.Id = Int32.Parse(dt.Rows(index)("id"))
                cliente.Name = dt.Rows(index)("nome").ToString
    
                clientes.Add(cliente)
            Next
    
            Me.ListBox1.DataSource = clientes
    
        End Sub
    
        Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
    
            Dim clienteSelecionado = CType(Me.ListBox1.SelectedItem, Cliente)
    
        End Sub
    End Class
    
    Public Class Cliente
    
        Private _id As String
        Public Property Id() As String
            Get
                Return _id
            End Get
            Set(ByVal value As String)
                _id = value
            End Set
        End Property
    
        Private _name As String
        Public Property Name() As String
            Get
                Return _name
            End Get
            Set(ByVal value As String)
                _name = value
            End Set
        End Property
    
    End Class
    
    

    []s!


    Fernando Henrique Inocêncio Borba Ferreira
    while(alive){ this.WriteCode(); }
    Blog: http://ferhenriquef.wordpress.com/
    Twitter: @ferhenrique
    quarta-feira, 7 de dezembro de 2011 00:02
    Moderador