Login Privilages

[Naveed_786]

Can any one tell me how can i make privileges for user to restrict them and only administrator have all rights.

Please help me
Thanks in advance.

[AndreRet]

Will this be an administrator within your application or the windows administrator?

[Naveed_786]

within my application

[AndreRet]

Have a look at the following which was asked a few days ago on Daniweb.

http://www.daniweb.com/forums/thread323025.html

[Naveed_786]

Ok can you provide me sample coding for login a user by checking user exists in users table i have tried but no luck

i am trying some thing like this

dim db as database
dim rs as recordset

on form load i am connecting with database like this
my connecting string here and
set rs = db.openrecordset("Users")

Then i used this coding on btnlogin

select query here

but i didn't successed i please help me waiting for you reply

[AndreRet]

Try the following -

Dim cnPrint As ADODB.Connection
    Set cnPrint = New ADODB.Connection
 
    Dim rsPrint As ADODB.Recordset
    Set rsPrint = New ADODB.Recordset
    Dim MyCon As String
 
    MyCon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\MyData.MDB;Persist Security Info=False"
 
    cnPrint.Open MyCon
 
    If rsPrint.State = adStateOpen Then rsPrint.Close
 
    rsPrint.Open "SELECT * FROM MyTable WHERE UserType =" & "'" & text1.Text & "'", cnPrint, adOpenStatic, adLockOptemistic

    'Or

    rsPrint.Open "SELECT * FROM MyTable WHERE UserYesNo =" & "'Yes'", cnPrint, adOpenStatic, adLockOptemistic

[AndreRet]

Put all of the above code under ONE event, say a button click event.

[Naveed_786]

Ok i would try and let you know if could have any problem thanksfor your reply

[AndreRet]

No problem:)

[Naveed_786]

I have resolved it thanks for yuor help

[AndreRet]

Its a pleasure.:)