# Load packages.
library(RevoScaleR)
library("MicrosoftML")
db <- "HospitalR"
#connect_str <- "Driver={ODBC Driver 13 for SQL Server};Server=TRB_MICROSOFT;
# Database=AdventureWorks;Trusted_Connection=yes"
# Uses the SQL/Server Native Client 11.0 library DSN
# This is the same library which the WPS example successfully uses to connect with at:
# https://notebooks.azure.com/n/c11muvnt15w/notebooks/WPS_SQL_Server.ipynb
connect_str <- "Driver={SQL Server Native Client 11.0};Server=localhost;
Database=master;uid=REDMOND\v-thbeta Pwd=XXXXXXXXX"
outOdbcDS <- RxOdbcData(table="NewData", connectionString = connect_str, useFastRead=TRUE)
rxOpen(outOdbcDS, "w")
query <- sprintf( "if not exists(SELECT * FROM sys.databases WHERE name = '%s') CREATE DATABASE %s;", db, db)
## Create database.
rxExecuteSQLDDL(outOdbcDS, sSQLString = query)
# Create database.
rxExecuteSQLDDL(outOdbcDS, sSQLString = query)
# Uses the ODBC Driver 13 for SQL Server User DSN
connect_str1 <- "Driver={ODBC Driver 13 for SQL Server};Server=localhost;
Database=master;uid=REDMOND\v-thbeta Pwd=Porsche#1"
outOdbcDS <- RxOdbcData(table="NewData", connectionString = connect_str1, useFastRead=TRUE)
rxOpen(outOdbcDS, "w")
connStr <- paste("Driver= {SQL Server Native Client 11.0};Server=",instance_name, ";Database=",database_name,";Trusted_Connection=yes;",sep="");
Error in paste("Driver= {SQL Server Native Client 11.0};Server=", instance_name, : object 'instance_name' not found Traceback: 1. paste("Driver= {SQL Server Native Client 11.0};Server=", instance_name, . ";Database=", database_name, ";Trusted_Connection=yes;", . sep = "")