Problema con base de datos Necesito ayuda con una base de datos, ya que quiero editar una de las celdas con un dato nuevo que agrego atravez de un textbox, cuando ejecuto el progama me dice que lo hace perfecto, pero cuando voy a la base de datos el valor nuevo no se me conserva, tengo el siguiente codigO:
Dim valor As Integer
valor = MsgBox("Al cambiar la dirección IP en el software, se debe configurar en el equipo" & vbCrLf & "¿Desea Continuar?", MsgBoxStyle.Exclamation Or MsgBoxStyle.OkCancel Or MsgBoxStyle.DefaultButton2, "Advertencia")
If valor = MsgBoxResult.Ok Then
MyC_ETSDataSet1.Direcciones_IP.Rows(0).Item("Direc ción IP") = TextBox2.Text
Try
'MyC_ETSDataSet1.GetChanges()
MyC_ETSDataSet1.Direcciones_IP.GetChanges()
' DireccionesIPBindingSource.EndEdit()
MyC_ETSDataSet1.Direcciones_IP.Rows(0).AcceptChang es()
Direcciones_IPTableAdapter.Update(MyC_ETSDataSet1)
MyC_ETSDataSet1.AcceptChanges()
MsgBox("Base de Datos Actualizada", MsgBoxStyle.MsgBoxRight)
Catch ex As Exception
MsgBox("Base de Datos NO Actualizada" & ex.Message, MsgBoxStyle.Exclamation)
End Try
LinkLabel4.Text = MyC_ETSDataSet1.Direcciones_IP.Rows(0).Item("Direc ción IP")
strAgent = MyC_ETSDataSet1.Direcciones_IP.Rows(0).Item("Direc ción IP")
End If
TextBox2.Visible = False
Button8.Visible = False
Si me pueden echar una mano se los agredezco! Gracias
