recuperar resultados... access - vb.net

solucionado... pero, hay alguna forma mas eficiente?

Dim strConn As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=e:\motllos.mdb"

Dim myDs As New System.Data.DataSet

Dim myConn As New System.Data.OleDb.OleDbConnection(strConn)

Dim myComm As New System.Data.OleDb.OleDbCommand("SELECT CI,tipo FROM
centro_inversion", myConn)

Dim myDa As New System.Data.OleDb.OleDbDataAdapter

myDa.SelectCommand = myComm

myDa.Fill(myDs, "centro_inversion")

DataGridView1.DataSource = myDs.Tables("centro_inversion").DefaultView

Dim contador As Integer

Dim bucle As Integer

contador = myDs.Tables("centro_inversion").Rows.Count

For bucle = 0 To contador - 1

ComboBox1.Items.Add(myDs.Tables("centro_inversion").Rows(bucle).Item("CI"))

Next

"Jordi Maycas" escribió en el mensaje
news:

genial puse esto y funciona:

Dim strConn As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=e:\motllos.mdb"

Dim myDs As New System.Data.DataSet

Dim myConn As New System.Data.OleDb.OleDbConnection(strConn)

Dim myComm As New System.Data.OleDb.OleDbCommand("SELECT CI,tipo FROM
centro_inversion", myConn)

Dim myDa As New System.Data.OleDb.OleDbDataAdapter

myDa.SelectCommand = myComm

myDa.Fill(myDs, "centro_inversion")

DataGridView1.DataSource = myDs.Tables("centro_inversion").DefaultView



Ahora la pregunta es: supongo que tengo que cerrar las conexiones una vez
terminado el trabajo y por otro lado... como accedo a los resultados?
Querria cojer uno a uno, los valores de un campo...



Gracias

Asigna tambien la tabla como DataSource del combo, en la propiedad
DisplayMember coloca el nombre del campo que contiene la informacion a
mostrar y en la propiedad ValueMember el nombre del campo que contiene el id
del registro:

' Nuevo DataView para no enlazar el combo con el grid
ComboBox1.DataSource = New DataView(myDs.Tables("centro_inversion"))
ComboBox1.DisplayMember = "CI"
ComboBox1.ValueMember = "Id"

Para obtener el Id utiliza la propiedad SelectedValue del combo.

Eduardo A. Morcillo [MS MVP VB]
http://www.mvps.org/emorcillo

Si lo que quieres es solor leer los datos de una base de datos prueba usar
una oledbdatareader

Dim strConn As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=e:\motllos.mdb"

Dim myConn As New System.Data.OleDb.OleDbConnection(strConn)

Dim myComm As New System.Data.OleDb.OleDbCommand("SELECT CI,tipo FROM
centro_inversion", myConn)

dim myDReader as System.Data.OleDb.OleDbDataReader

myDReader=myComm.ExecuteReader
While myDReader.Read
dim Var as String=myDReader("tipo") 'Esto es solo un ejemplo, trabaja
los datos segun te convenga
End While

myDReader.Close
myConn.Close

"Jordi Maycas" escribió en el mensaje
news:

solucionado... pero, hay alguna forma mas eficiente?

Dim strConn As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=e:\motllos.mdb"

Dim myDs As New System.Data.DataSet

Dim myConn As New System.Data.OleDb.OleDbConnection(strConn)

Dim myComm As New System.Data.OleDb.OleDbCommand("SELECT CI,tipo FROM
centro_inversion", myConn)

Dim myDa As New System.Data.OleDb.OleDbDataAdapter

myDa.SelectCommand = myComm

myDa.Fill(myDs, "centro_inversion")

DataGridView1.DataSource = myDs.Tables("centro_inversion").DefaultView

Dim contador As Integer

Dim bucle As Integer

contador = myDs.Tables("centro_inversion").Rows.Count

For bucle = 0 To contador - 1

ComboBox1.Items.Add(myDs.Tables("centro_inversion").Rows(bucle).Item("CI"))

Next

"Jordi Maycas" escribió en el mensaje
news:
> genial puse esto y funciona:
>
> Dim strConn As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data
> Source=e:\motllos.mdb"
>
> Dim myDs As New System.Data.DataSet
>
> Dim myConn As New System.Data.OleDb.OleDbConnection(strConn)
>
> Dim myComm As New System.Data.OleDb.OleDbCommand("SELECT CI,tipo FROM
> centro_inversion", myConn)
>
> Dim myDa As New System.Data.OleDb.OleDbDataAdapter
>
> myDa.SelectCommand = myComm
>
> myDa.Fill(myDs, "centro_inversion")
>
> DataGridView1.DataSource = myDs.Tables("centro_inversion").DefaultView
>
>
>
> Ahora la pregunta es: supongo que tengo que cerrar las conexiones una

vez

> terminado el trabajo y por otro lado... como accedo a los resultados?
> Querria cojer uno a uno, los valores de un campo...
>
>
>
> Gracias
>
>
>
>

gracias

"Edwin Monsalve" escribió en el mensaje
news:%

Si lo que quieres es solor leer los datos de una base de datos prueba usar
una oledbdatareader

Dim strConn As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=e:\motllos.mdb"

Dim myConn As New System.Data.OleDb.OleDbConnection(strConn)

Dim myComm As New System.Data.OleDb.OleDbCommand("SELECT CI,tipo FROM
centro_inversion", myConn)

dim myDReader as System.Data.OleDb.OleDbDataReader

myDReader=myComm.ExecuteReader
While myDReader.Read
dim Var as String=myDReader("tipo") 'Esto es solo un ejemplo, trabaja
los datos segun te convenga
End While

myDReader.Close
myConn.Close

"Jordi Maycas" escribió en el mensaje
news:
> solucionado... pero, hay alguna forma mas eficiente?
>
> Dim strConn As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data
> Source=e:\motllos.mdb"
>
> Dim myDs As New System.Data.DataSet
>
> Dim myConn As New System.Data.OleDb.OleDbConnection(strConn)
>
> Dim myComm As New System.Data.OleDb.OleDbCommand("SELECT CI,tipo FROM
> centro_inversion", myConn)
>
> Dim myDa As New System.Data.OleDb.OleDbDataAdapter
>
> myDa.SelectCommand = myComm
>
> myDa.Fill(myDs, "centro_inversion")
>
> DataGridView1.DataSource = myDs.Tables("centro_inversion").DefaultView
>
> Dim contador As Integer
>
> Dim bucle As Integer
>
> contador = myDs.Tables("centro_inversion").Rows.Count
>
> For bucle = 0 To contador - 1
>
>

ComboBox1.Items.Add(myDs.Tables("centro_inversion").Rows(bucle).Item("CI"))

>
> Next
>
> "Jordi Maycas" escribió en el mensaje
> news:
> > genial puse esto y funciona:
> >
> > Dim strConn As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data
> > Source=e:\motllos.mdb"
> >
> > Dim myDs As New System.Data.DataSet
> >
> > Dim myConn As New System.Data.OleDb.OleDbConnection(strConn)
> >
> > Dim myComm As New System.Data.OleDb.OleDbCommand("SELECT CI,tipo FROM
> > centro_inversion", myConn)
> >
> > Dim myDa As New System.Data.OleDb.OleDbDataAdapter
> >
> > myDa.SelectCommand = myComm
> >
> > myDa.Fill(myDs, "centro_inversion")
> >
> > DataGridView1.DataSource = myDs.Tables("centro_inversion").DefaultView
> >
> >
> >
> > Ahora la pregunta es: supongo que tengo que cerrar las conexiones una
vez
> > terminado el trabajo y por otro lado... como accedo a los resultados?
> > Querria cojer uno a uno, los valores de un campo...
> >
> >
> >
> > Gracias
> >
> >
> >
> >
>
>