Visual Basic.NET - Ver cambios de otros usuarios

 
Vista:

Ver cambios de otros usuarios

Publicado por Beatriz (1 intervención) el 28/07/2009 18:28:59
Hola buen dia Programadores:
??Como hago para ver los cambios realizados por otros usuarios en una aplicación, he desarrollado una aplicacion, y cuando la pruebo en la misma maquina, ejecutando dos veces el programa, los cambios que hago en uno, no los logro ver en el otro y viceverza, por favor si me pueden ayudar, les estare muy agradecida.
atte Beatriz
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Ver cambios de otros usuarios

Publicado por Damian (824 intervenciones) el 28/07/2009 19:24:10
Tendrias que explicar un poco mejor, no sabemos que estas haciendo, podrias poner la parte del codigo en donde realizas eoss cambios. No entiendo si estas trabajando con una unica maquina y ahi tienes la BD o si trabajas con mas de una en donde usas una sola BD donde se realizan las distintas modificaciones de distintas maquinas.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Ver cambios de otros usuarios

Publicado por Beatriz (31 intervenciones) el 28/07/2009 21:20:15
Ok Damian, pues estoy trabajando asi:
En el servidor esta instalado sql 2000, y la maquina cliente es mipc, donde estoy programando la aplicación:
Me conecto a la base, utilizo sqldataadapter, lo lleno y creo el conjunto de datos

en el load:
Me.TextBox8.Focus()
Try
Me.DataAlumnos1.Clear()
Me.SqlDataAdapter1.Fill(Me.DataAlumnos1, "alumnos") 'dataalumnos es el conjunto de datos
inicializar()
posicionactual()
Catch ex As Exception
MessageBox.Show(ex.Message, "Información del sistema", _
MessageBoxButtons.OK, MessageBoxIcon.Error)

End Try

boton Anterior:
Me.BindingContext(DataAlumnos1, "alumnos").Position = (Me.BindingContext(DataAlumnos1, "alumnos").Position - 1)

Boton Siguiente:
Me.BindingContext(DataAlumnos1, "alumnos").Position = (Me.BindingContext(DataAlumnos1, "alumnos").Position + 1)

y asi sucesivamente

Boton Nuevo:
Try
'Indicamos que termine la edición actual
Mlleva = i = (Me.BindingContext(DataAlumnos1, "Alumnos").Position)
insert()
habilitar()
Me.PictureBox1.Image = Nothing
Me.PictureBox1.Refresh()
Me.TextBox1.Focus() 'Mandar el foco al textbox1
Me.BindingContext(Me.DataAlumnos1, _
"ALUMNOS").EndCurrentEdit()
'Preparamos al DataSet para aceptar un Registro nuevo
Me.BindingContext(DataAlumnos1, "ALUMNOS").AddNew()
' Me.TextBox12.Text = Now()
' HabilitaBotones(False)
' HabilitaCaptura(True)
Catch ex As Exception
MsgBox(ex.Source & "; " & ex.Message)
End Try

Boton guardar:
Try
'Indicamos que termine la edición actual
updetear()
Me.BindingContext(DataAlumnos1, _
"ALUMNOS").EndCurrentEdit()
'Actializamos la Base de datos
Me.SqlDataAdapter1.Update(DataAlumnos1, "ALUMNOS")
'aqui deberia estar el codigo de actualizacion
deshabilitar()
posicionactual()

Catch ex As Exception
MsgBox(ex.Source & "; " & ex.Message, _
MsgBoxStyle.OkOnly, "Ocurrió un error")
End Try
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar