Porque queda colgado?

[carlosanpy]

Hola a todos

Estoy trabajando con visual basic 2008 express y una base datos access
Carga bien en el form_load
El problema que tengo es que cuando presiono un boton guardar se me queda como colgado y no termina de cargar nunca

alguien podria darme una mano por favor

Gracias Carlos

Imports System.Data.OleDb
Imports System.Data.DataRow

Public Class frmBase
Private MiConexion As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=|DataDirectory|" & "\costo01.mdb")

Private MiAdaptadorMat As New OleDbDataAdapter("SELECT * FROM precios WHERE COS_MATMDO = 'MAT' ORDER BY COS_DESCR", MiConexion)
Private MiDataSetMat As New DataSet()
Private MiEnlazadorMat As New BindingSource
'Monedas
Private MiAdaptadorMoneda As New OleDbDataAdapter("SELECT COS_MONEDA FROM precios GROUP BY COS_MONEDA", MiConexion)
Private MiDataSetMoneda As New DataSet()
Private MiEnlazadorMoneda As New BindingSource

'Unidad de medida
Private MiAdaptadorUnimed As New OleDbDataAdapter("SELECT COS_UNIMED FROM precios GROUP BY COS_UNIMED", MiConexion)
Private MiDataSetUnimed As New DataSet()
Private MiEnlazadorUnimed As New BindingSource


Private Sub Cargar_datos()
Dim commandbuilderMat As New OleDb.OleDbCommandBuilder(Me.MiAdaptadorMat) 'Materiales

Dim commandbuilderMoneda As New OleDb.OleDbCommandBuilder(Me.MiAdaptadorRD) 'Tipo moneda

With MiAdaptadorMat
.InsertCommand = commandbuilderMat.GetInsertCommand
.DeleteCommand = commandbuilderMat.GetDeleteCommand
.UpdateCommand = commandbuilderMat.GetUpdateCommand
end with

MiAdaptadorMat.Fill(MiDataSetMat) 'Materiales
MiEnlazadorMat.DataSource = MiDataSetMat.Tables(0) 'Aca se queda colgado!!!!!
Me.cmbMat.DataSource = MiEnlazadorMat
Me.cmbMat.DisplayMember = "COS_DESCR"
Me.cmbMat.ValueMember = "COS_COSTO"
Me.cmbUnidadMat.DataSource = MiEnlazadorMat
Me.cmbUnidadMat.DisplayMember = "COS_UNIMED"
Me.cmbMonedaMat.DataSource = MiEnlazadorMat
Me.cmbMonedaMat.DisplayMember = "COS_MONEDA"

Me.txtCostoMat.Text = CStr(MiDataSetMat.Tables(0).Rows(0)("COS_COSTO"))
Me.txtCostoMat.Text = String.Format("{0:#,##0.##}", Convert.ToDouble(txtCostoMat.Text))
Me.cmbMonedaMat.Text = CStr(MiDataSetMat.Tables(0).Rows(0)("COS_MONEDA"))
Me.txtMonedaMat.Text = CStr(MiDataSetMat.Tables(0).Rows(0)("COS_MONEDA"))
Me.txtFechaMat.Text = CStr(MiDataSetMat.Tables(0).Rows(0)("COS_FECHA"))
Me.txtUnidadMat.Text = CStr(MiDataSetMat.Tables(0).Rows(0)("COS_UNIMED"))
If cmbMat.SelectedItem(7) Is DBNull.Value Then 'Observaciones
Me.txtObservacionesMat.Text = String.Empty
Else
Me.txtObservaciones.Text = cmbMat.SelectedItem(7)
End If
If cmbMat.SelectedItem(8) Is DBNull.Value Then 'Proveedor
Me.txtProveedorMat.Text = String.Empty
Else
Me.txtProveedorMat.Text = cmbMat.SelectedItem(8)
End If
Me.GridMateriales.DataSource = Nothing
Me.GridMateriales.DataSource = MiEnlazadorMat
Me.GridMateriales.DataSource = MiDataSetMat.Tables(0)
'Primero cuales seran visibles
Me.GridMateriales.Columns("COS_MATMDO").Visible = False
Me.GridMateriales.Columns("COS_ACTUAL").Visible = False

Cargo el datagridview
end sub

Private Sub frmBase_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Call Cargar_datos()
End Subr

[maycolalvarez]

cual es el código del boton¿?

[carlosanpy]

Hola gracias por responder

este es el codigo del boton



Private Sub toolMaterialGuardar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles toolMaterialGuardar.Click

