Hola Amigos!!! Soy nuevo en el Foro, y estube sondeando por aqui y espero que puedan echarme una mano...
Estoy tratando de programar algo mas chuchi, pero estoy teniendo un problemita, tengo una clase Estructuras con una estructura de datos InfoCostos:
Public Class Estructuras
Public Structure InfoCostos
Public Codigo As Integer
Public CodMercaderia As Integer
Public Fecha As Date
Public PrecioCosto As Integer
End Structure
end class
Cree mi Funcion Recuperar() en otra clase, para cargar los datos de la BD a un ArrayList:
Public Function Recuperar() As ArrayList()
Dim dr As OleDbDataReader
Dim estCosto As Estructuras.InfoCostos
Dim myConnection As New OleDbConnection(CnnStr)
Dim myCommand As New OleDbCommand("Select Codigo, CodMercaderias, Fecha, Precio_Costo from Costos", myConnection)
myConnection.Open()
dr = myCommand.ExecuteReader()
Dim lst As New ArrayList()
Try
While dr.Read()
With estCosto
.Codigo = dr(0)
.CodMercaderia = dr(1)
.Fecha = dr(2)
.PrecioCosto = dr(3)
End With
lst.Add(estCosto)
End While
'-----Cierro el reader---
dr.Close()
Return lst
Catch ex As Exception
Throw ex
Finally
If Not (dr Is Nothing) Then
dr.Close()
End If
End Try
End Function
Y de un formulario trato de recuperar los datos del arraylist que contiene la estructura:
Dim ds As New DataSet()
Dim lst As Estructuras.InfoCostos
Dim i As Integer
'--- Recupero datos de la BD ---
lst = Recuperar()
'--- Limpio el contenedor y luego lo cargo ---
'ds.Rows.Clear()
'--- Recorro los items de tu array y luego cargas eso en un dataset ---
For i = 0 To lst.Length - 1
MessageBox.Show(lst(i).Codigo & " " & lst(i).CodMercaderia & " " & lst(i).Fecha & " " & lst(i).PrecioCosto)
Next
Y esto no me funciona, se que la idea es correcta pero en algo me estoy equivocando y ya le di muchas vueltas...
Porfa si pueden darme una mano les voy a agradecer muchisimo...
Este codigo es buenisiomo para programar grandes sistemas, si es que funciona, jejeje...
