Visual Basic.NET - Ayuda plissss!!!

   
Vista:

Ayuda plissss!!!

Publicado por Carlos (9 intervenciones) el 01/10/2009 17:44:22
Hola a todos

Estoy trabajando con visual basic 2008 express y una base datos access

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 Sub
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder