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

vb6 - combobox

Discussão em 'Programação' iniciada por asa_delta, 24 de Outubro de 2008. (Respostas: 1; Visualizações: 1812)

  1. asa_delta

    asa_delta Power Member

    boas

    esta é dakelas duvidas báscicas, mas k não estou a conseguir resolver

    tenho uma tabela na BD, que tem duas colunas-codigo e designação, e na combobox já tenho a designação, e agora na label keria colocar o codigo da designação, entao fiz isto:

    Código:
    Private Sub CmbDesigna_Click()
     
    STRSQL2 = "Select re_codigo from residuos where re_designacao = '" & CmbDesigna.Text & "'"
    rstcmb2.CursorLocation = adUseClient
    rstcmb2.Open STRSQL2, cnn, adOpenDynamic, adLockOptimistic
    LblCodigo = rstcmb!re_codigo
     
    If rstcmb2.State = 1 Then
    rstcmb2.Close
    Set rstcmb = Nothing
    End If
    End Sub
    
     
    Última edição pelo moderador: 25 de Outubro de 2008
  2. alfinete

    alfinete Power Member

    se ja tens o select da combo a puxar os resultados para a combo ,
    ja não lembro de vb6 , pois ando mais em c# e vb.net que é muito diferente


    por os dados na combo

    Código:
    
      Adodc1.RecordSource = [COLOR=#ff0000]"SELECT * FROM tabela"[/COLOR]
        Adodc1.Refresh
        For I = 1 To Adodc1.Recordset.RecordCount
            Combo1.AddItem Adodc1.Recordset.Fields[COLOR=#66cc66]([/COLOR][COLOR=#ff0000]"descrcao"[/COLOR][COLOR=#66cc66])[/COLOR].Value
            Adodc1.Recordset.MoveNext
        Next
    
    penso que podes fazer ou

    cboBox.Text
    cboBox.value

    por os dados na lbl

    Código:
    
      Adodc2.RecordSource = [COLOR=#ff0000]"SELECT id FROM tabela where descricao ='"[/COLOR] & cbbox.text &"'"
      Adodc2.Refresh
      lbl.text = Adodc2.Recordset.Fields[COLOR=#66cc66]([/COLOR][COLOR=#ff0000]"id"[/COLOR][COLOR=#66cc66])[/COLOR].Value
    
      'ou
    
       
       lbltext = Cbbox.SelectedIndex
    
    
    algo do genero

    ajuda de vb

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

    ou

    http://www.vbcode.com/


    espero ter ajudado
     

Partilhar esta Página