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

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  carrgar listbox com dados do banco de dados
Rafael The Best
SÃO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 26/01/2005 08:48 hs            
tenho uma tela que possui um listbox.
quando eu clicar em consultar, como eu faço para que os dados do meu banco de dados apareça no listbox?
Por exemplo:
sql = select nome, telefone from clientes order by nome.
quando eu clicar em ok aparecer todos os nomes e endereços no list box?
Estou fazendo aqui, só que eu não lembro que propriedade eu uso, faz muito tempo que não uso listbox.
como faço isso?
valeu

Rafael Carlos Martin
Desenvolvedor de WebSites e Sitemas
E-mail:rafa-martin@ibest.com.br
   
AndrePaulo
SÃO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 26/01/2005 08:58 hs            
list1.additem TABELA("campo")
 
Lembrando que TABELA é a variavél tipo Recordset que voce vai executar a instrução SQL ... ok ???
mas cara eu particularmente não sei como faz outra coluna ... por isso eu uso o MSFlexGrid ... ai voce pode separar as colunas ...
 
mas assim .. voce fazendo já aparecer o nome do cara ... faz que quando ele der um duplo clique no nome ... apareça em algum text o endereço dele e as informações demais q voce deseja visualizar .. fica legal também ...
 
espero ter ajudado

Emoções ¿? AndrePaulo ¿? Emoções
TÓPICO EDITADO
 
Ganbity
RIO DE JANEIRO
RJ - BRASIL
ENUNCIADA !
Postada em 26/01/2005 13:04 hs            
do while not tabela.eof
  list1.additem tabela("nome") & " " & tabela("Telefone")
tabela.movenext
loop
 
espero ter ajudado

"A complexidade do programa cresce até exceder a competência do programador. "

Luciano de Paula

Desenvolvedor - Analista

lufra2@bol.com.br

 
   
Rafael The Best
SÃO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 26/01/2005 15:08 hs            
está dando erro nessa linha:
Set Registro = Banco.OpenRecordset("Cliente")
 
o código fonte dentro do load do form é este:
 
Dim Banco As Database
Dim Registro As Recordset
ChDir "c:Sistema Pizzaria" 'Coloque aqui o caminho onde se encontra o banco
Set Banco = Workspaces(0).OpenDatabase("Cliente.mdb")
Set Registro = Banco.OpenRecordset("Cliente")
Do While Registro.EOF = False
   List1.AddItem Registro!nomepizza
   Registro.MoveNext
Loop
 
fiz todas as referencias certinhas e dá erro de type mismatch.
e eu não lembro o que esse erro significa.
 
 
 

Rafael Carlos Martin
Desenvolvedor de WebSites e Sitemas
E-mail:rafa-martin@ibest.com.br
   
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