Advertisement
Guest User

Untitled

a guest
Mar 23rd, 2017
99
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.38 KB | None | 0 0
  1. dbRetrieve = function (dbName, user, password, host, port, sqlQuery){
  2.  
  3. dbConnection <- dbConnect(
  4. RMySQL::MySQL(),
  5. user = user,
  6. password = password,
  7. host = host,
  8. port = port,
  9. dbname = db
  10. )
  11.  
  12. sqlcmd <- sqlQuery
  13.  
  14. sqlData <- dbGetQuery(dbConnection, sqlcmd)
  15.  
  16. ##### KILL THE DB CONNECTION ###########
  17. dbDisconnect(dbConnection)
  18.  
  19. return (sqlData)
  20. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement