Visual Basic - NECESITO UN MANTENEDOR DE ARCHIVOS

Life is soft - evento anual de software empresarial
 
Vista:

NECESITO UN MANTENEDOR DE ARCHIVOS

Publicado por ROBERTO (1 intervención) el 21/07/2005 19:06:08
Hola... saben necesito saber como hacer un mantenedor de archivos.... con una pequeña tabla en acces... que tenga un boton : grabar, buscar, eliminar, modificar...

esto debe ser basico ya que es solo es , para efectos de aprendisajes

gracias....
a quien me pueda ayudar...
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:NECESITO UN MANTENEDOR DE ARCHIVOS

Publicado por Javier (2 intervenciones) el 21/07/2005 19:15:18
Hola: contame un poco mas sobre el programa que queres hacer. No entiendo bien si es un programa para manejar archivos, o bases de datos, o archivos registrados en una base de datos. Javier
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
sin imagen de perfil
Val: 14
Ha aumentado 1 puesto en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

RE:NECESITO UN MANTENEDOR DE ARCHIVOS

Publicado por SuNcO (599 intervenciones) el 21/07/2005 19:19:22
Puedes usar sentencias de Sql en lugar de usar el control Data

Ejemplo :

Dim Dbs As Database, Resultado As Recordset
Set Dbs = OpenDatabase(Principal.Ruta & "Accesos.mdb")

' La siguiente es para Busqueda
Set Resultado = Dbs.OpenRecordset("SELECT * FROM Usuarios WHERE Usuario='" & Text1& "';")

If Resultado.RecordCount <> 0 Then
' Aqui entra cuando si hay resultado de la Busqueda
' Para desplegar la busqueda por ejemplo :
MsgBox "Clave es : " & Resultado.Fields("Clave")
End If

Dbs.Close

Para que este codigo te funcione activa la Referencia llamada "Microsoft DAO 3.51"

Para insertar :

Dbs.Execute "INSERT INTO Usuarios VALUES ('Nombre','Clave');"

Para eliminar :

Dbs.Execute "DELETE FROM Usuarios WHERE Usuario='Nombre';"

Para modificar :

Dbs.Execute "UPDATE Usuarios SET Clave='OtraClave' WHERE Usuario='Nombre';"
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