relatorio de pesquisa

Question

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

 

Answer 1

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