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

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  mysql ado e listbox
Hilario
GUARULHOS
SP - BRASIL
Postada em 13/09/2005 00:05 hs            
Olá amigos, faz tempo que não visito o fórum.
Estou estudando mysql com ado. Gostaria de saber como é que eu faço para preencher um listbox ou qqer outro controle (textbox,etc) com os resultados de uma consulta select. Eu digitei o seguinte código:
 
Private Sub mnuconsulta_Click()
Dim informa As String
Dim cSql As String
informa = InputBox("Digite o nome ou o código da mercadoria a ser consultada")
If IsNumeric(Trim(informa)) Then
    cSql = "Select * from estoque where codigo = '" & Format(Trim(informa), "0000") & "' Order by Codigo "
Else
    cSql = "Select * from estoque where descricao like '*" & Trim(informa) & "*' Order by Codigo "
End If
List1.AddItem myRS("codigo") & myRS("descricao") & myRS("valor")
End Sub
O problema é que quando eu executo, só aparece o primeiro registro da tabela no listbox, não importa o nome que eu digitar na busca. O resultado da consulta não aparece.
Se alguém tiver um exemplo simples de como executar essa operação e puder me enviar eu ficaria grato.
Desde já obrigado e um grande abraço a todos.
joaquim.hilario.rodr@terra.com.br
     
kerplunk
Pontos: 2843 Pontos: 2843 Pontos: 2843
SÃO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 13/09/2005 08:27 hs         
Estranho ter funcionado, a consulta não é executada em nenhum momento nesse código. Mas pra esclarecer: uma consulta, pode retornar até milhões de registros, portanto, 1 ou mais registros, certo? Pois é, depois de abrir a consulta, vc precisa correr todo o Recordset para adicionar todos o registros no seu listbox:
Do while not myRs.Eof
    List1.AddItem myRS("codigo") & myRS("descricao") & myRS("valor")
    myRs.movenext
Loop
   
Página(s): 1/1    


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