border
VB 6
 
 
  #1 (permalink)  
Antiguo 11-12-2009, 22:42:39
Gran Participación en el Foro
 
Registrado: mar 2009
Ubicación: Venezuela
Posts: 164
Créditos: 5.193
alvarezdda Aun no valorado
Contactar con alvarezdda a través de MSN
Predeterminado Crear formulario de acceso en access

Hola buen dia a todos.

Quisiera crear un formulario dentro de mi archivo para que al intentar abrir
me pida una contraseña. si colocan la contraseña mal que se salga y sino abra la base de datos.

Se que por la opcion de herramientas se puede colocar clave, pero si hago esto entonces tendria que modificar todos los codigos de los tantos formularios que tiene mi programa seria algo muy desagradable. y se que haci me ahorraria todo eso. pero he buscado informacion y aun no doy.
Digg this Post!Add Post to del.icio.usBookmark Post in TechnoratiFurl this Post!
Responder Con Cita
  #2 (permalink)  
Antiguo 14-12-2009, 15:08:04
Banned
 
Registrado: sep 2007
Posts: 499
Créditos: 252
ernie Valoración +2
Predeterminado Re: Crear formulario de acceso en access

hola:
a un proyecto nuevo agregá un mdiform y un módulo
en el módulo pegá este código:

Código:
Option Explicit
Public LoginSucceeded As Boolean
Public cnn As ADODB.Connection

Public Sub Main()
    Set cnn = New ADODB.Connection
    cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\ejemplo.mdb;Persist Security Info=False"
    cnn.Open
    
    MDIForm1.WindowState = vbMaximized
    MDIForm1.Show
    
    frmLogin.Show vbModal
    
    If Not LoginSucceeded Then
        cnn.Close
        Set cnn = Nothing
        End
    End If
    
    'Form1.Show
    
End Sub
en el mdi este:

Código:
Option Explicit

Private Sub MDIForm_Unload(Cancel As Integer)
    If Not cnn Is Nothing Then
        cnn.Close
        Set cnn = Nothing
    End If
End Sub
luego en desde el menú Proyecto->Agregar Formulario, elegí la opción:
Cuadro de diálogo inicio de sesión

cambiá todo el código generado automáticamente por este:

Código:
Option Explicit

Private Sub cmdCancel_Click()
    'establecer la variable global a false
    'para indicar un inicio de sesión fallido
    LoginSucceeded = False
    Unload Me
End Sub

Private Sub cmdOK_Click()
    Dim rs As ADODB.Recordset
    Dim cmd As New Command
    Dim strSQL As String
    
    strSQL = "SELECT NULL FROM Usuarios WHERE UserName = ? AND Password = ?"
    
    cmd.ActiveConnection = cnn
    cmd.CommandType = adCmdText
    cmd.CommandText = strSQL
    cmd.Parameters.Append cmd.CreateParameter("UserName", adVarChar, adParamInput, 50, Me.txtUserName.Text)
    cmd.Parameters.Append cmd.CreateParameter("Password", adVarChar, adParamInput, 50, Me.txtPassword.Text)
    
    Set rs = cmd.Execute
    
    LoginSucceeded = Not rs.EOF
    
    rs.Close
    Set rs = Nothing
    If LoginSucceeded Then
        Unload Me
    Else
        MsgBox "Los datos de inicio no son válidos. Vuelva a intentarlo", , "Inicio de sesión"
    End If
    
End Sub
en la base debe existir una tabla de nombre "Usuarios" con los campos

IdUsuario - numerico entero largo (PK)
UserName - Texto x 50 (U1)
Password - Texto x 50 (U1)
Digg this Post!Add Post to del.icio.usBookmark Post in TechnoratiFurl this Post!
Responder Con Cita
  #3 (permalink)  
Antiguo 14-12-2009, 23:31:55
Gran Participación en el Foro
 
Registrado: mar 2009
Ubicación: Venezuela
Posts: 164
Créditos: 5.193
alvarezdda Aun no valorado
Contactar con alvarezdda a través de MSN
Predeterminado Re: Crear formulario de acceso en access

Creo que no me explique bien. no es en visual basic es en ACCESS
dentro de acces un formulario para que no deje entrar a visualizar las tablas de access a menos que ingrese una clave que este contenida en una tabla llamada usuario o sino una ya establecida para que no sea tanto problema
Digg this Post!Add Post to del.icio.usBookmark Post in TechnoratiFurl this Post!
Responder Con Cita
  #4 (permalink)  
Antiguo 15-12-2009, 14:57:23
Banned
 
Registrado: sep 2007
Posts: 499
Créditos: 252
ernie Valoración +2
Predeterminado Re: Crear formulario de acceso en access

con access viene una base de ejemplo que se llama Neptuno si no recuerdo mal, tiene lo que necesitás
Digg this Post!Add Post to del.icio.usBookmark Post in TechnoratiFurl this Post!
Responder Con Cita
Respuesta


Herramientas

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Trackbacks are habilitado
Pingbacks are habilitado
Refbacks are habilitado



La franja horaria es GMT. Ahora son las 07:24:28.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO 3.1.0
vBCredits v1.4 Copyright ©2007 - 2008, PixelFX Studios
© VB-MUNDO CO. Todos los derechos reservados
Tutoriales Premium | Juegos Online 


right

Programacion, vb 6, visual basic, foro programacion

Inactive Reminders By Icora Web Design