backgroundWorker un ejemplito?

[guillebomtrasmiti]

Hola, he revisado pagianas web durante horas pero no consigo aplicar los ejemplos con backgroundWorker, alguien tendrá un proceso facilito para implementar aquí; '¡''¿?

gracias



Dim adapta2 As New OleDbDataAdapter
Dim datavacio As New DataSet


Dim comados = conexion.CreateCommand
comados.CommandType = CommandType.Text

comados.CommandText = "SELECT Fecha From [Intro] ORDER BY Fecha ASC"

'creo los parametros que uso en el SELECT, para filtrar en el datagridview(dgtotales)

adapta2.SelectCommand = comados
adapta2.Fill(datavacio, "[Intro]")
Dim fechas As DateTime
For i = 0 To datavacio.Tables("[Intro]").Rows.Count - 1
fechas = datavacio.Tables("[Intro]").Rows(i).Item("Fecha").ToString
Next

[jhonwilliams]

Mira este ejmplo a ver si te va.

http://blogs.gamefilia.com/ollydbg/2...ckgroundworker

Saludos

[guillebomtrasmiti]

GRACIAS JHONWILLIAMS...al final me sirvió...para si alguién le sirve

Dim plutpv As New Integer
Dim valorPorcentaje As Integer
Dim Total As Integer '= 1000
Dim retSuma As Integer = 0
'hago visibel el progressbar y el txtbox que lo hago invisible en el LOAD
ProgressBar1.Visible = Enabled
LblStatus.Visible = Enabled
Total = data1.Tables("Productos").Rows.Count
For i = 0 To data1.Tables("Productos").Rows.Count - 1
plutpv = data1.Tables("Productos").Rows(i).Item("PLU").ToSt ring
retSuma += i
valorPorcentaje = Convert.ToInt32((i / Total) * 100)
frmProgressBarProd.Close()
ProgressBar1.Value = valorPorcentaje
LblStatus.Text = CStr(Total.ToString("#,##0.00 Completado"))
'retSuma.ToString
bWorkComplete = True