POPULAR LISTVIEW COM BD

ADHEL 10/11/2009 12:36:40
#327322
BOA TARDE PESSOAL

FIZ UM FORM DE ORÇAMENTOS COM UM LISTVIEW QUE CADASTRA O CÓDIGO,NOME,PREÇOVENDA,QUANTIDADE,TOTAL
CRIEI UM TXTNÚMEROORÇAMENTO QUE é GRAVADO COM AS INFORMAÇÕES DO LISTVIEW


ABRO O BD E ESTÁ TUDO GRAVADO

ATé AQUI TUDO PERFEITO


SÓ QUE CRIEI UM FORM DE PESQUISAR ORÇAMENTO ATRAVéS DO NÚMERO

JÁ TENTEI DE DIVERSOS JEITOS E NÃO CONSEGUI.VOU POSTAR O ULTIMO JEITO QUE FIZ



Private Sub cmdPesquisar_Click()
Dim newitem As ListItems

Set rsOrçamentos = cnn.Execute([Ô]SELECT * FROM Orçamentos WHERE NúmeroOrçamento LIKE [ô]%[Ô] & txtNúmero & [Ô]%[ô][Ô])
If Not rsOrçamentos.EOF Then
txtCliente = rsOrçamentos!Cliente
txtData = rsOrçamentos!DataOrçamento

Do Until rsOrçamentos.EOF
Set newitem = lstOrçamentos.ListItems.Add(, rsOrçamentos([Ô]Código[Ô]))
newitem.SubItems(1) = rsOrçamentos([Ô]Nome[Ô])
newitem.SubItems(2) = rsOrçamentos([Ô]PreçoVenda[Ô])
newitem.SubItems(3) = rsOrçamentos([Ô]Quantidade[Ô])
newitem.SubItems(4) = rsOrçamentos([Ô]Total[Ô])
rsOrçamentos.MoveNext
Loop

End If
End Sub

E SEMPRE DÁ ESSE ERRO

METHOD OR DATA MEMBER NOT FOUND

DESDE JÁ MUITO OBRIGADO
MARCOSLING 10/11/2009 15:07:32
#327346
vc sabe em que linha ocorre o erro?

Obs.: evite utilizar acentuações em suas rotinas e estrutura de banco de dados
MARCELO.TREZE 10/11/2009 15:29:29
#327353 Resposta escolhida
O problema está nesta linha

Set rsOrçamentos = cnn.Execute([Ô]SELECT * FROM Orçamentos WHERE NúmeroOrçamento LIKE [ô]%[Ô] & txtNúmero & [Ô]%[ô][Ô])

verifique a grafia de todos os campos em negrito


dica: evite acentos em nome de campos isto pode lhe trazer problemas
ADHEL 10/11/2009 16:07:45
#327366
BOA TARDE MARCELO

REMOVI OS ACENTOS SEGUINDO SUA DICA E DO COMPANHEIRO MARCOSLING

AGORA O ERRO QUE DÁ é
INVALID KEY

REFIZ A CODIFICAÇÃO ,DÁ UMA OLHADA POR FAVOR

Private Sub cmdPesquisar_Click()
Dim i As Integer

Dim item As ListItems

Set rsOrçamentos = cnn.Execute([Ô]SELECT * FROM Orçamentos WHERE NumeroOrçamento LIKE [ô]%[Ô] & txtNumero & [Ô]%[ô][Ô])


If Not rsOrçamentos.EOF Then
txtCliente = rsOrçamentos!Cliente
txtData = rsOrçamentos!DataOrçamento

Do Until rsOrçamentos.EOF
Set item = lstOrçamentos.ListItems.Add(, rsOrçamentos([Ô]Codigo[Ô])) é NESSA LINHA QUE APRESENTA O ERRO
item(i).ListSubItems(1) = rsOrçamentos([Ô]Nome[Ô])
item(i).ListSubItems(2) = rsOrçamentos([Ô]PreçoVenda[Ô])
item(i).ListSubItems(3) = rsOrçamentos([Ô]Quantidade[Ô])
item(i).ListSubItems(4) = rsOrçamentos([Ô]Total[Ô])
rsOrçamentos.MoveNext
Loop

