run_sql_common: 定义数据库连接的处理逻辑

In takewiki/tsui: user interface elements from shiny,H5,css,js in takewiki solutions

定义数据库连接的处理逻辑

Description

定义数据库连接的处理逻辑

Usage

run_sql_common(id)

Arguments

id

内码

Value

返回值

Examples

library(shiny)
library(tsui);


ui <- fluidPage(
   
   
   titlePanel("SQL SERVER 数据库连接信息测试"),
   
   
   sidebarLayout(
      sidebarPanel(
         
         mdl_sql_conn('sql')
         
      ),
      
      mainPanel(
         mdl_dataTable('select')
      )
   )
)


server <- function(input, output) {
   
   con <- run_sql_common('sql');
   
   data <- reactive(
      {
         res  <- RJDBC::dbGetQuery(con(),'select top 100 * from T_GL_VOUCHER;')
         return(res)
      }
      
   )
   run_dataTable(proc_dataTable,id = 'select',data=data())
   
   
}

# Run the application 
shinyApp(ui = ui, server = server)

takewiki/tsui documentation built on July 5, 2023, 10:59 p.m.