Autor Tema: Listbox (Leído 1204 veces)

Kiyuu · « **en:** Lunes 10 de Abril de 2006, 12:55 »

Hola a TODOS. A ver si me echais un cable.

Lo que pido es muy sencillo. Tengo un list box que se carga de informacion de una base de datos acces con ADO correspodiente al Campo1 de esa base de datos.

Mi pregunta es bien sencilla. Quiero crear un TextBox al lado de esa List Box y que cuando se selecione un Item de la ListaBox , en el TextBox quede reflejado el Campo2 de la misma base de datos y de ese registro.

Un saludo.

Shiquilla · « **Respuesta #1 en:** Lunes 10 de Abril de 2006, 19:18 »

Al item que agregues a la lista tienes que ponerle el ID que tienes en base de datos, esto se hace con esta linea:

Lista.ItemData(Lista.NewIndex) = IIf(Not IsNull(loRS!nCodigo), loRS!nCodigo, 0)

Luego, para saber en dónde ha clickado el usuario, sería recoger el código que ha seleccionado y hacer la SELECT correspondiente:

lidCodigo = Lista.ItemData(Lista.ListIndex)

Te paso un ejemplo

Código: Text

Option Explicit
Private goConexion As ADODB.Connection
Private Const gsCadenaConexion = &#34;PROVIDER=SQLOLEDB;DATA SOURCE=(local);DATABASE=BaseDeDatos;UID=sa;PWD=&#34;
 
Private Sub Form_Load()
    msCargarLista
End Sub
 
Public Property Get goBD() As Connection
    
Dim lsCadenaConexion As String
    
    lsCadenaConexion = gsCadenaConexion
    If goConexion Is Nothing Then
        Set goConexion = New ADODB.Connection
        goConexion.Open lsCadenaConexion
    Else
        If goConexion.State = 0 Then goConexion.Open lsCadenaConexion
    End If
    Set goBD = goConexion
    
End Property
 
Private Sub msCargarLista()
Dim loItem As ListBox
Dim lsSQL As String
Dim loRS As Recordset
 
    Lista.Clear
 
    lsSQL = &#34;SELECT * FROM Empresas&#34;
    Set loRS = goBD.Execute(lsSQL)
    While Not loRS.EOF
        Lista.AddItem IIf(Not IsNull(loRS!sNombre), loRS!sNombre, &#34;&#34;)
        Lista.ItemData(Lista.NewIndex) = IIf(Not IsNull(loRS!nCodigo), loRS!nCodigo, 0)
        loRS.MoveNext
    Wend
    loRS.Close
    Set loRS = Nothing
 
End Sub
 
Private Sub Lista_Click()
Dim lidCodigo As Long
Dim lsSQL As String
Dim loRS As Recordset
    Text1.Text = &#34;&#34;
    
    If Lista.ListIndex &#60;&#62; -1 Then
        lidCodigo = Lista.ItemData(Lista.ListIndex)
        
        lsSQL = &#34;SELECT * FROM Empresas WHERE nCodigo = &#34; & lidCodigo
        Set loRS = goBD.Execute(lsSQL)
        If Not loRS.EOF Then
            Text1.Text = IIf(Not IsNull(loRS!sDireccion), loRS!sDireccion, &#34;&#34;)
        End If
        loRS.Close
        Set loRS = Nothing
        
    End If
    
End Sub
 

Saludos,

SoloCodigo

Autor Tema: Listbox (Leído 1204 veces)

Kiyuu

Listbox

Shiquilla

Re: Listbox