Member Avatar for pardeep3dec

'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

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
  • 2 Contributors
  • 1 Reply
  • 149 Views
  • 7 Hours Discussion Span
  • Latest Post Latest Post by AUGXIS
Member Avatar for AUGXIS

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.

Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.