Ver Mensaje Individual
  #2 (permalink)  
Antiguo 13/12/2004, 02:38
aralar
 
Fecha de Ingreso: diciembre-2004
Mensajes: 32
Antigüedad: 19 años, 5 meses
Puntos: 0
Se hace de la siguiente manera:

Dim strPath As String
Dim StrSelect As String
Dim strXML As String
Try

strPath = ConfigurationSettings.AppSettings.Get("pathBD")
Dim dbHelper As New MEDISDataHelper("MDB_Medis", strPath)
strXML = ConfigurationSettings.AppSettings.Get("pathXML")
StrSelect = QueryStorage.GetQueryFromXMLFile("obtenerTrascende ncias", strXML)

Dim dt As Data.DataTable = dbHelper.ExecuteSelectTable(StrSelect, "MaestroTrascendencia")

''''''''''''Hasta aquí como cargues tú los datos en el datatable o dataset, lo que tú utilices. Lo que necesitas es esto:
(CboTrascendencia es el combobox)Al datasource le asignas el origen de datos, en el displayMember el campo del origen de datos que quieres que se te visualice y en el valuemember el valor que te interesa manejar a ti. Por ejemplo: el displaymember podría ser la descripción del campo y el valuemember, la clave primaria de la tabla de la base de datos de donde obtengas los valores de ese combobox.

Me.CboTrascendencia.DataSource = dt
Me.CboTrascendencia.DisplayMember = dt.Columns("Descripcion").ColumnName
Me.CboTrascendencia.ValueMember = dt.Columns("Valor").ColumnName

Catch ex As MEDISDataHelperException
MsgBox("Error al Cargar los Datos.", MsgBoxStyle.OKOnly, "Error")
End Try