1. Este site usa cookies. Ao continuar a usar este site está a concordar com o nosso uso de cookies. Saber Mais.

combox com base dados visual basic 2005

Discussão em 'Programação' iniciada por pto.master, 31 de Julho de 2007. (Respostas: 4; Visualizações: 1159)

  1. pto.master

    pto.master Power Member

    ola amigos tenho um problema com as combox mais basedados access

    Tenho uma base de dados com as seguintes caractiristicas
    1 tabela jogos com os seguintes campos
    nome;descrisao...
    eu quero que apareca na combox os nomes dos jogos todos e quando carregar num por exemplo age of enpires..... ele aparece a descrisao numa texbox.....

    [​IMG]
     
    Última edição: 31 de Julho de 2007
  2. cabiros

    cabiros Power Member

    Pedia que não voltasses a escrever nessa cor porque qualquer outro utilizador terá dificuldade em ler e depois cuidado com os erros. :)

    Para teres os dados na combo terás de lhe definir os dados que la queres colocar e o que é apresentado, podes fazer através de um dataset ou algo do género. Para depois veres os detalhes terás de colocar na query, que vai buscar os dados para preencher os campos ou uma eventual grid, algo do tipo Where nomecombo.selectvalue.
     
  3. Crepito

    Crepito Power Member

    associas a coluna k keres a combobox por bindingcontext ( n sei se o 2k3 tem, mas no 2k5 podes fazer automaticamente, carregando na setinha preta k aparece em cima da combobox do lado direito e seleccionando a tabela k keres k ele mostre ). depois e so fazer o que o post anterior referiu. Pegar no value e com ele sacar a descricao descricao.


    Basicamente e isto. Agora se n tiveres a minima ideia de como implementar isto, convem pesquisares no google por visual basic .net e ado.net
     
  4. cabiros

    cabiros Power Member


    Exacto, podes usar os assistentes do .net. Com eles fazes essa parte da aplicação em 15 minutos.
     
  5. alfinete

    alfinete Power Member

    tens aqui um exemplo de codigo atraves de ado.net com oledb , e bd access

    Código:
    
    [FONT=Verdana][/FONT][FONT=Verdana][SIZE=2][COLOR=#808000]'define a string com o comando SQL e a         string de conexão usando um provedor OLEDB[/COLOR][/SIZE][/FONT][FONT=Verdana][SIZE=2]
              dim strSQL as string="Select nome from [/SIZE][/FONT][FONT=Verdana][SIZE=2]Tabelajogos[/SIZE][/FONT][FONT=Verdana][SIZE=2]"
              dim strConn         as strng="PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA         SOURCE=c:\teste\Nwind2002.mdb"
            
              [/SIZE][/FONT][FONT=Verdana][SIZE=2][COLOR=#808000]'Abre a conexão com a fonte de dados[/COLOR][/SIZE][/FONT][FONT=Verdana][SIZE=2]
              dim Conn as oledbconnection= New OLEDBConnection(strConn) 
              Conn.Open() 
            
              try
               [/SIZE][/FONT][FONT=Verdana][SIZE=2][COLOR=#808000] 'cria o objeto DataAdapter[/COLOR][/SIZE][/FONT][FONT=Verdana][SIZE=2]
                dim da as [/SIZE][/FONT][FONT=Verdana][SIZE=2]oledbDataAdapter[/SIZE][/FONT][FONT=Verdana][SIZE=2]= New OleDbDataAdapter(strSQL,         Conn)
                [/SIZE][/FONT][FONT=Verdana][SIZE=2][COLOR=#808000]'Cria e preenche o DataSet [/COLOR][/SIZE][/FONT][FONT=Verdana][SIZE=2]
                dim ds as dataset = New DataSet()
                da.Fill(ds,"TAbjogos")
    
                [/SIZE][/FONT][FONT=Verdana][SIZE=2][COLOR=#808000]'Define o preenchimento do controle         DropDownList[/COLOR][/SIZE][/FONT][FONT=Verdana][/FONT][FONT=Verdana][SIZE=2][COLOR=#808000]     'ddl1 - nome da dropdownlist[/COLOR][/SIZE][/FONT]
    [FONT=Verdana][SIZE=2]    ddl1.DataTextField =         "nome"
                ddl1.DataValueField =         "nome"
                ddl1.DataSource =         ds.Tables("[/SIZE][/FONT][FONT=Verdana][SIZE=2]Tabelajogos[/SIZE][/FONT][FONT=Verdana][SIZE=2]").DefaultView
                ddl1.DataBind()
              Finally
                Conn.Close() 
              end try 
            end if[/SIZE][/FONT]
    
    

    tens aqui um exemplo de codigo atraves de ado.net , e bd sqlserver 2000


    Código:
    
    
    [FONT=Verdana][/FONT][FONT=Verdana][SIZE=2][COLOR=#808000]'define a string com o comando SQL e a         string de conexão 
    
    [/COLOR][/SIZE][/FONT][FONT=Verdana][SIZE=2][COLOR=#808000][COLOR=LemonChiffon]  dim str_ligacao As String = "data source=(local);initial catalog=nomedabd;integrated       security=SSPI;persist security info=True"
    
       Dim sel As String = " [/COLOR][/COLOR][/SIZE][/FONT][FONT=Verdana][SIZE=2]Select nome from Tabelajogos[/SIZE][/FONT]"[FONT=Verdana][SIZE=2][COLOR=#808000][COLOR=LemonChiffon] 
        Dim comando As SqlCommand = New SqlCommand(strligacao, sel)
    [/COLOR] [/COLOR][/SIZE][/FONT]
    [FONT=Verdana][/FONT][FONT=Verdana][/FONT][FONT=Verdana][SIZE=2][COLOR=#808000]'Abre a conexão com a fonte de dados[/COLOR][/SIZE][/FONT][FONT=Verdana][SIZE=2]
              
              str_ligacao.Open() 
            
              try
               [/SIZE][/FONT][FONT=Verdana][SIZE=2][COLOR=#808000] 'cria o objeto DataAdapter[/COLOR][/SIZE][/FONT][FONT=Verdana][SIZE=2]
                dim da as sql[/SIZE][/FONT][FONT=Verdana][SIZE=2]DataAdapter[/SIZE][/FONT][FONT=Verdana][SIZE=2]= New sqlDataAdapter(sel, ligacao)
                [/SIZE][/FONT][FONT=Verdana][SIZE=2][COLOR=#808000]'Cria e preenche o DataSet [/COLOR][/SIZE][/FONT][FONT=Verdana][SIZE=2]
                dim ds as dataset = New DataSet()
                da.Fill(ds,"[/SIZE][/FONT][FONT=Verdana][SIZE=2]Tabelajogos[/SIZE][/FONT][FONT=Verdana][SIZE=2]")
    
                [/SIZE][/FONT][FONT=Verdana][SIZE=2][COLOR=#808000]'Define o preenchimento do controle         DropDownList[/COLOR][/SIZE][/FONT][FONT=Verdana][/FONT][FONT=Verdana][SIZE=2][COLOR=#808000]     'ddl1 - nome da dropdownlist[/COLOR][/SIZE][/FONT]
    [FONT=Verdana][SIZE=2]    ddl1.DataTextField =         "nome"
                ddl1.DataValueField =         "nome"
                ddl1.DataSource =         ds.Tables("[/SIZE][/FONT][FONT=Verdana][SIZE=2]Tabelajogos[/SIZE][/FONT][FONT=Verdana][SIZE=2]").DefaultView
                ddl1.DataBind()
              Finally
                strligacao.Close() 
              end try 
            end if[/SIZE][/FONT]
    
    
    
    para mais informação tens ajuda nesta pag
    tens la de tudo

    se não me engano é melhor pores um deste codigos no evento (form init ou form load do teu form)

    este codigo serve so para pores os nome na drop dwon list, o outro do clicar num nome da drop e mostrares o que ele quer ja é um pouco mais dificil, mas uma dica penso que é o evento onselectindex ou text change da dropdownlist, um destes dois nam me lembro qual

    espero que estas dicas ajudem

    http://www.macoratti.net/aspn_tcd.htm
     

Partilhar esta Página