Script updated

Author: jonsan21

7.Reading from SQL Databases/Reading from SQL Databases.R

@@ -1,6 +1,7 @@
 #Reading from SQL databases}
 
 library(RODBC)
+
 connStr <- paste(
   "Server=msedxeus.database.windows.net",
   "Database=DAT209x01",
@@ -25,42 +26,6 @@ if(.Platform$OS.type != "windows"){
 
 conn <- odbcDriverConnect(connStr)
 
-\end{itemize}
-\end{itemize}
-\end{frame}
-
-
-\begin{frame}[fragile]%%\linespread{0.9}
-\frametitle{Connecting to a local SQL Database on your harddisk:}
-\begin{itemize}
-\item Replace server name with the SQL server name on the local machine;
-
-\item With the default SQL installation, this is equal to the {\bf name of the local machine}:
-  
-  
-  \begin{Sinput}
->connStr <- paste(
-  +    "Server=My_Machine",
-  +    "Database=DAT205x01",
-  +    "uid=PBIlogin",
-  +    "pwd=P@ssw0rd",
-  +    "Driver={SQL Server}",
-  +    sep=";"
-  +    )
-
-connStr <- paste(
-  "Server=msedxeus.database.windows.net",
-  "Database=DAT209x01",
-  "uid=PBIlogin",
-  "pwd=P@ssw0rd",
-  "Driver=FreeTDS",
-  "TDS_Version=8.0",
-  "Port=1433",
-  sep=";"
-)
-
-conn <- odbcDriverConnect(connStr)
-
 #A first query
 
 tab <- sqlTables(conn)