End If
End Sub

PS.REFIZ A CODIFICAÇÃO MAS NÃO SEI SE FOI ÚTIL
MARCELO.TREZE 10/11/2009 16:18:06
#327368
é porque falta uma virgula apósListItems.Add(,

Set item = lstOrçamentos.ListItems.Add(,, rsOrçamentos([Ô]Codigo[Ô]))
ADHEL 10/11/2009 16:20:26
#327369
PESSOAL COLOQUEI MAIS UMA VIRGULA NESSA LINHA

Set item = lstOrçamentos.ListItems.Add(, ,rsOrçamentos([Ô]Codigo[Ô])) é NESSA LINHA QUE APRESENTA O ERRO
O ERRO CONTINUA NESSA LINHA SÓ QUE AGORA O ERRO é
TYPE MISMATCH
MARCELO.TREZE 10/11/2009 17:37:39
#327379
vamos lá acredito ser apenas um listview que vc possua então o código correto é este

Private Sub cmdPesquisar_Click()
Dim item As ListItems

Set rsOrçamentos = cnn.Execute([Ô]SELECT * FROM Orçamentos WHERE NumeroOrçamento LIKE [ô]%[Ô] & txtNumero & [Ô]%[ô][Ô])


If Not rsOrçamentos.EOF Then
        txtCliente = rsOrçamentos!Cliente
        txtData = rsOrçamentos!DataOrçamento
        
   Do Until rsOrçamentos.EOF
         Set item = lstOrçamentos.ListItems.Add(,, rsOrçamentos([Ô]Codigo[Ô]))
         item.ListSubItems(1) = rsOrçamentos([Ô]Nome[Ô])
         item.ListSubItems(2) = rsOrçamentos([Ô]PreçoVenda[Ô])
         item.ListSubItems(3) = rsOrçamentos([Ô]Quantidade[Ô])
         item.ListSubItems(4) = rsOrçamentos([Ô]Total[Ô])
        rsOrçamentos.MoveNext
   Loop
      
End If
End Sub


tente ai irmão
ADHEL 10/11/2009 17:55:52
#327384
MARCELO NÃO DEU CERTO
DÁ ERRO NA LINHA

item.ListSubItems(1) = rsOrçamentos([Ô]Nome[Ô])
MAIS PRECISAMENTE NA PALAVRA LISTSUBITEMS(1)

O ERRO QUE APARECE é METHOD OU DATA MEMBER NOT FOUND
MARCELO.TREZE 10/11/2009 18:20:24
#327388
desculpe cada vez que vejo o código acho um erro, mas tente agora com o código abaixo

Private Sub cmdPesquisar_Click()
lstOrçamentos.ListItems.Clear

Set rsOrçamentos = cnn.Execute([Ô]SELECT * FROM Orçamentos WHERE NumeroOrçamento LIKE [ô]%[Ô] & txtNumero & [Ô]%[ô][Ô])

If Not rsOrçamentos.EOF Then
        txtCliente = rsOrçamentos!Cliente
        txtData = rsOrçamentos!DataOrçamento
        
   Do Until rsOrçamentos.EOF
         Set item = lstOrçamentos.ListItems.Add(,, rsOrçamentos([Ô]Codigo[Ô]))
         item.SubItems(1) = rsOrçamentos([Ô]Nome[Ô])
         item.SubItems(2) = rsOrçamentos([Ô]PreçoVenda[Ô])
         item.SubItems(3) = rsOrçamentos([Ô]Quantidade[Ô])
         item.SubItems(4) = rsOrçamentos([Ô]Total[Ô])
        rsOrçamentos.MoveNext
   Loop
      
End If
End Sub


agora tem de ir, rs
ADHEL 10/11/2009 18:33:32
#327389
MARCELO FICOU PERFEITO
MUITO OBRIGADO
VALEU AMIGO
Tópico encerrado , respostas não são mais permitidas
Voltar