RE:Ver cambios de otros usuarios
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