With MiAdaptadorMat
.InsertCommand = New System.Data.OleDb.OleDbCommand
.InsertCommand.Connection = MiConexion
.InsertCommand.CommandText = "INSERT INTO Precios(COS_DESCR,COS_COSTO,COS_UNIMED,COS_MONEDA, COS_FECHA,COS_MATMDO,COS_ACTUAL,COS_MEMO,COS_PROVE EDOR) VALUES (@material,@costo,@medida,@moneda,@fecha,@matmdo,@ actual,@memo,@proveedor)"
.InsertCommand.CommandType = System.Data.CommandType.Text
.InsertCommand.Parameters.Add("@material", OleDbType.VarChar).Value = txtMaterialesNuevoMat.Text
.InsertCommand.Parameters.Add("@costo", OleDbType.VarChar).Value = txtCostoEditMat.Text
.InsertCommand.Parameters.Add("@medida", OleDbType.VarChar).Value = cmbUnidadMat.Text
.InsertCommand.Parameters.Add("@moneda", OleDbType.VarChar).Value = txtMonedaMat.Text
.InsertCommand.Parameters.Add("@fecha", OleDbType.VarChar).Value = dateMat.Text
.InsertCommand.Parameters.Add("@matmdo", OleDbType.VarChar).Value = "MAT"
.InsertCommand.Parameters.Add("@actual", OleDbType.VarChar).Value = "N"
.InsertCommand.Parameters.Add("@memo", OleDbType.VarChar).Value = txtObservacionesEditMat.Text
.InsertCommand.Parameters.Add("@proveedor", OleDbType.VarChar).Value = txtProveedorEditMat.Text
End With

cmbMat.Text = txtMaterialesNuevoMat.Text
txtCostoMat.Text = txtCostoEditMat.Text
MiConexion.Open()
Dim Resultado = MiAdaptadorMat.InsertCommand.ExecuteNonQuery()
MiConexion.Close()

Call titulogrid()

End Sub

[Peterpay]

que hace titulogrid porq puede hacer que el tiempo de respuesta de tu webform se vuelve mayor.

[carlosanpy]

Perdon hermano

era solo una prueba que estaba armando, debería ser Call Cargar_Datos

[Peterpay]

lo q pasa es q estas invocando 2 veces ese proceso de cargar datos

1 vez cuando hace el load del webform y otra mas cuando haces el insert que al final de cuentas regresara a ser un load del webform.

quitalo del final del sub de insertar el Call Cargar_Datps()

[carlosanpy]

hOLA
gracias por responder,
si te refieres a la linea
Dim Resultado = MiAdaptadorMat.InsertCommand.ExecuteNonQuery()
del boton guardar, estuve probando ignorando esa linea y permiteme decirte que sin esa instrucción no guarda los nuevos registros en la base datos

TAMBIEN probe anteponiendo el datasource=nothing a los combos
cmbMat
cmbUnidadMat
cmbMonedaMat

ej
e.cmbMat.DataSource = Nothing
Me.cmbMat.DataSource = MiEnlazadorMat
Me.cmbMat.DisplayMember = "COS_DESCR"

y el resultado que ya no queda colgado pero no se reflejan los cambios en el datagridview,

Espero comentarios a ver a que se debe esto

Gracias

[Peterpay]

yo me refiero a q tu estas invocando en el PageLoad ese metodo Carga Datos pero tambien lo invocas al terminar de hacer tu insert y ahi esta el error porq al terminar de hacer el insert ira de nuevo al Load de tu pagina y ejecutara de nuevo lo q ya ejecutaste, nunca dije nada de ExecuteNonQuery o referente a esa linea.

[carlosanpy]

Hola de nuevo, gracias por tu gentileza

pero estoy medio confundido, ya que estoy autoaprendiendo

Me harías el favor de copiar y pegar el codigo en cuestion y asi salir de mis dudas?

Abrazos

Carlos

[Peterpay]

mejor copia y pega tu codigo aqui (omite las cosas q no nos interesan a nosotros como passwords o strings de conexion) y lo revisamos es necesario q este el codigo de Page_Load el codigo de tu funcion q tarda muchisimo tiempo y las funciones q invoques internamente

[carlosanpy]

Hola gracis de nuevo

el codigo integro es este

Imports System.Data.OleDb
Imports System.Data.DataRow

Public Class frmBase
Private MiConexion As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=|DataDirectory|" & "\costo01.mdb")

Private MiAdaptadorMat As New OleDbDataAdapter("SELECT * FROM precios WHERE COS_MATMDO = 'MAT' ORDER BY COS_DESCR", MiConexion)
Private MiDataSetMat As New DataSet()
Private MiEnlazadorMat As New BindingSource

'Monedas
Private MiAdaptadorMoneda As New OleDbDataAdapter("SELECT COS_MONEDA FROM precios GROUP BY COS_MONEDA", MiConexion)
Private MiDataSetMoneda As New DataSet()
Private MiEnlazadorMoneda As New BindingSource

'Unidad de medida
Private MiAdaptadorUnimed As New OleDbDataAdapter("SELECT COS_UNIMED FROM precios GROUP BY COS_UNIMED", MiConexion)
Private MiDataSetUnimed As New DataSet()
Private MiEnlazadorUnimed As New BindingSource

Private Sub Cargar_datos()

MiEnlazadorMat.DataSource = Nothing

Dim commandbuilderMat As New OleDb.OleDbCommandBuilder(Me.MiAdaptadorMat) 'Materiales
Dim commandbuilderMoneda As New OleDb.OleDbCommandBuilder(Me.MiAdaptadorRD) 'Tipo moneda

With MiAdaptadorMat
.InsertCommand = commandbuilderMat.GetInsertCommand
.DeleteCommand = commandbuilderMat.GetDeleteCommand
.UpdateCommand = commandbuilderMat.GetUpdateCommand
End With

MiAdaptadorMat.Fill(MiDataSetMat) 'Materiales
MiEnlazadorMat.DataSource = MiDataSetMat.Tables(0)
Me.cmbMat.DataSource = Nothing
Me.cmbMat.DataSource = MiEnlazadorMat
Me.cmbMat.DisplayMember = "COS_DESCR"
Me.cmbMat.ValueMember = "COS_COSTO"
Me.cmbUnidadMat.DataSource = Nothing
Me.cmbUnidadMat.DataSource = MiEnlazadorMat
Me.cmbUnidadMat.DisplayMember = "COS_UNIMED"
Me.cmbMonedaMat.DataSource = Nothing
Me.cmbMonedaMat.DataSource = MiEnlazadorMat
Me.cmbMonedaMat.DisplayMember = "COS_MONEDA"
Me.MiAdaptadorMat.Update(CType(Me.MiEnlazadorMat.D ataSource, DataTable))
Me.txtCostoMat.Text = CStr(MiDataSetMat.Tables(0).Rows(0)("COS_COSTO"))
Me.txtCostoMat.Text = String.Format("{0:#,##0.##}", Convert.ToDouble(txtCostoMat.Text))
Me.cmbMonedaMat.Text = CStr(MiDataSetMat.Tables(0).Rows(0)("COS_MONEDA"))
Me.txtMonedaMat.Text = CStr(MiDataSetMat.Tables(0).Rows(0)("COS_MONEDA"))
Me.txtFechaMat.Text = CStr(MiDataSetMat.Tables(0).Rows(0)("COS_FECHA"))
Me.txtUnidadMat.Text = CStr(MiDataSetMat.Tables(0).Rows(0)("COS_UNIMED"))

If cmbMat.SelectedItem(7) Is DBNull.Value Then 'Observaciones
Me.txtObservacionesMat.Text = String.Empty
Else
Me.txtObservaciones.Text = cmbMat.SelectedItem(7)
End If
If cmbMat.SelectedItem(8) Is DBNull.Value Then 'Proveedor
Me.txtProveedorMat.Text = String.Empty
Else
Me.txtProveedorMat.Text = cmbMat.SelectedItem(8)
End If

Me.GridMateriales.DataSource = Nothing
Me.GridMateriales.DataSource = MiDataSetMat.Tables(0)

MiEnlazadorMoneda.DataSource = Nothing
MiAdaptadorMoneda.Fill(MiDataSetMoneda) 'Tipo de moneda
MiEnlazadorMoneda.DataSource = MiDataSetMoneda.Tables(0)
Me.cmbMonedaMat.DataSource = MiEnlazadorMoneda
Me.cmbMonedaMat.DisplayMember = "COS_DESCR"
'
MiEnlazadorUnimed.DataSource = Nothing
MiAdaptadorUnimed.Fill(MiDataSetUnimed) 'Unidad de medida
MiEnlazadorUnimed.DataSource = MiDataSetUnimed.Tables(0)
Me.cmbUnidadMat.DataSource = MiEnlazadorUnimed
Me.cmbUnidadMat.DisplayMember = "COS_UNIMED"

