DIGITAR NA TEXTBOX E RETORNAR OS DADOS
Olá, amigos, estou novamente aqui [Ô]dando trabalho[Ô] para vocês.
O que eu gostaria de fazer agora é digitar algo numa TextBox e ao passo que iria digitando, ia mostrando os registros numa ListView.
Tenho isso em VB6, mostrando os dados numa FlexGrid:
Private Sub TxtProcurar_Change()
sqlr = [Ô]Select * From Ramais Where nome Like [ô]*[Ô] & TxtProcurar.Text & [Ô]*[ô][Ô]
Set rsr = db.OpenRecordset(sqlr)
intproximalinha = GridRamais.FixedRows
GridRamais.Rows = GridRamais.FixedRows
GridRamais.Clear
GridRamais.FormatString = [Ô]Nome [Ô] & [Ô]|[Ô] & _
[Ô]Ramal [Ô]
intproximalinha = GridRamais.FixedRows
Do Until rsr.EOF
If intproximalinha >= GridRamais.Rows Then
GridRamais.Rows = intproximalinha + 1
End If
With GridRamais
.TextMatrix(intproximalinha, 0) = rsr([Ô]nome[Ô])
.TextMatrix(intproximalinha, 1) = rsr([Ô]ramal[Ô])
End With
intproximalinha = intproximalinha + 1
rsr.MoveNext
Loop
End Sub
Gostaria de [Ô]transformar[Ô] esse código para o VB.Net.
Aguardo quem puder me ajudar.
Até mais.
O que eu gostaria de fazer agora é digitar algo numa TextBox e ao passo que iria digitando, ia mostrando os registros numa ListView.
Tenho isso em VB6, mostrando os dados numa FlexGrid:
Private Sub TxtProcurar_Change()
sqlr = [Ô]Select * From Ramais Where nome Like [ô]*[Ô] & TxtProcurar.Text & [Ô]*[ô][Ô]
Set rsr = db.OpenRecordset(sqlr)
intproximalinha = GridRamais.FixedRows
GridRamais.Rows = GridRamais.FixedRows
GridRamais.Clear
GridRamais.FormatString = [Ô]Nome [Ô] & [Ô]|[Ô] & _
[Ô]Ramal [Ô]
intproximalinha = GridRamais.FixedRows
Do Until rsr.EOF
If intproximalinha >= GridRamais.Rows Then
GridRamais.Rows = intproximalinha + 1
End If
With GridRamais
.TextMatrix(intproximalinha, 0) = rsr([Ô]nome[Ô])
.TextMatrix(intproximalinha, 1) = rsr([Ô]ramal[Ô])
End With
intproximalinha = intproximalinha + 1
rsr.MoveNext
Loop
End Sub
Gostaria de [Ô]transformar[Ô] esse código para o VB.Net.
Aguardo quem puder me ajudar.
Até mais.
poste a tela que executa esses comandos, ai agalera saca mais facil.
Aqui está o projeto feito em VB6
olha esse aki
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NOME_TXT.TextChanged
ListView1.Items.Clear()
CONECT.Open()
COMAND.CommandText = ([Ô]SELECT COD_CLI,NOME_CLI FROM CAD_CLI WHERE NOME_CLI LIKE [ô]%[Ô] & NOME_TXT.Text & [Ô]%[ô] ORDER BY COD_CLI[Ô])
DR = COMAND.ExecuteReader
While DR.Read
Dim CODIDO As String = DR.Item(0)
Dim LS As New ListViewItem(CODIDO, 0)
LS.SubItems.Add(DR.Item(1))
ListView1.Items.Add(LS)
End While
CONECT.Close()
conforme vc vai digitando ele ja vai jogando no listview o que for satisfatorio na pesquisa.!
uso isso na evento TextChanged do textbox,
conforme vc vai digitando o select vai apagando o listview w fazendo a nova pesquisa confome escrito no texrbox!!
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NOME_TXT.TextChanged
ListView1.Items.Clear()
CONECT.Open()
COMAND.CommandText = ([Ô]SELECT COD_CLI,NOME_CLI FROM CAD_CLI WHERE NOME_CLI LIKE [ô]%[Ô] & NOME_TXT.Text & [Ô]%[ô] ORDER BY COD_CLI[Ô])
DR = COMAND.ExecuteReader
While DR.Read
Dim CODIDO As String = DR.Item(0)
Dim LS As New ListViewItem(CODIDO, 0)
LS.SubItems.Add(DR.Item(1))
ListView1.Items.Add(LS)
End While
CONECT.Close()
conforme vc vai digitando ele ja vai jogando no listview o que for satisfatorio na pesquisa.!
uso isso na evento TextChanged do textbox,
conforme vc vai digitando o select vai apagando o listview w fazendo a nova pesquisa confome escrito no texrbox!!
Valeu, colega é isso mesmo. Obrigado pela ajuda.
Até mais.
Até mais.
Tópico encerrado , respostas não são mais permitidas