Autor Tema: Comboxbox Con Tres Columnas (Leído 1216 veces)

Sagma · « **en:** Lunes 13 de Noviembre de 2006, 17:24 »

Hola a todos, quisiera que me ayudasen, ya estoy

, de no poder captar, pero weno, este es mi problema.

tengo un combobox que lo lleno desde una DB:

Código: Text

 
    Function cargar_combo()
 
        Dim Trx As New AccesoDatos.Transacciones(False)
        Dim DtP As New DataTable
        Dim Ad As New AccesoDatos.Operaciones(Trx.Comand)
 
        DtP = Ad.EjecturarConsulta(&#34;SELECT * FROM PERIODOS ORDER BY ID_PERIODOS desc&#34;)
        Me.cmb_periodo.DataSource = DtP
        Me.cmb_periodo.DisplayMember = &#34;DESCRIPCIONperi&#34;
        Me.cmb_periodo.ValueMember = &#34;ID_PERIODOS&#34;
 
        Trx.CerrarConexion()
 
    End Function

con ese codigo lo lleno, pero solo un dato o una columna.

Buscando en la web, he encontrado que poniando la consulta select:

Código: Text

 
DtP = Ad.EjecturarConsulta(&#34;SELECT ID_PERIODOS+'-'+SEMESTREperi+'-'+ANIOper as Lista FROM PERIODOS ORDER BY ID_PERIODOS desc&#34;)
        Me.cmb_periodo.DisplayMember = &#34;Lista&#34;
        Me.cmb_periodo.ValueMember = &#34;Lista&#34;

pero no me funca, agradeceria su orientacion

gracias

senzao18

Pues para que la consulta (select) funcione primero tienen que ser todos los campos de tipo cadena... sino te va a marcar error el SQL.....

Trata haciendo cast a los campos........

Sagma

hola que tal, gracias por tu sugerencia, pero el problema que tenia era que algunos campos era INTEGER.

Asi que se lo he echo de esta forma, y funca.
solo era convertir:

Código: Text

 
convert(varchar(20),ANIOSperi)

Código: Text

 
    Function cargar_combo()
 
        Dim Trx As New AccesoDatos.Transacciones(False)
        Dim DtE As New DataTable
        Dim Ad As New AccesoDatos.Operaciones(Trx.Comand)
 
        DtE = Ad.EjecturarConsulta(&#34;SELECT ID_PERIODOS, SEMESTREperi + ' - ' + convert(varchar(20),ANIOSperi) AS Lista FROM PERIODOS&#34;)
        Me.cmb_periodo.DataSource = DtE
        Me.cmb_periodo.DisplayMember = &#34;Lista&#34;
        Me.cmb_periodo.ValueMember = &#34;ID_PERIODOS&#34;
 
        Trx.CerrarConexion()
 
    End Function

gracias

senzao18

Cita de: "Sagma"

hola que tal, gracias por tu sugerencia, pero el problema que tenia era que algunos campos era INTEGER.

Asi que se lo he echo de esta forma, y funca.
solo era convertir:

Código: Text

convert(varchar(20),ANIOSperi)

Código: Text

   Function cargar_combo()

   Dim Trx As New AccesoDatos.Transacciones(False)
   Dim DtE As New DataTable
   Dim Ad As New AccesoDatos.Operaciones(Trx.Comand)

   DtE = Ad.EjecturarConsulta("SELECT ID_PERIODOS, SEMESTREperi + ' - ' + convert(varchar(20),ANIOSperi) AS Lista FROM PERIODOS")
   Me.cmb_periodo.DataSource = DtE
   Me.cmb_periodo.DisplayMember = "Lista"
   Me.cmb_periodo.ValueMember = "ID_PERIODOS"

   Trx.CerrarConexion()

   End Function

gracias

mmmmmm

eso mismo dije..... Hacer un Cast.....

SoloCodigo

Autor Tema: Comboxbox Con Tres Columnas (Leído 1216 veces)

Sagma

Comboxbox Con Tres Columnas

senzao18

Re: Comboxbox Con Tres Columnas

Sagma

Re: Comboxbox Con Tres Columnas

senzao18

Re: Comboxbox Con Tres Columnas