• Home
 · 
• Databases/Data Access/DAO/ADO
 · 
• Search record with the specific Critirea Using Stored Procedure With SQLServer...

Search record with the specific Critirea Using Stored Procedure With SQLServer...

Search record with the specific Critirea Using Stored Procedure With SQLServer...

Rate Search record with the specific Critirea Using Stored Procedure With SQLServer...

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Sub FindPassWord()
On Error GoTo akomess
    
    PassFound = False
    ' Open recordset with data from Employee table.
    DE.StrdProcSearchPassword Me.TxtLoginName, Me.TxtPassword
    With DE.rsStrdProcSearchPassword
        If .RecordCount Then
           If Not .EOF Then
              .MoveFirst
              Do While Not .EOF
                 PassFound = True
                 UserCode = !UserCode
                 UserName = !UserName
                 UserPassword = !userpass
                 UserDept = !department
                 Exit Do
              Loop
           End If
        End If
    End With
    DE.rsStrdProcSearchPassword.Close
    Exit Sub
    
akomess:
    If Err.Number = 3021 Then
       DE.rsStrdProcSearchPassword.Close
    Else
       Resume Next
    End If
End Sub

'Command Button
Private Sub CmdGo_Click()
    Me.MousePointer = 11
    'Finding Password
    FindPassWord
    Me.MousePointer = 0
    Me.Refresh
    If PassFound = True Then
       Unload Me
       FrmMain.SetFocus
    Else
       MsgBox "Access Denied...", vbCritical, "Message : Error Access"
       Me.TxtLoginName.SetFocus
    End If
End Sub