| Line 552... |
Line 552... |
| 552 |
'-----------------------------------------------------------------------------------------------------------------
|
552 |
'-----------------------------------------------------------------------------------------------------------------
|
| 553 |
Private Function IsLocaPasswordCorrect ( sUserName, sPassword )
|
553 |
Private Function IsLocaPasswordCorrect ( sUserName, sPassword )
|
| 554 |
|
554 |
|
| 555 |
moOraDatabase.Parameters.Add "USER_NAME", sUserName, ORAPARM_INPUT, ORATYPE_VARCHAR2
|
555 |
moOraDatabase.Parameters.Add "USER_NAME", sUserName, ORAPARM_INPUT, ORATYPE_VARCHAR2
|
| 556 |
moOraDatabase.Parameters.Add "PASSWORD", sPassword, ORAPARM_INPUT, ORATYPE_VARCHAR2
|
556 |
moOraDatabase.Parameters.Add "PASSWORD", sPassword, ORAPARM_INPUT, ORATYPE_VARCHAR2
|
| 557 |
moOraDatabase.Parameters.Add "RETURN_CODE", 0, ORAPARM_OUTPUT, ORATYPE_NUMBER
|
557 |
moOraDatabase.Parameters.Add "RETURN_CODE", 0, ORAPARM_OUTPUT, ORATYPE_NUMBER
|
| 558 |
|
558 |
|
| 559 |
moOraDatabase.ExecuteSQL _
|
559 |
moOraDatabase.ExecuteSQL _
|
| 560 |
"BEGIN :RETURN_CODE := PK_SECURITY.IS_LOCAL_PASSWORD_CORRECT ( :USER_NAME, :PASSWORD ); END;"
|
560 |
"BEGIN :RETURN_CODE := PK_SECURITY.IS_LOCAL_PASSWORD_CORRECT ( :USER_NAME, :PASSWORD ); END;"
|
| 561 |
|
561 |
|
| 562 |
If CInt(OraDatabase.Parameters("RETURN_CODE").Value) = 1 Then
|
562 |
If CInt(OraDatabase.Parameters("RETURN_CODE").Value) = 1 Then
|