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

 

  Fórum

  Visual Basic .Net
Voltar
Autor Assunto:  Combobox no vb.net
Alexandre
não registrado
Postada em 26/07/2004 20:51 hs   
Galera,
 
como que eu faço para inserir um combobox no db access, pois todos os txt do meu form vão sem problema, mas o maldito não manda as informações nele contida.
Esse combo está puxando informações de uma tabela do db tbm!!!
 
Me ajudem, ficarei muito grato....
 
Alexandre.
     
vilmarbr
Pontos: 2843
SAO PAULO
SP - BRASIL
Postada em 27/07/2004 15:21 hs         
OI,
Se o que vc. quer é montar um combo dinâmico, vc. pode tentar isso:
 
 '>>Instrução SQL p/ montar o combo dos bancos. 
 strSQL = "Select BCCOD,BCDESCR from HT_DBGERAL_DBANCO order by BCCOD"
 objCommand = New OleDbCommand(strSQL, objConexao) '»»Define a instrução SQL a ser executada.
 objDataReader = objCommand.ExecuteReader() '»»Armazena o valor da consulta no objeto DataReader.
 
 '>>INÍCIO: Montagem do combo cboBanco. 
 While objDataReader.Read = true
  cboPlano.Items.Add(New ListItem(objDataReader("BCCOD") & " - " & objDataReader("BCDESCR")))
 End While
 '>>FIM: Montagem do combo cboBanco.
 '>>INÍCIO: Rotina p/ fechar/tirar objetos da memória.
 objDataReader.Close()
 objDataReader = Nothing
 '>>FIM: Rotina p/ fechar/tirar objetos da memória.
 
t+

http://www.vilmarbro.com.br
     
Web
SANTO ANDRÉ
SP - BRASIL
Postada em 27/07/2004 20:59 hs         
Puxar do banco de dados está sem problema, o que está pegando é quendo mando os dados para serem armazenados o unico que não está indo é o do combobox!!!
 
 
Valeu....


Alexandre WEB
Solution Developer
     
vilmarbr
Pontos: 2843
SAO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 28/07/2004 12:22 hs         
Oi,
Pega os dados do combo por request assim:
Dim var1 as string = request("cboTeste").
sql = "insert into tabela(campo) values('" & var1  & "')"
 
t+

http://www.vilmarbro.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-2026   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página