Vaya.... la verdad es q estoy mal acostumbrado al DataReader....
Con ADO.NET la ventaja principal es el DataSet..... (Modelo desconectado de datos).
Voy a buscarte un ejemplillo con DataSet hombre, espero que te sirva.
Respecto a tu pregunta acerca de arrastrar un DataReader.... No se hace así exactamente ya que como "componente" no existe, al contrario que el DataSet que sí lo es y puedes arrastrarlo perfectamente e inegrarlo como dices. Si quieres usar DataReader, la forma (al menos para mí) más fácil es crear un DataGrid y mediante código usando DataReader llenarlo.
De todas formas como te digo, te pasteo código de DataSet.
***SELECT***
' crear conexión
Dim oConexion As New SqlConnection()
oConexion.ConnectionString = "Server=(local);Database=Northwind;uid=sa;pwd= ;"
' crear adaptador
Dim oDataAdapter As New SqlDataAdapter("SELECT * FROM Customers ORDER BY
ContactName", oConexion)
' crear conjunto de datos
Dim oDataSet As New DataSet()
oConexion.Open()
' utilizar el adaptador para llenar el dataset con una tabla
oDataAdapter.Fill(oDataSet, "Customers")
oConexion.Close()
' una vez desconectados, recorrer la tabla del dataset
Dim oTabla As DataTable
oTabla = oDataSet.Tables("Customers")
Dim oFila As DataRow
For Each oFila In oTabla.Rows
' mostrar los datos mediante un objeto fila
Me.lstCustomers.Items.Add(oFila.Item("CompanyName" ) & _
" - " & oFila.Item("ContactName") & " - " & _
oFila.Item("Country"))
Next
***INSERT***
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles
MyBase.Load
' crear conexión
oConexion = New SqlConnection()
oConexion.ConnectionString = "Server=(local);Database=MUSICA;uid=sa;pwd=;"
' crear adaptador
oDataAdapter = New SqlDataAdapter()
' crear comandos para inserción, consulta con sus parámetros
' y asignarlos al adaptador
Dim oCmdInsercion As New SqlCommand("INSERT INTO AUTORES " & _
"(IDAutor,Autor) VALUES(@IDAutor,@Autor)", oConexion)
oDataAdapter.InsertCommand = oCmdInsercion
oDataAdapter.InsertCommand.Parameters.Add(New SqlParameter("@IDAutor",
SqlDbType.Int))
oDataAdapter.InsertCommand.Parameters.Add(New SqlParameter("@Autor",
SqlDbType.NVarChar))
Dim oCmdConsulta As New SqlCommand("SELECT * FROM AUTORES", _
oConexion)
oDataAdapter.SelectCommand = oCmdConsulta
' crear conjunto de datos
oDataSet = New DataSet()
Me.CargarDatos()
End Sub
Private Sub CargarDatos()
' vaciar el dataset
oDataSet.Clear()
oConexion.Open() ' abrir conexión
' utilizar el adaptador para llenar el dataset con una tabla
oDataAdapter.Fill(oDataSet, "Autores")
oConexion.Close() ' cerrar conexión
' enlazar dataset con datagrid;
' en DataSource se asigna el dataset,
' en DataMember el nombre de la tabla del
' dataset que mostrará el datagrid
Me.grdDatos.DataSource = oDataSet
Me.grdDatos.DataMember = "Autores"
End Sub
Espero que te valga esto mejor que lo que te expuse anteriormente. Un saludo, y suerte!!
