DaniWeb Forum Index > Software Development > Visual Basic 4 / 5 / 6

How to make it Multiuser Programme

Please support our Visual Basic 4 / 5 / 6 advertiser: Programming Forums - DaniWeb Sister Site

•

Join Date: Jul 2008

Posts: 54

Reputation: pardeep3dec is an unknown quantity at this point

Solved Threads: 1

pardeep3dec pardeep3dec is offline

Offline

Junior Poster in Training

How to make it Multiuser Programme

Oct 17th, 2008

'I am putting my folder in sharing then try to use these from different pc but it shows
'file already in used PLEASE GIVE ME SOLUTION

 Help with Code Tags 
 visualbasic Syntax (Toggle Plain Text) 
Dim dblogin As New ADODB.Connection
Dim rclo As New ADODB.Recordset
 
 
Private Sub cmdok_Click()
dblogin.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\tmgmt.mdb;Persist Security Info=False"
rclo.Open "select uname,pas from p where pas='" & txtPassword.Text & "' and uname='" & txtusername.Text & "';", dblogin, adOpenDynamic, adLockBatchOptimistic
 
        If (rclo.BOF = True And rclo.EOF = True) Then
          MsgBox "incorrect Username or Password", vbExclamation, "Logon Message"
        Else
          'MsgBox "Login Successful", vbInformation, "Logon Message"
          lbuser.Caption = txtusername.Text: lbpass.Caption = txtPassword.Text
                    Me.Hide
 
          MDIForm1.Show
        End If
 
rclo.Close
          dblogin.Close
          Set rclo = Nothing
          Set dblogin = Nothing
End Sub
Dim dblogin As New ADODB.Connection
Dim rclo As New ADODB.Recordset


Private Sub cmdok_Click()
dblogin.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\tmgmt.mdb;Persist Security Info=False"
rclo.Open "select uname,pas from p where pas='" & txtPassword.Text & "' and uname='" & txtusername.Text & "';", dblogin, adOpenDynamic, adLockBatchOptimistic
        
        If (rclo.BOF = True And rclo.EOF = True) Then
          MsgBox "incorrect Username or Password", vbExclamation, "Logon Message"
        Else
          'MsgBox "Login Successful", vbInformation, "Logon Message"
          lbuser.Caption = txtusername.Text: lbpass.Caption = txtPassword.Text
                    Me.Hide
                    
          MDIForm1.Show
        End If
        
rclo.Close
          dblogin.Close
          Set rclo = Nothing
          Set dblogin = Nothing
End Sub

Last edited by cscgal; Oct 17th, 2008 at 11:44 am. Reason: Added code tags

•

Join Date: Dec 2007

Posts: 45

Reputation: AUGXIS is an unknown quantity at this point

Solved Threads: 11

AUGXIS

Offline

Light Poster

Re: How to make it Multiuser Programme

Oct 17th, 2008

hi. you can put your database in a server then share it and on your program you just have to specify the path of your database. then you can now install your program on every pc.

Last edited by AUGXIS; Oct 17th, 2008 at 3:28 am.