sergiote
12 de Abril del 2006

BUENAS! TENGO EL SIGUIENTE CODIGO EN VB.NET :

Dim TablaProyDataSet As New MibaseDataSet

Public Sub SalvarNuevoProyecto(ByVal nombre As String, ByVal fechaIni As Date)
Dim adapter As New MibaseDataSetTableAdapters.ProyectosTableAdapter
Try
TablaProyDataSet.Proyectos.AddProyectosRow(nombre, fechaIni, fechaIni)
adapter.Update(TablaProyDataSet.Proyectos)
TablaProyDataSet.AcceptChanges()
Catch e As Exception
MsgBox(e.Message)
End Try

End Sub

EL PROBLEMA ES QUE NO SE PRODUCE NINGUNA ACTUALIZACION EN LA BASE DE DATOS QUE TENGO HECHA EN ACCESS, Y NO SE QUE ES LO Q ME FALLA PORQUE NO DA ERROR EN NINGUN SITIO EL PROGRAMA. alguien sabria que puede pasarme???

juantxeras
12 de Abril del 2006

yo prefiero hacerlo a mano en el currentcell_changed(al cambiar de celda):

Private Sub g_mochilas_CurrentCellChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles g_mochilas.CurrentCellChanged
Dim program As String
Dim respon As String
Dim identi As String
Try

identi = g_mochilas.Item(temporal4, 0)
program = g_mochilas.Item(temporal4, 1)
respon = g_mochilas.Item(temporal4, 2)

conexion2.Open()
strsql1 = "update mochilas set programa =\'" & program & "\', responsable =\'" & respon & "\' where id=" & identi
comando2.CommandText = strsql1
comando2.Connection() = conexion2
comando2.ExecuteNonQuery()
conexion2.Close()
temporal4 = g_mochilas.CurrentRowIndex
Catch ex As Exception
End Try
End Sub