URGENTE..COMBO

DIOGOMUNARIN 03/06/2005 10:36:09
#86775
Preciso de ajuda urgente.....é o seguinte...tenho uma combo preciso mostrar o campo NOME da tabela e guardar o CODIGO.......e quando for navegar pelos registros sempre aparecer o NOME....obs: uso ADO..
LIZANDRO 03/06/2005 10:42:49
#86779
Primeiro uso uma função para carregar o combo

  
Public Sub MontaCombo(ByRef pCombo As ComboBox, ByVal pCampo As String, ByVal pTabela As String, ByVal OrderBy As String, Optional pStringWhere As String)
    Dim objRs                           As New ADODB.Recordset
    
    gsSql = "SELECT " & pCampo & " FROM " & pTabela & IIf(Len(pStringWhere) = 0, "", " Where " & pStringWhere) & " Order by " & OrderBy
    pCombo.Clear
    Call objConexaoDB.GetRecordSet(gsSql, objRs)
    While Not objRs.EOF
      pCombo.AddItem objRs.Fields(1)
      pCombo.ItemData(pCombo.NewIndex) = objRs(0)
      objRs.MoveNext
    Wend
    Set objRs = Nothing
End Sub


Depois uso a função

codigo = objCombo.Obtem_ItemData(cmbCidade)

 
Public Function Obtem_ItemData(objCombo As ComboBox) As Long
    Dim strPartial As String
    Dim i As Long
    With objCombo
      If Len(.Text) Then
        strPartial = .Text
        i = SendMessage(.hWnd, CB_FINDSTRING, -1, ByVal strPartial)
        If (Not i = CB_ERR) Then
           Obtem_ItemData = objCombo.ItemData(i)
        End If
      End If
    End With
End Function


desculpa se te compliquei
USUARIO.EXCLUIDOS 03/06/2005 12:20:39
#86822 Resposta escolhida
Usa Combo com ADO, uma nova ferramenta, veja o exemplo aqui !!!
Clique aqui faça pra fazer o download
Tópico encerrado , respostas não são mais permitidas
Voltar