Foros aprenderaprogramar.com
Aprender a programar => Aprender a programar desde cero => Mensaje iniciado por: Bebejb en 19 de Agosto 2019, 14:23
-
Buenos días, mi problema es el siguiente:
Tengo un problema con el botón de guardar del control BindingNavigator, me actualiza el dataset pero no consigo que se actualice la base de datos, es como si el TableAdapterManager.UpdateAll no hiciera nada.
Cree el form en modo gráfico, y el código es el siguiente:
Private Sub TBL_EmpresaBindingNavigatorSaveItem_Click(sender As System.Object, e As System.EventArgs) Handles TBL_EmpresaBindingNavigatorSaveItem.Click
Me.Validate()
Me.TBL_EmpresaBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.BASE_CONTROL_DOC_VB10DataSet)
‘HASTA AQUÍ NO ACTUALIZA LA BASE DE DATOS
‘INTENTÉ SI PODÍA INGRESAR LOS NUEVOS REGISTROS CON CODIGO
‘PERO TAMPOCO
If Si_Nuevo = True Then
Dim conDB As New SqlCeConnection(conDBString)
Dim sqlInsert As String = "INSERT INTO TBL_Empresa (ID_Empresa, Nombre_Empresa, Ruta_Empresa) "
Dim sqlValores As String = "VALUES (" & CSng(Me.ID_EmpresaComboBox.Text) & ", " & Me.Nombre_EmpresaTextBox.Text & ", " & Me.Ruta_EmpresaTextBox.Text & ")"
Dim cmd As New SqlCeCommand(sqlInsert + sqlValores, conDB)
Try
conDB.Open()
cmd.ExecuteNonQuery()
Me.TBL_EmpresaTableAdapter.Fill(Me.BASE_CONTROL_DOC_VB10DataSet.TBL_Empresa)
cmd = Nothing
conDB.Close()
Catch ex As Exception
End Try
Si_Nuevo = False
End If
End Sub
-
Hola, lo primero es asegurar que se actualiza el dataset (Me.BASE_CONTROL_DOC_VB10DataSet). Si eso lo aseguras, comprueba en tu sistema de ficheros si existe un archivo de base de datos (mdb) que esté duplicado ya que es probable que te esté actulizando otro fichero distinto al que tú esperas que actualice.
-
Entiendo que si se actualiza el dataset ya que puedo recorrer los registros a través del control
Pero si compruebo la base de datos directamente no están, o cierro la aplicación y la vuelvo a abrir, desaparecen los registros, miro si existen duplicados y comento