Mensaje dentro de Foro VB.NET

Responder 
#1 - 09/07/2011 19:51:02 Reporta abuso | Link Permanente
Julian
Usuario no registrado
Access Vb.net, problema con datagrid

Responder Citar
aqui esta el problema:
La aplicacion es basicamente un sistema que me permite elegir datos de combobox y luego ingresa los textos a a una base de datos access (mes, medico, producto y cantidad). ahora bien, la aplicacion tiene varios datagridview´s que lo que hacen es mostrar los registro de la base de datos de los ingresos ("Ventas"). Cuando el usuario quiere ingresar una nueva venta (o registro...) se le hace un pregunta confirmando si el mes es: elquesea y el medico: elquesea. Luego cundo confirma tal pregunta, sale una ventana emergente (msgbox) confirmando que el ingreso de tal venta se realizo correctamente, ahora bien cuando mensaje se cierra, teoricamente tendria que aparecer en el datagridview el el ultimo ingreso, no? bueno, resulta que no aparece (pero cuando abro el access de "Ventas", si me aparecen los ingresos que
realice... (digamos los que no me aparecen el grid))
Primero pense en un problema de recarga de los datagrid pero no, aqui estan los codigos:
Codigo de ingreso:



Sub NUEVO()    Dim mensaje As String = String.Format("Confirma que el medico es:'{0}' y el mes:'{1}'", cbxVentaMedico.Text, cbxVentaMes.Text)    Dim result As DialogResult = MessageBox.Show(mensaje, "", MessageBoxButtons.YesNo, MessageBoxIcon.Question)    If result = DialogResult.Yes Then      sCnn.Open()      Dim query As String = "INSERT INTO Ventas (Mes, Medico, Producto, Cantidad) VALUES (@IngresoMes, @IngresoMedico, @IngresoProducto, @IngresoCantidad)"      Dim CMD As New OleDb.OleDbCommand(query, sCnn)      CMD.Parameters.AddWithValue("@IngresoMes", cbxVentaMes.Text)      CMD.Parameters.AddWithValue("@IngresoMedico", cbxVentaMedico.Text)      CMD.Parameters.AddWithValue("@IngresoProducto", cbxVentaProducto.Text)      CMD.Parameters.AddWithValue("@IngresoCantidad", txtVentaCantidad.Text)      CMD.ExecuteNonQuery()      sCnn.Close()      <strong> Mostrar()</strong>      MsgBox("Se ha ingresado la venta")    Else      cbxVentaMedico.Text = ""      cbxVentaMes.Text = ""    End If    txtVentaCantidad.Clear()    cbxVentaProducto.SelectedIndex = 0  End Sub

El Mostrar() es un proceso que renueva todos los datagrid, y su codigo es el siguiente (sCnn es el oledbconecction con la base access "Ventas"):

 Sub Mostrar()    Dim DA As New OleDb.OleDbDataAdapter("Select * from Ventas", sCnn)    Dim DS As New DataSet    DA.Fill(DS, "Ventas")    DataGridView1.DataSource = DS.Tables("Ventas")    DataGridView3.DataSource = DS.Tables("Ventas")  End Sub

Gracias, Diaz Julian

Volver arriba