Mostrar Mensajes
1
Aprender a programar desde cero / TableAdapterManager.UpdateAll No actualiza la base de datos en VB.Net 2010
« 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:
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:
Código: [Seleccionar]
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
RSS