Fix ORA-28002 Problem by Alter the Profile

以修改 Profile 方式解決問題 ORA-28002

在登入oracle時顯式以下內容
Following message show when u log in oracle

ORA-28002: The password will expire within 7 days
ORA-28002: 密碼將在7天後到期

很明顯的是帳號密碼快過期
最直接的解決辦法就是重設密碼
但是180天後還會再遇到密碼快過期的問題
It is clear that the account password expires soon
Easiest solution is to reset your password
Then the Problem comes in 180 days

sqlplus acct/pass @oid
SQL> password
Changing password for acct
Old password:
New password:
Retype new password:

Password changed

不過最終解決辦法還是改Profile,確保密碼不過期
1. 以sysdba身份登入
sqlplus sys/pass @oid as sysdba
2. 找到該帳號用的profile
select profile from dba_users where username='acct';
3. 修改profile
alter profile 'profile name' limit password_life_time unlimited;
差不多了
4.再設定一次密碼使profile生效，或是重起oracle....

Best solution is to Alter the Profile
To ensure the password not expired
1. login in as sysdba
sqlplus sys/pass @oid as sysdba
2. Find the profile for problem account
select profile from dba_users where username='acct';
3. Alter Profile
alter profile 'profile name' limit password_life_time unlimited;
Almost done...
4.Reset password for problem Account make profile work，or restart oracle....

Vb.Net取得DLL的呼叫者 (Get Vb.net Dll Caller)

Vb.Net取得DLL的呼叫者 (Get Vb.net Dll Caller)

Imports System.Reflection

Public Class Class1

Public Function GetCallingAppName()

'取得自己
'Get Myself Assembly Name
'Dim asm As Assembly = Assembly.GetExecutingAssembly()
'Dim location As String = asm.Location
'Dim appName As String = System.IO.Path.GetFileName(location)

'取得呼叫者
'Get Calling Assembly Name
Dim asm As Assembly = Assembly.GetCallingAssembly
Dim location As String = asm.Location
Dim appName As String = System.IO.Path.GetFileName(location)

'取得眾多呼叫者的第一位(最早的)
'Get Calling First Assembly Name(Earliest)
'Dim asm As Assembly = Assembly.GetEntryAssembly
'Dim location As String = asm.Location
'Dim appName As String = System.IO.Path.GetFileName(location)

Return appName
End Function

End Class