Llenar un lisbox

Hola Jorge,

debes importar estos nombres de espacio, escribiendo esto en el comienzo del
código:

Imports System.Data
Imports System.Data.OleDb

Luego, debes añadir un control Button en el formulario, hacer doble clic
sobre él, y añadir el siguiente código:

Dim strConexion As String
Dim objConexion As OleDbConnection
Dim objComando As OleDbDataAdapter
Dim objDS As New DataSet

strConexion ="PROVIDER=MICROSOFT.JET.OLEDB.4.0;" & "DATA
SOURCE=C:\bbdd\Prueba.mdb"
objConexion = New OleDbConnection(strConexion)
objComando = New OleDbDataAdapter("Select * From Tabla", strConexion)
objComando.Fill(objDS, "Ejemplo")

Dim Row
For Each Row In objDS.Tables("Ejemplo").Rows
'Esto añade el primer elemento de la Select
ListBox1.Items.Add(Row(0))
Next

Un saludo,

Jorge Serrano Pérez
MVP VB.NET

"Jorge" wrote:

Qui me puede colaborar para llenar un lixbox desde access
no tengo la coneccion es desde cero agradesco si tienen
un ejemplo.

gracias.

Muchas gracias de ti cogi el mismo ejemplo de paginas
anteriores y ya me funciona ahora estoy tratando de pegar
la garga del lisbos a un progresbar y no he podido

Hola Jorge,

debes importar estos nombres de espacio, escribiendo

esto en el comienzo del

código:

Imports System.Data
Imports System.Data.OleDb

Luego, debes aà±adir un control Button en el formulario,

hacer doble clic

sobre él, y aà±adir el siguiente código:

Dim strConexion As String
Dim objConexion As OleDbConnection
Dim objComando As OleDbDataAdapter
Dim objDS As New DataSet

strConexion ="PROVIDER=MICROSOFT.JET.OLEDB.4.0;" & "DATA
SOURCE=C:\bbdd\Prueba.mdb"
objConexion = New OleDbConnection(strConexion)
objComando = New OleDbDataAdapter("Select * From Tabla",

strConexion)

objComando.Fill(objDS, "Ejemplo")

Dim Row
For Each Row In objDS.Tables("Ejemplo").Rows
'Esto aà±ade el primer elemento de la Select
ListBox1.Items.Add(Row(0))
Next

Un saludo,

Jorge Serrano Pérez
MVP VB.NET

"Jorge" wrote:

Qui me puede colaborar para llenar un lixbox desde

access

no tengo la coneccion es desde cero agradesco si

tienen

un ejemplo.

gracias.

.