'Primero cuales seran visibles
Me.GridMateriales.Columns("COS_MATMDO").Visible = False
Me.GridMateriales.Columns("COS_ACTUAL").Visible = False
'Orden de las columnas
Me.GridMateriales.Columns("COS_DESCR").DisplayInde x = 0
Me.GridMateriales.Columns("COS_COSTO").DisplayInde x = 2
Me.GridMateriales.Columns("COS_UNIMED").DisplayInd ex = 1
Me.GridMateriales.Columns("COS_MONEDA").DisplayInd ex = 3
Me.GridMateriales.Columns("COS_FECHA").DisplayInde x = 4
Me.GridMateriales.Columns("COS_MEMO").DisplayIndex = 6
Me.GridMateriales.Columns("COS_PROVEEDOR").Display Index = 5
'Encabezado de las columnas
Me.GridMateriales.Columns("COS_DESCR").HeaderText = "Descripción"
Me.GridMateriales.Columns("COS_COSTO").HeaderText = "Costo"
Me.GridMateriales.Columns("COS_UNIMED").HeaderText = "Unidad"
Me.GridMateriales.Columns("COS_MONEDA").HeaderText = "Moneda"
Me.GridMateriales.Columns("COS_FECHA").HeaderText = "Fecha"
Me.GridMateriales.Columns("COS_MEMO").HeaderText = "Observaciones"
Me.GridMateriales.Columns("COS_PROVEEDOR").HeaderT ext = "Proveedor"
'Ancho de columnas
Me.GridMateriales.Columns("COS_DESCR").Width = 250
Me.GridMateriales.Columns("COS_COSTO").Width = 100
Me.GridMateriales.Columns("COS_UNIMED").Width = 50
Me.GridMateriales.Columns("COS_MONEDA").Width = 80
Me.GridMateriales.Columns("COS_FECHA").Width = 70
Me.GridMateriales.Columns("COS_MEMO").Width = 300
Me.GridMateriales.Columns("COS_PROVEEDOR").Width = 150
'Alineacion de cada columna
Me.GridMateriales.Columns("COS_COSTO").DefaultCell Style.Alignment = DataGridViewContentAlignment.BottomRight
Me.GridMateriales.Columns("COS_UNIMED").DefaultCel lStyle.Alignment = DataGridViewContentAlignment.BottomRight
Me.GridMateriales.Columns("COS_MONEDA").DefaultCel lStyle.Alignment = DataGridViewContentAlignment.BottomRight
Me.GridMateriales.Columns("COS_FECHA").DefaultCell Style.Alignment = DataGridViewContentAlignment.BottomRight
'Formato de columnas numéricas
Me.GridMateriales.Columns("COS_COSTO").DefaultCell Style.Format = "##,##0"
'Formato de encabezado
Me.GridMateriales.Columns("COS_DESCR").HeaderCell. Style.Alignment = DataGridViewContentAlignment.MiddleCenter
Me.GridMateriales.Columns("COS_COSTO").HeaderCell. Style.Alignment = DataGridViewContentAlignment.MiddleRight
Me.GridMateriales.Columns("COS_UNIMED").HeaderCell .Style.Alignment = DataGridViewContentAlignment.MiddleRight
Me.GridMateriales.Columns("COS_MONEDA").HeaderCell .Style.Alignment = DataGridViewContentAlignment.MiddleRight
Me.GridMateriales.Columns("COS_FECHA").HeaderCell. Style.Alignment = DataGridViewContentAlignment.MiddleRight
Me.GridMateriales.Columns("COS_MEMO").HeaderCell.S tyle.Alignment = DataGridViewContentAlignment.MiddleCenter
End Sub

Private Sub frmBase_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Call Cargar_datos()
End Sub

