USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  De Listbox para DataReport VB6
liPPe
CÂNDIDO MOTA
SP - BRASIL
Postada em 05/05/2008 15:41 hs            
Pessoal, valeu pela dica... respondo assim que tentar...
     
liPPe
CÂNDIDO MOTA
SP - BRASIL
ENUNCIADA !
Postada em 06/05/2008 07:54 hs            
Pessoal, testei o código e gerou o seguinte erro:Erro em tempo de execução '-214727913 (80040e07)':Tipo de dados incompatíveis na expressão de critério.Na depuração eu inspecionei a variável sql:"SELECT CodPro, Req_Recl, Rcld, EndRcld, NumRcld, Motivo, TipoDoc From TabProtocolo WHERE TabProtocolo.CodPro in(1,5,10,0) ORDER BY CodPro"gerou a consulta acima... o quarto número, o zero entrou de gaiato, ele não faz parte da minha consulta, o certo não seria consultar 0001, 0005, 0010? pq não tá ficando os zeros?Mais uma vez obrigado aos amigos que ajudaram...Ah, na depuração apontou erro na linha:Rst.Open sql, Cnn, adOpenKeyset, adLockOptimistic (não tenho certeza quanto ao uso de adOpenKeyset e adLockOptimistic)
   
José Ari
MANAUS
AM - BRASIL
Postada em 06/05/2008 16:47 hs            
ae cara vc tem que dizer por VB que os campos de teu Listbox sao String, por exemplo declara:
 
Dim MeuValorListBox as String
 
ae no caso quando tiver pegando os valores do teu ListBox seria:
MeuValorListBox = mid(ListBox.List(i), 1, 4)
 
entendeu??? pois do jeito que vc tava fazendo o VB entendia que 0001 = 1, e 0104 = 104....
 
espero ter ajudado!!

================================================================
O Aprendizado é Direito de Todos. O Saber é Privilégio de Poucos.

Começando a estudar VB.NET. Realmente é incrível!!!!

     
Alex
não registrado
ENUNCIADA !
Postada em 26/02/2009 19:40 hs   
Pessoal alguem poderia me ajudar a ressucitar esse topico? Estou tentando criar um relatorio com mas nao estou conseguindo.
   
Página(s): 2/2     « ANTERIOR  


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página