Buenas tardes, estoy teniendo la siguiente complicación, tengo un formulario menú principal y otro formulario vehículo, estuve probando usar backgroundworker para las consultas que hago en cada form y me va bien, pero tengo problema al querer usarlo para
abrir un formulario.
El formulario vehículo carga 4 combobox en el load cuando lo abro, pero quiero usar el backgroundworker para que no me tranque todo el programa mientras consulta.
En el formulario principal tengo una barra de tareas con un menu, y cuando pincho el menu de vehiculo me abre el form de vehiculo, pero al empezar a hacer las consultas mediante el backgroundworker me da el siguiente mensaje de error:
Operación no valida atraves de subprocesos: se tuvo acceso al control "cbomarca" desde un subproceso distinto a aquel en el que se lo creó. Este error me lo muestra 4 veces, correspondiente a cada una de las query que hago a los 4 combobox.
Dejo el código que tengo:
NOTA: cbo son los combobox y CargaInicio es el backgroundworker
FORMULARIO VEHICULO:
Sub cargar()
Dim sql As
String
Dim da As
New Odbc.OdbcDataAdapter
Dim ds As
New DataSet
Dim dt As
New DataTable
Try
sql =
"SELECT * FROM vehiculo_marca"
ConexionBD.conecta()
With comando
.Connection = Conectar
.CommandText = sql
.ExecuteNonQuery()
End With
da.SelectCommand = comando
dt =
New DataTable
da.Fill(dt)
With cbomarca
.DataSource = dt
.DisplayMember =
"marca"
.ValueMember =
"id_vehimarc"
End With
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical)
Finally
Conectar.Close()
End Try
Try
sql =
"SELECT * FROM CATEGORIA"
ConexionBD.conecta()
With comando
.Connection = Conectar
.CommandText = sql
.ExecuteNonQuery()
End With
da.SelectCommand = comando
dt =
New DataTable
da.Fill(dt)
With cboidcategoria
.DataSource = dt
.DisplayMember =
"cat_nombre"
.ValueMember =
"id_categoria"
End With
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical)
Finally
Conectar.Close()
End Try
Try
sql =
"SELECT * FROM SUCURSAL"
ConexionBD.conecta()
With comando
.Connection = Conectar
.CommandText = sql
.ExecuteNonQuery()
End With
da.SelectCommand = comando
dt =
New DataTable
da.Fill(dt)
With cbosucursal
.DataSource = dt
.DisplayMember =
"suc_nombre"
.ValueMember =
"id_sucursal"
End With
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical)
Finally
Conectar.Close()
End Try
Try
sql =
"SELECT * FROM vehiculo_modelo"
ConexionBD.conecta()
With comando
.Connection = Conectar
.CommandText = sql
.ExecuteNonQuery()
End With
da.SelectCommand = comando
dt =
New DataTable
da.Fill(dt)
With cbomodelo
.DataSource = dt
.DisplayMember =
"modelo"
.ValueMember =
"id_vehimod"
End With
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical)
Finally
Conectar.Close()
End Try
End Sub
Private
Sub CargaInicio_DoWork(ByVal sender
As System.Object, ByVal e
As System.ComponentModel.DoWorkEventArgs)
Handles CargaInicio.DoWork
Call cargar()
piccargando.Visible =
True
End Sub
Private Sub CargaInicio_RunWorkerCompleted(ByVal sender
As Object,
ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs)
Handles CargaInicio.RunWorkerCompleted
piccargando.Visible =
False
End Sub
FORMULARIO MENU PRINCIPAL:
Private Sub nuevovehiculo_Click(ByVal sender
As System.Object, ByVal e
As System.EventArgs) Handles tlsinuevovehiculo.Click
frmnuevovehiculo.MdiParent =
Me
frmnuevovehiculo.Show()
frmnuevovehiculo.CargaInicio.RunWorkerAsync()
frmnuevovehiculo.BringToFront()
End Sub
