0

現在、いくつかの Web アプリケーションを Microsoft Server 2003 から 2008 に移行していますが、この 1 つの機能は、通常入力するフィールドが空であるため機能していないようです。コードは次のとおりです。

function get_name(emp_nbr)  
sql3 = "select LTRIM(RTRIM(INITCAP(COMMON_NAME))) COMMON_NAME, LTRIM(RTRIM(INITCAP(LAST_NAME))) last_name from (select EMPLOYEE_NBR,COMMON_NAME, LAST_NAME  from hrit_admin.employee union all  select   CONTRACT_RESOURCE_ID, COMMON_NAME, LAST_NAME  from   hrit_admin.contract_resource) a where EMPLOYEE_NBR = a.EMPLOYEE_NBR and EMPLOYEE_NBRr = " & emp_nbr   
rs3.open sql3,conn
get_name = rs3("COMMON_NAME") & " " & rs3("LAST_NAME") 
rs3.close
end function

どんな助けでも大歓迎です。

4

3 に答える 3

0

試す：

function get_name(emp_nbr) 
Dim CommonName,LastName,FullName 
    sql3 = "select LTRIM(RTRIM(INITCAP(COMMON_NAME))) COMMON_NAME, LTRIM(RTRIM(INITCAP(LAST_NAME))) last_name from (select EMPLOYEE_NBR,COMMON_NAME, LAST_NAME  from hrit_admin.employee union all  select   CONTRACT_RESOURCE_ID, COMMON_NAME, LAST_NAME  from   hrit_admin.contract_resource) a where EMPLOYEE_NBR = a.EMPLOYEE_NBR and EMPLOYEE_NBRr = " & emp_nbr   
    rs3.open sql3,conn
    CommonName = rs3("COMMON_NAME")
    LastName = rs3("last_name")
    rs3.close
    FullName = CommonName & " " & LastName
    get_name = FullName
end function
于 2013-06-20T08:45:11.977 に答える