Private Sub toolMaterialGuardar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
toolMaterialGuardar.Click
With MiAdaptadorMat
.InsertCommand = New System.Data.OleDb.OleDbCommand
.InsertCommand.Connection = MiConexion
.InsertCommand.CommandText = "INSERT INTO Precios(COS_DESCR,COS_COSTO,COS_UNIMED,COS_MONEDA, COS_FECHA,COS_MATMDO,COS_ACTUAL,COS_MEMO,COS_PROVE EDOR) VALUES (@material,@costo,@medida,@moneda,@fecha,@matmdo,@ actual,@memo,@proveedor)"
.InsertCommand.CommandType = System.Data.CommandType.Text
.InsertCommand.Parameters.Add("@material", OleDbType.VarChar).Value = txtMaterialesNuevoMat.Text
.InsertCommand.Parameters.Add("@costo", OleDbType.VarChar).Value = txtCostoEditMat.Text
.InsertCommand.Parameters.Add("@medida", OleDbType.VarChar).Value = cmbUnidadMat.Text
.InsertCommand.Parameters.Add("@moneda", OleDbType.VarChar).Value = txtMonedaMat.Text
.InsertCommand.Parameters.Add("@fecha", OleDbType.VarChar).Value = dateMat.Text
.InsertCommand.Parameters.Add("@matmdo", OleDbType.VarChar).Value = "MAT"
.InsertCommand.Parameters.Add("@actual", OleDbType.VarChar).Value = "N"
.InsertCommand.Parameters.Add("@memo", OleDbType.VarChar).Value = txtObservacionesEditMat.Text
.InsertCommand.Parameters.Add("@proveedor", OleDbType.VarChar).Value = txtProveedorEditMat.Text
.Update(CType(Me.MiEnlazadorMat.DataSource, DataTable))
End With

cmbMat.Text = txtMaterialesNuevoMat.Text
txtCostoMat.Text = txtCostoEditMat.Text
MiConexion.Open()
Dim Resultado = MiAdaptadorMat.InsertCommand.ExecuteNonQuery()
MiConexion.Close()
Call Cargar_datos()

End Sub

Private Sub toolMaterialNuevo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles toolMaterialNuevo.Click

txtMaterialesNuevoMat.Visible = True
txtCostoEditMat.Visible = True
cmbMonedaMat.Visible = True
dateMat.Visible = True
txtProveedorEditMat.Visible = True
cmbUnidadMat.Visible = True
txtObservacionesEditMat.Visible = True

'
txtMaterialesNuevoMat.Text = ""
txtCostoEditMat.Text = ""
txtProveedorEditMat.Text = ""
txtObservacionesEditMat.Text = ""

'
dateMat.Text = Date.Today
End Sub

End Class

[Peterpay]

Private Sub toolMaterialGuardar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
toolMaterialGuardar.Click
With MiAdaptadorMat
.InsertCommand = New System.Data.OleDb.OleDbCommand
.InsertCommand.Connection = MiConexion
.InsertCommand.CommandText = "INSERT INTO Precios(COS_DESCR,COS_COSTO,COS_UNIMED,COS_MONEDA, COS_FECHA,COS_MATMDO,COS_ACTUAL,COS_MEMO,COS_PROVE EDOR) VALUES (@material,@costo,@medida,@moneda,@fecha,@matmdo,@ actual,@memo,@proveedor)"
.InsertCommand.CommandType = System.Data.CommandType.Text
.InsertCommand.Parameters.Add("@material", OleDbType.VarChar).Value = txtMaterialesNuevoMat.Text
.InsertCommand.Parameters.Add("@costo", OleDbType.VarChar).Value = txtCostoEditMat.Text
.InsertCommand.Parameters.Add("@medida", OleDbType.VarChar).Value = cmbUnidadMat.Text
.InsertCommand.Parameters.Add("@moneda", OleDbType.VarChar).Value = txtMonedaMat.Text
.InsertCommand.Parameters.Add("@fecha", OleDbType.VarChar).Value = dateMat.Text
.InsertCommand.Parameters.Add("@matmdo", OleDbType.VarChar).Value = "MAT"
.InsertCommand.Parameters.Add("@actual", OleDbType.VarChar).Value = "N"
.InsertCommand.Parameters.Add("@memo", OleDbType.VarChar).Value = txtObservacionesEditMat.Text
.InsertCommand.Parameters.Add("@proveedor", OleDbType.VarChar).Value = txtProveedorEditMat.Text
.Update(CType(Me.MiEnlazadorMat.DataSource, DataTable))
End With

cmbMat.Text = txtMaterialesNuevoMat.Text
txtCostoMat.Text = txtCostoEditMat.Text
MiConexion.Open()
Dim Resultado = MiAdaptadorMat.InsertCommand.ExecuteNonQuery()
MiConexion.Close()
Call Cargar_datos() <----- COMENTALO o ELIMINALO

End Sub

quita el Call Cargar_datos() de este metodo lo estas invocando aqui pero tambien cuando la pagina haga response a tu peticion lo ejecutara porq se ejecuta en el Page_Load

[carlosanpy]

hOLA

He probado omitiendo la instrucción Cargar_Datos y como se esperaba realiza la acción pero no se refleja en el grid ni en las cajas de texto los cambios realizados que era el objetivo principal de llamar a Cargar_Datos

Espero una opinion tuya

Gracias

CArlos