PREENCHER LISTVIEW

SNNIFFER 27/11/2010 00:22:51
#358312
Estou usando o seguinte código para preencher uma ListView com uma consulta com parâmentros.

Só que simplesmente não acontece nada.

[txt-color=#e80000]Set prs = New ADODB.Recordset
prs.CursorLocation = adUseClient
prs.Open [Ô]SELECT * FROM dados WHERE cod = [ô][Ô] & txtOrdem.Text & [Ô][ô] AND Motorista=[ô][Ô] & CmbFuncionario.Text & [Ô][ô][Ô], gConexao, adOpenKeyset, adLockOptimistic

Lista.ListItems.Clear
If prs.RecordCount = 0 Then Exit Sub

While Not prs.EOF
Set lst = Lista.ListItems.Add(, , prs(0))

For i = 1 To 2
lst.SubItems(i) = prs(i)
Next i
prs.MoveNext
Wend[/txt-color]



Alguem pode me ajudar.

Vlw.
SACOFRITO 27/11/2010 00:30:09
#358313
Tente separadamente
eu faço assim


Do while not Tabela.eof
lst.text = primeirocampo.. pode ser um codigo ou item sei la
lst.subitems(1) = segundocampo
.
.
.
tabela.movenext
loop
SNNIFFER 27/11/2010 00:48:27
#358315
Bom Sacofrito, acho que este código seria para preencher o objeto com dados da tabela, certo?
O que necessito é de um parâmetro correto para preenche-lo com dados de uma consulta.


Vlw
SNNIFFER 27/11/2010 03:09:31
#358318
Bom pessoal consegui, ta ai:

[txt-color=#e80000] Set prs = New ADODB.Recordset
SQL = [Ô]select * from dados where controle = [ô][Ô] & CmbControLE.Text & [Ô][ô] and motorista = [ô][Ô] & CmbMotorista.Text & [Ô][ô][Ô]
prs.Open SQL, gConexao, adOpenStatic, adLockOptimistic, adCmdText
Lista.ListItems.Clear
While Not prs.EOF
Set lst = Lista.ListItems.Add(, , prs(0))

For i = 1 To 9
lst.SubItems(i) = prs(i)
Next i
prs.MoveNext
Wend[/txt-color]
Tópico encerrado , respostas não são mais permitidas
Voltar