SO question 28475137

server.R

library(RODBC)

shinyServer(function(input,output){
  output$txt1<-renderTable({
    input$b1
    if(input$b1==0 )return()
    isolate({
      con<-odbcConnect("sample",uid="amma",pwd="amma")
      sqlTables(con)
      # sqlQuery(con,"insertintosampvalues('",input$text1,"',",input$text2,")");
      sqlQuery(con,paste0("insertintosampvalues('",input$text1,"',",input$text2,")"));
      sqlQuery(con,"select * from samp"); 
    })
  })
})

ui.R

library(shiny)
shinyUI(
  fluidPage(
    mainPanel(
      textInput("text1"," ",value = " "),
      numericInput("text2"," ",value = " "), 
      actionButton("b1", label = "select"),
      tableOutput("txt1")
    )
  )
)