## Not run:
# db <- database("myCPRDdb")
# temp_table(db, tab_name = "post_2005",
# select_query = select_events(db, tab = "Referral",
# columns = c("patid", "eventdate", "medcode"),
# where = "eventdate > '2005-01-01'",
# sql_only = TRUE))
# ## End(Not run)
Run the code above in your browser using DataLab