R/token.R

In takewiki/tsda: data access and driver interface in takewiki solutions

#' 查询数据库名称
#'
#' @param token 口令
#'
#' @return 返回值
#' @export
#'
#' @examples
#' token_getOwnerName()
token_getOwnerName <- function(token ='9B6F803F-9D37-41A2-BDA0-70A7179AF0F3') {

  sql <- paste0("select   FOwnerName   FROM
                t_sec_key
                where FToken ='",token,"'")
  conn =  sql_getConn(token='069800C1-C14D-4574-8DC8-27B2349BAFBB')
  data = tsda::sql_select(conn,sql)
  ncount  = data
  if(ncount >0){
    res = data$FOwnerName
  }else{
    res =''
  }
  return(res)

}

#' 检验连接处理
#'
#' @param token 口令
#'
#' @return 返回值
#' @export
#'
#' @examples
#' sql_checkToken()
sql_checkToken <- function(token='9B6F803F-9D37-41A2-BDA0-70A7179AF0F3') {

  sql <- paste0("   select  FIp,FPort,FUserName,FPassword,FDbName    from t_sec_key
   where FToken ='",token,"'")
  data = sql_select(conn_rds('willingox'),sql)
  ncount = nrow(data)
  if(ncount >0){
    res = TRUE

  }else{
    res = FALSE
  }
  return(res)


}

#' 检验连接
#'
#' @param token 口令
#'
#' @return 返回值
#' @export
#'
#' @examples
#' odbc_checkToken()
odbc_checkToken <- function(token='9B6F803F-9D37-41A2-BDA0-70A7179AF0F3') {

  sql <- paste0("   select  FIp,FPort,FUserName,FPassword,FDbName    from t_sec_key
   where FToken ='",token,"'")
  data = odbc_select(odbc_rds('willingox'),sql)
  ncount = nrow(data)
  if(ncount >0){
    res = TRUE

  }else{
    res = FALSE
  }
  return(res)


}