SoloCodigo

CLR: .Net / Mono / Boo / Otros CLR => VB .NET => Mensaje iniciado por: Sagma en Lunes 13 de Noviembre de 2006, 17:24

Título: Comboxbox Con Tres Columnas
Publicado por: Sagma en Lunes 13 de Noviembre de 2006, 17:24
Hola a todos, quisiera que me ayudasen, ya estoy  :alien: , de no poder captar, pero weno, este es mi problema.

tengo un combobox que lo lleno desde una DB:

Código: Text
  1.  
  2.     Function cargar_combo()
  3.  
  4.         Dim Trx As New AccesoDatos.Transacciones(False)
  5.         Dim DtP As New DataTable
  6.         Dim Ad As New AccesoDatos.Operaciones(Trx.Comand)
  7.  
  8.         DtP = Ad.EjecturarConsulta("SELECT * FROM PERIODOS ORDER BY ID_PERIODOS desc")
  9.         Me.cmb_periodo.DataSource = DtP
  10.         Me.cmb_periodo.DisplayMember = "DESCRIPCIONperi"
  11.         Me.cmb_periodo.ValueMember = "ID_PERIODOS"
  12.  
  13.         Trx.CerrarConexion()
  14.  
  15.     End Function
  16.  
  17.  

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
  1.  
  2.  
  3. DtP = Ad.EjecturarConsulta("SELECT ID_PERIODOS+'-'+SEMESTREperi+'-'+ANIOper as Lista FROM PERIODOS ORDER BY ID_PERIODOS desc")
  4.         Me.cmb_periodo.DisplayMember = "Lista"
  5.         Me.cmb_periodo.ValueMember = "Lista"
  6.  
  7.  

pero no me funca, agradeceria su orientacion  :comp:


gracias   :D
Título: Re: Comboxbox Con Tres Columnas
Publicado por: senzao18 en Lunes 13 de Noviembre de 2006, 21:25
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........
Título: Re: Comboxbox Con Tres Columnas
Publicado por: Sagma en Viernes 17 de Noviembre de 2006, 18:02
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:  :rolleyes:

Código: Text
  1.  
  2. convert(varchar(20),ANIOSperi)
  3.  
  4.  

Código: Text
  1.  
  2.     Function cargar_combo()
  3.  
  4.         Dim Trx As New AccesoDatos.Transacciones(False)
  5.         Dim DtE As New DataTable
  6.         Dim Ad As New AccesoDatos.Operaciones(Trx.Comand)
  7.  
  8.         DtE = Ad.EjecturarConsulta(&#34;SELECT ID_PERIODOS, SEMESTREperi + ' - ' + convert(varchar(20),ANIOSperi) AS Lista FROM PERIODOS&#34;)
  9.         Me.cmb_periodo.DataSource = DtE
  10.         Me.cmb_periodo.DisplayMember = &#34;Lista&#34;
  11.         Me.cmb_periodo.ValueMember = &#34;ID_PERIODOS&#34;
  12.  
  13.         Trx.CerrarConexion()
  14.  
  15.     End Function
  16.  
  17.  

gracias  :comp:
Título: Re: Comboxbox Con Tres Columnas
Publicado por: senzao18 en Viernes 17 de Noviembre de 2006, 19:06
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:  :rolleyes:

Código: Text
  1.  
  2. convert(varchar(20),ANIOSperi)
  3.  
  4.  

Código: Text
  1.  
  2.     Function cargar_combo()
  3.  
  4.         Dim Trx As New AccesoDatos.Transacciones(False)
  5.         Dim DtE As New DataTable
  6.         Dim Ad As New AccesoDatos.Operaciones(Trx.Comand)
  7.  
  8.         DtE = Ad.EjecturarConsulta(&#34;SELECT ID_PERIODOS, SEMESTREperi + ' - ' + convert(varchar(20),ANIOSperi) AS Lista FROM PERIODOS&#34;)
  9.         Me.cmb_periodo.DataSource = DtE
  10.         Me.cmb_periodo.DisplayMember = &#34;Lista&#34;
  11.         Me.cmb_periodo.ValueMember = &#34;ID_PERIODOS&#34;
  12.  
  13.         Trx.CerrarConexion()
  14.  
  15.     End Function
  16.  
  17.  

gracias  :comp:
 mmmmmm <_<  eso mismo dije..... Hacer un Cast.....

 :whistling: