Login Before Access

[mymicky]

Hello
Im trying to create a new form(form1), in this form the User Has to login with a userid and password in other to see form2 and there should be an option for new users to register on form1..And the program must be able to keep newuserids and passwords. Can anyone help me? Thanks

[BrailleSchool]

this has been discussed a million times already, try searching the forum before posting.

[BrailleSchool]

here is the example i promised you in the pm. havent tested it but it should work. itll give you an idea anyways.

[BrailleSchool]

go into modDatabase and change the first sub to this:

Public Sub EstablishDatabaseConnection()
    'the variables are set within the module (modVariables), now lets set the
    'instance of these variables
    'MAKE SURE YOU SET A REFERENCE TO Microsoft ActiveX Data Objects 2.x
    '(Project > References)
    Set objADOCon = New ADODB.Connection
    
    'this is the connection string to access the database (do not modify)
    With objADOCon
        .CursorLocation = adUseClient
        .ConnectionString = "DRIVER={Microsoft.Jet.OLEDB.4.0};" _
                          & "DATA SOURCE=" & App.Path & strDBFile & ";" _
                          & "USER ID=" & strUN & ";" _
                          & "PASSWORD=" & strPW & ";"
        .Open .ConnectionString
    End With
End Sub

[mymicky]

Ok, i did just that and when i open the fromAddUser and try to add a new user i get this error. " Sub or Function Not Defined" and this place gets highlighted in the codes..

Private Sub cmdAdd_Click()
EstablishDatabaseConnection

Also when i open frmLoginScreen and type in a username and password and click on login i see a visual basic run time error..

"Run-Time error '-2147467259 (80004005)':

[Microsoft][ODBC Driver Manager] Data source name too long"


What might be the problem?

[mymicky]

this place gets highlighted in the code...

.Open .ConnectionString for the Run Time Error

[BrailleSchool]

im at work right now, will look into it when i get home from work. should be around 6pm est.

[mymicky]

Ok.. will be waiting.. thanks

[leinad31]

Dont create the connection object again and again if its just the same database. Set up the public connection in a BAS module on program start then close it on program end (in your Unload All procedure), and not per procedure call.

.Open .ConnectionString ...If you've already assigned the connection string to .ConnectionString then a simple .Open would suffice.

What value are you assigning to data source or what's "App.Path & strDBFile"? You may need to move your app directory closer to the root.

[mymicky]

Same Error.. You can look in the codes in the example.zip :S Im now confused

[DigiRev]

Does the username/password have to be stored in a database or could you put it in a standard (encrypted) text file?

[BrailleSchool]

Does the username/password have to be stored in a database or could you put it in a standard (encrypted) text file?

if youre going to use a db anyway, whats the point in using a textfile?

[DigiRev]

Oh I didn't know he was already using a db in his project.

[BrailleSchool]

post #3 updated, tested, works

[BrailleSchool]

Oh I didn't know he was already using a db in his project.

he wanted to use a db but he didnt know how, so asked for an example, thats when i provided an example (was untested and written from memory, had to make slight changes)

[mymicky]

Thanks a lot guys.. ive got it now .. now the last question is .. i alreay have form1 how do i link the 2 together, so after the person logins he sees form1. I hope you understand what im saying.. I tried changing the

frmMain.Show vbModal to form1.show and saved form1 in the same folder but not working.. :s

[mymicky]

I think theres a problem.. when i added the first user i could login with that credentials but when i add another user i cannot login with the second username and password.. what might be wrong

[BrailleSchool]

Thanks a lot guys.. ive got it now .. now the last question is .. i alreay have form1 how do i link the 2 together, so after the person logins he sees form1. I hope you understand what im saying.. I tried changing the

frmMain.Show vbModal to form1.show and saved form1 in the same folder but not working.. :s

where it says frmMain.Show vbModal, just change it to form1.Show vbModal (it will work because it works with frmMain

[BrailleSchool]

I think theres a problem.. when i added the first user i could login with that credentials but when i add another user i cannot login with the second username and password.. what might be wrong

check the access database for the username and password of the second user. if it works for one user, it will work for others

[BrailleSchool]

post #3 updated

[mymicky]

i checked the database and the other users are in it.. but doesnt work with other users. did you edit anything?

[mymicky]

and why cant i start frmLoginScreen at once.. if i open that without opening the project it gives an error why is that

[BrailleSchool]

not having any problems here. post #3 was updated and seems to work without a problem. why would you want to open frmMain without logging in first?

[mymicky]

Ok, just downloaded the example again and i tested user1 pass1 .. works fine but when i tried to add a new user i got this compile error ..

Variable Not Defined.. and here gets higlighted strUsersTable

its somewhere here

Private Sub cmdAdd_Click()
EstablishDatabaseConnection

strSQL = "SELECT * FROM " & strUsersTable
objADOCon.Execute strSQL

OpenRecordset

[BrailleSchool]

then you dont have the current version in post #3

[mymicky]

i do have the current version in post 3... try adding a new user .. it says this variable is not defined (strUsersTable) ...Can someone else try it ?

[mymicky]

Ok i compared the new one with the old ones and changed some of the codes.. now works perfectly.. thanks ... But i must open project1.vbp then i click start before it starts .. But its still coool

[BrailleSchool]

i do have the current version in post 3... try adding a new user .. it says this variable is not defined (strUsersTable) ...Can someone else try it ?

it is declared i had no problems my end.

[BrailleSchool]

Ok i compared the new one with the old ones and changed some of the codes.. now works perfectly.. thanks ... But i must open project1.vbp then i click start before it starts .. But its still coool

you have to open the project file regardless of the project, thats how vb is