SQL Server RODBC Connection - PullRequest
       11

SQL Server RODBC Connection

57 голосов
/ 19 апреля 2011

У кого-нибудь есть пример строки подключения для использования RODBC и подключения к MS SQL Server 2005 или 2008.

Спасибо.

Ответы [ 5 ]

96 голосов
/ 19 апреля 2011
library(RODBC)
dbhandle <- odbcDriverConnect('driver={SQL Server};server=mysqlhost;database=mydbname;trusted_connection=true')
res <- sqlQuery(dbhandle, 'select * from information_schema.tables')
8 голосов
/ 19 апреля 2011

Взято из сообщения в r-help :

 library(RODBC)
 channel <- odbcDriverConnect("driver=SQL Server;server=01wh155073")
 initdata<- sqlQuery(channel,paste("select * from  test_DB .. 
 test_vikrant"))
 dim(initdata)
 odbcClose(channel)
1 голос
/ 31 января 2019

Если вам необходимо указать ИМЯ ПОЛЬЗОВАТЕЛЯ и ПАРОЛЬ:

library(RODBC) # don't forget to install it beforehand

my_server="ABC05"
my_db="myDatabaseName"
my_username="JohnDoe"
my_pwd="mVwpR55zobUldrdtXqeHez"


db <- odbcDriverConnect(paste0("DRIVER={SQL Server};
                                 server=",my_server,";
                                 database=",my_db,";
                                 uid=",my_username,";
                                 pwd=",my_pwd))


sql="SELECT * FROM dbo.MyTableName" #dbo is the schema here
df <- sqlQuery(db,sql)
1 голос
/ 09 февраля 2018

Попробуйте использовать пакет RSQLS: https://github.com/martinkabe/RSQLS

Очень быстро отправляет данные с data.frame на SQL Server или с SQL Server на data.frame.

Пример:

library(devtools)
install_github("martinkabe/RSQLS")
library(RSQLS)

cs <- set_connString("LAPTOP-USER\\SQLEXPRESS", "Database_Name")
push_data(cs, dataFrame, "dbo.TableName", append = TRUE, showprogress = TRUE)
df <- pull_data(cs, "SELECT * FROM dbo.TableName", showprogress = TRUE)

Это решение намного быстрее и надежнее, чем RODBC :: sqlSave или DBI :: dbWriteTable .

0 голосов
/ 14 июня 2017

Сначала необходимо создать / настроить DSN (соединение ODBC с определенной БД)

Затем установить RODBC библиотеку.

library(RODBC)
myconn <-odbcConnect("MyDSN", uid="***", pwd="*******")

fetchData<- sqlQuery(myconn, "select * from tableName")
View(fetchData)
close(myconn)
...