Duvida Em Listview

[mestre fyoda]

Meu codigo insere no bd mais de 1 nome igual no bd , quando eu fazer uma pesquizar gostaria de apresentar na listview todos os rafael por exemplo .

Private Sub Image1_Click()

Dim Busca As String

Dim Preenche As ListItem

Dim Busca_cod As ADODB.Recordset

Busca = InputBox("Digite o nome do cliente para que o sistema possa localizar-lo no sistema!", "LOCALIZAR")

Set Busca_cod = cn.Execute(" Select * from Carro where cliente = '" & Busca & "' ")

If Not Busca_cod.EOF = True Then

ListView.ListItems.Clear

          Set Preenche = ListView.ListItems.Add(, , Busca_cod("cliente"))

          Preenche.ListSubItems.Add , , Busca_cod("placa")

          Preenche.ListSubItems.Add , , Busca_cod("modelo")

          Preenche.ListSubItems.Add , , Busca_cod("ano")

          ListView.View = lvwReport

Else

Erro = MsgBox("Com o codigo de produto " & Busca & " não pudemos localizar", vbDefaultButton2)

End If

End Sub

[Graymalkin]

Basta mudar o critério para algo como:

"Select * from Carro where cliente = '" & Busca & "%'"

Além disso, em Busca_cod você poderá ter mais de um registro, bastando então percorrê-lo até chegar ao final da tabela (Eof).

Abraços,

Graymalkin

[mestre fyoda]

Como faço para quando eu abrir o form sem q selecione nenhum campo da Lisview .

[Graymalkin]

Como faço para quando eu abrir o form sem q selecione nenhum campo da Lisview .

Coloque HideSelection como True e a listview só mostrará a seleção quando estiver com o foco.

Abraços,

Grayamlkin

[mestre fyoda]

não eu certo .o meu já tava True .

[Graymalkin]

não eu certo .o meu já tava True .

E ela é que tem o foco inicialmente? Se for, então não vai dar certo mesmo.

Abraços,

Graymalkin

[mestre fyoda]

essa listview é um misterio , hehehhe piadinha .

to com uma duvida, ta dando erro : Run-time error '380' , Invalid property value

na linha vermelha .

A Flag foi declarada como Global String .

Private Sub Form_Load()

Centralizar Me

  Set rs_pesquisa = cn.Execute("SELECT * FROM Carro")

      While Not rs_pesquisa.EOF

          Set Item = ListView.ListItems.Add(, , rs_pesquisa("cliente"))

          Item.ListSubItems.Add , , rs_pesquisa("placa")

          Item.ListSubItems.Add , , rs_pesquisa("modelo")

          Item.ListSubItems.Add , , rs_pesquisa("ano")

          ListView.View = lvwReport

          rs_pesquisa.MoveNext

  Wend

End Sub

Private Sub Image1_Click()

Dim Busca As String

Dim Preenche As ListItem

Dim Busca_cod As ADODB.Recordset

Busca = InputBox("Digite o nome do cliente para que o sistema possa localizar-lo no sistema!", "LOCALIZAR")

Set Busca_cod = cn.Execute(" Select * from Carro where cliente = '" & Busca & "' ")

If Not Busca_cod.EOF = False Then

Erro = MsgBox("Com o codigo de produto " & Busca & " não pudemos localizar", vbDefaultButton2)

Else

ListView.ListItems.Clear

While Not Busca_cod.EOF

          Set Preenche = ListView.ListItems.Add(, , Busca_cod("cliente"))

          Preenche.ListSubItems.Add , , Busca_cod("placa")

          Preenche.ListSubItems.Add , , Busca_cod("modelo")

          Preenche.ListSubItems.Add , , Busca_cod("ano")

          ListView.View = lvwReport

          Busca_cod.MoveNext

Wend

End If

End Sub

Private Sub Image3_Click()

Unload Me

End Sub

Private Sub ListView_Click()

Flag = ListView.SelectedItem.SubItems(0)

Cod = ListView.SelectedItem.SubItems(1)

Cliente_Carro.Show

End Sub

[ramon]

Vou analizar aqui

[Graymalkin]

essa listview é um misterio , hehehhe piadinha .

to com uma duvida, ta dando erro : Run-time error '380' , Invalid property value

na linha vermelha .

A Flag foi declarada como Global String .

Private Sub Form_Load()

Centralizar Me

  Set rs_pesquisa = cn.Execute("SELECT * FROM Carro")

      While Not rs_pesquisa.EOF

          Set Item = ListView.ListItems.Add(, , rs_pesquisa("cliente"))

          Item.ListSubItems.Add , , rs_pesquisa("placa")

          Item.ListSubItems.Add , , rs_pesquisa("modelo")

          Item.ListSubItems.Add , , rs_pesquisa("ano")

          ListView.View = lvwReport

          rs_pesquisa.MoveNext

  Wend

End Sub

Private Sub Image1_Click()

Dim Busca As String

Dim Preenche As ListItem

Dim Busca_cod As ADODB.Recordset

Busca = InputBox("Digite o nome do cliente para que o sistema possa localizar-lo no sistema!", "LOCALIZAR")

Set Busca_cod = cn.Execute(" Select * from Carro where cliente = '" & Busca & "' ")

If Not Busca_cod.EOF = False Then

Erro = MsgBox("Com o codigo de produto " & Busca & " não pudemos localizar", vbDefaultButton2)

Else

ListView.ListItems.Clear

While Not Busca_cod.EOF

          Set Preenche = ListView.ListItems.Add(, , Busca_cod("cliente"))

          Preenche.ListSubItems.Add , , Busca_cod("placa")

          Preenche.ListSubItems.Add , , Busca_cod("modelo")

          Preenche.ListSubItems.Add , , Busca_cod("ano")

          ListView.View = lvwReport

          Busca_cod.MoveNext

Wend

End If

End Sub

Private Sub Image3_Click()

Unload Me

End Sub

Private Sub ListView_Click()

Flag = ListView.SelectedItem.SubItems(0)

Cod = ListView.SelectedItem.SubItems(1)

Cliente_Carro.Show

End Sub

Não tem SubItem(0), começa de SubItem(1). Se você quer a primeira coluna, então não precisa de SubItem, ela é o Item.

Abraços,

Graymalkin