tengo ese codigo pero no me deja bien agregar un registro
otra cosa cuales son los codigos para
buscar un registro
ir al primer registro
al ultimo
modificar
Eso desde ya les agradesco y porfa que tengo ma len el siguiente codigo que no me deja agregar bien pero por lo que identifico el error esta en el keyprees
Código PHP:
Dim i As Integer
Dim total As Integer
Private Sub mostrar()
Me.Text = "REGISTRO " & (i + 1) & " DE " & total
drFila = DataSet21.Tables("Cliente").Rows(i)
txtRut.Text = drFila.Item("Rut")
txtNombre.Text = drFila.Item("Nombre")
txtDireccion.Text = drFila.Item("Direccion")
txtTelefono.Text = drFila.Item("Telefono")
End Sub
Private Sub actualizar()
Me.OleDbDataAdapter2().Update(DataSet21, "Cliente")
Me.DataSet21.AcceptChanges()
End Sub
Private Sub Frmingresousuario_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.OleDbDataAdapter2.Fill(DataSet21, "Cliente")
i = i
total = DataSet21.Tables("Cliente").Rows.Count
mostrar()
End Sub
Private Sub btnAdelante_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdelante.Click
i = i + 1
If i = total Then
i = total - 1
End If
mostrar()
End Sub
Private Sub BtnAgregar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnAgregar.Click
txtRut.Text = ""
txtNombre.Text = ""
txtDireccion.Text = ""
txtTelefono.Text = ""
txtRut.ReadOnly = False
txtRut.Focus()
End Sub
Private Sub txtRut_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtRut.KeyPress
If e.KeyChar = Microsoft.VisualBasic.Chr(13) Then
txtRut.ReadOnly = True
drFila = Me.DataSet21.Tables("Cliente").NewRow()
drFila.Item("Rut") = txtRut.Text
drFila.Item("Nombre") = txtNombre.Text
drFila.Item("Direccion") = txtDireccion.Text
drFila.Item("Telefono") = txtTelefono.Text
Me.DataSet21.Tables("Cliente").Rows.Add(drFila)
total = total + 1
i = 0
actualizar()
mostrar()
End If
End Sub
Private Sub btnEliminar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEliminar.Click
drFila.Delete()
total = total - 1
i = 0
actualizar()
mostrar()
End Sub
Private Sub BtnAtras_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnAtras.Click
i = i - 1
If i < 0 Then
i = 0
End If
mostrar()
End Sub