Hola Erick
Espero te encuentres bien.
No se en realidad que tanto conocimiento tengas de DAO, la ayuda que te voy a dar es solo si conoces sobre codigo SQL.
Puedes hacer esto.
[CODE]
Private Sub btnguardar_Click()
on error goto error
Set conexion = New ADODB.Connection
Set registro = New ADODB.Recordset
conexionbd.Open "c:/Base de datos"
'truco para generar el codigo iniciado desde 1
sql1 = "select max(codigo) as maximo from nombre_tabla"
registrobd.Open sql1, conexionbd
error:
If Err = 94 Then
ID = 1
End If
ID = CInt(registrobd!maximo) + 1
'grabar en la bd
SQL = "insert into nombre_tabla " & _
"values ('" + Str(ID) + "','" + texnombre + "','" + texapellidos + "','" + texttelefono + "')"
conexionbd.Execute SQL
conexionbd.Close
MsgBox "Datos guardados Satisfactoriamente", vbInformation
End If
End Sub
private sub btnbuscar_click()
Set conexion = New ADODB.Connection
Set registro = New ADODB.Recordset
conexionbd.Open "c:/Base de datos"
'debes selleccionar el codigo, aunque te sugiero que lo busques por el nombre ya que se memoriza mejor
SQL="Select * nombre_tabla where codigo =txtcodigo.text"
conexionbd.Execute SQL
While not registro.EOF
txtnombre.text=!Nombre
txtapellidos.text=!Apellido
txttelefono=!telefono
movenext
end while
conexionbd.Close
end sub
No se si te funcione a la primera, alguna duda dejame un mensaje en este foro.
