El listbox no me carga datos de access

[ricardo_eslokehay]

Buenas a todos, estoy haciendo el esfuerzo de pasarme de visual basic 6 a .net y la verdad es que con las conexiones a bases de datos estoy muy perdido. Mi problema es el siguiente.

Estoy intentando cargar los datos de una columna de una tabla en un listbox y cuando ejecuto el programa en el listbox me sale lo siguiente: System.Data.DataRow. Os pongo el codigo para ver que estoy haciendo mal.

Public Class FrmVdatosEQCvn

Private Sub FrmVdatosEQCvn_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim conexion As New OleDbConnection
Dim oComando As New OleDbCommand
Dim oData As New DataTable

Dim consultaSQL As String

'Dim DS As New DataSet 'Esqueleto de bd
'Dim Adaptador As New OleDbDataAdapter(consultaSQL, conexion)

Dim i As Integer

conexion.ConnectionString = "Provider = Microsoft.ACE.OLEDB.12.0; Data Source =d:\\BDcalidad.mdb; persist Security Info = False "
conexion.Open() 'Abre la conexion entre base de datos y programa

consultaSQL = "SELECT * FROM AnualVN"
oComando.CommandType = CommandType.Text
oComando.CommandText = consultaSQL
oComando.Connection = conexion
oData.Load(oComando.ExecuteReader)

For i = 0 To oData.Rows.Count - 1
Me.ListBox1.Items.Add(oData(0))
Next i

conexion.Close()


End Sub
End Class

un saludo y gracias

[alan_69niupi]

yo uso combobox, uso VB2008 y acces y lo hago se la siguiente forma:
todo esto lo pondo detro del Load de mi form para que cuando lo carge este llene los combobox
Public con As New OleDbConnection
con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=ruta\basedatos.Mdb"
con.Open()
Dim cliente As OleDb.OleDbCommand
Dim dc As OleDb.OleDbDataReader
cbxNombreCliente.Items.Clear()
cliente = New OleDb.OleDbCommand("Select NOMBRE from CATCLIENTES ", conec.con)
dc = cliente.ExecuteReader()
While dc.Read()
Me.cbxNombreCliente.Items.Add(dc(0))
End While
dc.Close()
con.Close()

espero te sirva y te ayude
saludos!!!

[ricardo_eslokehay]

Iniciado por alan_69niupi

yo uso combobox, uso VB2008 y acces y lo hago se la siguiente forma:
todo esto lo pondo detro del Load de mi form para que cuando lo carge este llene los combobox
Public con As New OleDbConnection
con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=ruta\basedatos.Mdb"
con.Open()
Dim cliente As OleDb.OleDbCommand
Dim dc As OleDb.OleDbDataReader
cbxNombreCliente.Items.Clear()
cliente = New OleDb.OleDbCommand("Select NOMBRE from CATCLIENTES ", conec.con)
dc = cliente.ExecuteReader()
While dc.Read()
Me.cbxNombreCliente.Items.Add(dc(0))
End While
dc.Close()
con.Close()

espero te sirva y te ayude
saludos!!!

Muchas gracias si me sirvio. Era justo lo que necesitaba.

Un saludo.