INSERIR DADOS NO LISTVIEW
Galera,
No banco de dados Mysql tenho os seguintes campos gerencia (0 ou 1) vetado (0 ou 1).
no listview gostaria de quando fosse realizado a consulta na tabela se a gerencia = 1 no listview AUTORIZADO senão na tabela vetado = 1 no listview = VETADO.
como fazer isso?
segue o código que estou tentanto
On Error GoTo ErrAbrir
Dim newlist As ListItem
On Error GoTo ErrAbrir
Lista.ListItems.Clear
Mycon.Open [Ô]DSN=est1112[Ô]
Set myrs = New Recordset
myrs.Open [Ô]SELECT oc001.id, oc001.dtentrada, oc001.requisicao, oc001.vvalors, oc001.tecnico, oc001.codigocliente, tblcliente.nome, oc001.consolidado, oc001.gerencia, oc001.vetado from tblcliente right join oc001 on oc001.codigocliente = tblcliente.codigo where oc001.consolidado = 0 [Ô], Mycon, adOpenForwardOnly, adLockReadOnly
Do Until myrs.EOF
Set newlist = Lista.ListItems.Add(, [Ô] Key [Ô] & myrs([Ô]id[Ô]), myrs([Ô]id[Ô]))
newlist.SubItems(1) = Format(myrs!dtentrada, [Ô]dd/mm/yyyy[Ô])
newlist.SubItems(2) = [Ô][Ô] & myrs([Ô]requisicao[Ô])
newlist.SubItems(3) = [Ô][Ô] & myrs([Ô]nome[Ô])
newlist.SubItems(4) = Format(myrs!vvalors, [Ô]###,##0.00[Ô])
newlist.SubItems(5) = [Ô][Ô] & myrs([Ô]tecnico[Ô])
If myrs!gerencia <> 0 Then
newlist.SubItems(6) = [Ô]AUTORIZADO[Ô]
ElseIf myrs!VETADO <> 0 Then
newlist.SubItems(6) = [Ô]VETADO[Ô]
End If
myrs.MoveNext
Loop
myrs.Close
ErrAbrir:
With Err
If .Number <> 0 Then
[ô] MsgBox [Ô]Não localizado...[Ô], vbInformation, [Ô]Objetivo[Ô]
.Number = 0
End If
End With
Mycon.Close
o campo está retornando em branco.
Amigos desde já agradeço.
No banco de dados Mysql tenho os seguintes campos gerencia (0 ou 1) vetado (0 ou 1).
no listview gostaria de quando fosse realizado a consulta na tabela se a gerencia = 1 no listview AUTORIZADO senão na tabela vetado = 1 no listview = VETADO.
como fazer isso?
segue o código que estou tentanto
On Error GoTo ErrAbrir
Dim newlist As ListItem
On Error GoTo ErrAbrir
Lista.ListItems.Clear
Mycon.Open [Ô]DSN=est1112[Ô]
Set myrs = New Recordset
myrs.Open [Ô]SELECT oc001.id, oc001.dtentrada, oc001.requisicao, oc001.vvalors, oc001.tecnico, oc001.codigocliente, tblcliente.nome, oc001.consolidado, oc001.gerencia, oc001.vetado from tblcliente right join oc001 on oc001.codigocliente = tblcliente.codigo where oc001.consolidado = 0 [Ô], Mycon, adOpenForwardOnly, adLockReadOnly
Do Until myrs.EOF
Set newlist = Lista.ListItems.Add(, [Ô] Key [Ô] & myrs([Ô]id[Ô]), myrs([Ô]id[Ô]))
newlist.SubItems(1) = Format(myrs!dtentrada, [Ô]dd/mm/yyyy[Ô])
newlist.SubItems(2) = [Ô][Ô] & myrs([Ô]requisicao[Ô])
newlist.SubItems(3) = [Ô][Ô] & myrs([Ô]nome[Ô])
newlist.SubItems(4) = Format(myrs!vvalors, [Ô]###,##0.00[Ô])
newlist.SubItems(5) = [Ô][Ô] & myrs([Ô]tecnico[Ô])
If myrs!gerencia <> 0 Then
newlist.SubItems(6) = [Ô]AUTORIZADO[Ô]
ElseIf myrs!VETADO <> 0 Then
newlist.SubItems(6) = [Ô]VETADO[Ô]
End If
myrs.MoveNext
Loop
myrs.Close
ErrAbrir:
With Err
If .Number <> 0 Then
[ô] MsgBox [Ô]Não localizado...[Ô], vbInformation, [Ô]Objetivo[Ô]
.Number = 0
End If
End With
Mycon.Close
o campo está retornando em branco.
Amigos desde já agradeço.
tenta:
Citação:
Do Until myrs.EOF
Set newlist = Lista.ListItems.Add(, [Ô] Key [Ô] & myrs([Ô]id[Ô]), myrs([Ô]id[Ô]))
newlist.SubItems(1) = Format(myrs!dtentrada, [Ô]dd/mm/yyyy[Ô])
newlist.SubItems(2) = [Ô][Ô] & myrs([Ô]requisicao[Ô])
newlist.SubItems(3) = [Ô][Ô] & myrs([Ô]nome[Ô])
newlist.SubItems(4) = Format(myrs!vvalors, [Ô]###,##0.00[Ô])
newlist.SubItems(5) = [Ô][Ô] & myrs([Ô]tecnico[Ô])
newlist.SubItems(6) = [Ô][Ô] & IIF(myrs([Ô]gerencia[Ô])=[ô]1[ô], [ô]AUTORIZADO[ô],[ô]VETADO[ô])
myrs.MoveNext
Loop
Dekinho, bom dia!
Funcionou perfeitamente, muito obrigado!
Funcionou perfeitamente, muito obrigado!
Tópico encerrado , respostas não são mais permitidas