Alex
12 de Agosto del 2003

hola amigos, tengo el siguiente problema
tengo varios cuadros de texto con
codigo, nombre, rut, etc... y un data y ademas una base de datos con los mismos campos.................
pero al ingresar los datos me quedan a la vista
como hago para que con un boton agregar me pase al siguiente registro y me despeje los cuadros para un nuevo cliente y con un boton modificar pueda acceder a modificar los datos de estos?........

gracias por su ayuda ...

xvisual
12 de Agosto del 2003

hola alex
Te recomiendo que no uses data para trabajar con bases de datos.
ya que si lo tuyo es trabajar en visual lo mas utilizado es conecciones
con ODBC, Quizas mas adelante con un poco de experiencia pueda enviarte
codigos con este tipo de coneccion.
por el momento te envio este codigo (ya que recien estas aprendiendo )
sin la necesidad de usar un data.

Private Sub cmd_grabar_Click()
Dim BD As Database
Dim TB As Recordset
Dim sql As String

on error goto errores

SQL$ = " SELECT clientes.rut, clientes.dv, clientes.appaterno, clientes.apmaterno "
SQL$ = SQL$ & " FROM clientes " + _
SQL$ = SQL$ & " where clientes.rut = " & txt_rut.text & ""

Set BD = Workspaces(0).OpenDatabase("direccion base") ' ejm. c:progra01copeva.mdb
Set TB = BD.OpenRecordset(sql, dbOpenDynaset)

If TB.EOF Then
TB.AddNew
Else
TB.Edit
End If

TB!codigo = txt_rut.Text
TB!nombre = txt_digito.Text
TB!direccion = txt_appaterno.Text
TB!comuna = txt_appaterno.Text
TB.Update

TB.Close
BD.Close

limpiar

Exit Sub
errores:
TB.Close
BD.Close

MsgBox Err.Number & " - " & Err.Description, vbCritical
End Sub


sub limpiar()
txt_rut.Text = ""
txt_digito.Text = ""
txt_appaterno.Text = ""
txt_appaterno.Text = ""

txt_rut.setfocus
end sub