Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Visual Basic.NET » ¿Como cargar varias tablas de Access 2013 en un comboBox de Visual Basic 2015?

Visual Basic.NET - ¿Como cargar varias tablas de Access 2013 en un comboBox de Visual Basic 2015?

Volver
Nuevo Tema
<<>>
 
Vista:

¿Como cargar varias tablas de Access 2013 en un comboBox de Visual Basic 2015?

Publicado por Marco (1 intervención) el 22/04/2016 00:05:09
Buenas tardes,

Tengo una base de datos en Access, en el cual tengo almacenadas muchas tablas con su información respectiva. Quiero atraves de un comboBox hacer el llamado de la información de cada tabla que se seleccione en dicho comboBox y se muestre en un GRIPVIEW. Por favor agradecería su apoyo.

Marco.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Hugo
Val: 50
Ha disminuido su posición en 5 puestos en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

¿Como cargar varias tablas de Access 2013 en un comboBox de Visual Basic 2015?

Publicado por Hugo (91 intervenciones) el 16/05/2016 19:29:25
Para visualizar el contenido de una tabla en un combobox:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Imports System.Data.OleDb
 
Dim cnn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\base.mdb;Persist Security Info=True;Jet OLEDB:Database Password=12345678"
 
Dim Ds As New DataSet
Dim consulta As String
consulta = "select campo1 TABLA1 order by campo1 ASC "
Da = New OleDbDataAdapter(consulta, cnn)
Da.Fill(Ds, "TABLA1")
Dim myDataView As DataView = New DataView(Ds.Tables(0))
Dim contador As Integer
For contador = 0 To myDataView.Count - 1
	ComboBox1.Items.Add(myDataView(contador)("campo1"))
Next


Para visualizar el ontenido de una table en gridview:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Imports System.Data.OleDb
 
Dim cnn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\base.mdb;Persist Security Info=True;Jet OLEDB:Database Password=12345678"
 
Dim Da As New OleDbDataAdapter
Dim Ds As New DataSet
Dim consulta As String
consulta = "select campo1, campo2, campo3, " & _
"campo4 from TABLA order by campo1 ASC "
Da = New OleDbDataAdapter(consulta, cnn)
Ds.Tables.Add("TABLA")
Da.Fill(Ds.Tables("TABLA"))
 
Dim myDataView As DataView = New DataView(Ds.Tables("TABLA"))
GridView1.DataSource = myDataView


Visita: http://vbpuntonet.blogspot.mx/
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar