Utilizamos cookies propias y de terceros para mejorar la experiencia de navegación, y ofrecer contenidos y publicidad de interés.
Al continuar con la navegación entendemos que se acepta nuestra política de cookies.
Iniciar sesión Cerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta

Visual Basic.NET - Llenar un ComboBox a partir de Access en VB2010

Vista:
Me gusta: Está pregunta es útil y esta clara
0
No me gusta: Está pregunta no esta clara o no es útil
 
Asunto:

Llenar un ComboBox a partir de Access en VB2010

Autor:Alberto (9 intervenciones)
Fecha:15/11/2011 20:20:51
Buenas tardes:
Llevo dos días intentado llenar una ComboBox a partir de una BD Access en VB 2010 y estoy hecho un lio. No sé si lo que escribo en el código (que no me funciona) entra en conflicto con lo que me exige cuando copio la ComboBox en el form. Tengo entendido que priva el código sobre las propiedades de tiempo de diseño, pero la verdad es que lo que tengo escrito de código (lo que sigue) no funciona. Recibo el mensaje: "No se han espècificado valores para algunos de los parámetros requeridos".
Además he puesto al principio del procedimiento
Option Explicit On
Impor ts System.Data
Importes System.Data.OleDb

¿Qué tengo hecho mal? ¿Me podéis ayudar? Mil gracias.

Private Sub LlenarComboBox()
Try
Dim ds1 As New DataSet
dbProvider = "PROVIDER=Microsoft.Jet.OLEDB.4.0;"
dbSource = "Data Source = C:\Users\Alberto Moreno Gil\Mis documentos\bd4.mdb"

con.ConnectionString = dbProvider & dbSource
con.Open()
sql1 = "SELECT * FROM Denominacion WHERE Not clase ='Acciones' ORDER BY denominacion"

'con.Open()

Dim da1 As New OleDbDataAdapter(sql1, con) 'MyDataAdapter
da1.Fill(ds1, "MiTabla")
' Idea 1
ComboBoxDenominaciones.DataSource = ds1.Tables("MiTabla").DefaultView
ComboBoxDenominaciones.ValueMember = "denominacion"
ComboBoxDenominaciones.DisplayMember = "denominacion"
con.Close()
con = Nothing
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical, "Error")
End Try
End Sub
Responder
Me gusta: Está respuesta es útil y esta clara
0
No me gusta: Está respuesta no esta clara o no es útil
 
Asunto:

Llenar un ComboBox a partir de Access en VB2010

Autor:Alberto (9 intervenciones)
Fecha:15/11/2011 23:25:09
He ido revisando paso a paso y veo que el error me lo da en
da1.Fill(ds1, "MiTabla")
he probado
da1.Fill(ds1) o da1.Fill(ds1, 0)
y me sigue dando el mismo error. No sé lo que pueda ser. Gracias.
Comentar
Me gusta: Está respuesta es útil y esta clara
0
No me gusta: Está respuesta no esta clara o no es útil
 
Asunto:

Llenar un ComboBox a partir de Access en VB2010

Autor:Alberto (9 intervenciones)
Fecha:16/11/2011 10:47:34
Solucionado. La participación en este foro me ha sido de gran utilidad. ¡Jua!
Comentar
Me gusta: Está respuesta es útil y esta clara
0
No me gusta: Está respuesta no esta clara o no es útil
 
Asunto:

Llenar un ComboBox a partir de Access en VB2010

Autor:Damian (824 intervenciones)
Fecha:18/11/2011 13:48:55
Hola, estaría bueno que pongas como lo solucionaste así el hilo queda completo y con la solución, de esta forma, para otro que tenga el mismo problema lo pueda solucionar también
Saludos
Comentar
Me gusta: Está respuesta es útil y esta clara
0
No me gusta: Está respuesta no esta clara o no es útil
 
Asunto:

Llenar un ComboBox a partir de Access en VB2010

Autor:Alberto (9 intervenciones)
Fecha:18/11/2011 15:00:51
Avec plaisir, que dicen los franceses.
Como me daba el error en la carga del DataSet desde el DataAdapter me empeñaba en encontrar la solución en esa orden misma: DataAdapter.Fill(DataSet)
El error estaba cinco o seis líneas antes, cuando creé el
sql1 = "SELECT * FROM Denominacion WHERE Not clase ='Acciones' ORDER BY denominacion"
porque en la tabla Denominacion, que tenía inicialmente dos campos: "denominacion" y "clase" había suprimido, porque lo consideraba innecesario, el campo "clase". Sin embargo, aquí está el error, llamaba yo a este campo inexistente en mi sql1. Haciendo probaturas simplifiqué el sql1 a
sql1 = "SELECT * FROM Denominacion" y funcionaba y
sql1 = "SELECT * FROM Denominacion ORDER BY denominacion" y también funcionaba. Hay una colilla, luego alguien ha fumado. Añadí en la tabla, porque lo considero ahora interesante, de nuevo el campo "clase" y ¡voila! funciona perfectamente. El problema fue que no me daba el error en
sql1 ="SELECT..." sino unas cuantas líneas más abajo, como he dicho.
Hasta luego.
Comentar