web-dev-qa-db-fra.com

Connexion SQL Server RODBC

Quelqu'un a-t-il un exemple de chaîne de connexion pour utiliser RODBC et se connecter à MS SQL Server 2005 ou 2008?.

Je vous remercie.

56
Brandon
library(RODBC)
dbhandle <- odbcDriverConnect('driver={SQL Server};server=mysqlhost;database=mydbname;trusted_connection=true')
res <- sqlQuery(dbhandle, 'select * from information_schema.tables')
94
Henrico

Extrait de une publication dans 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)
8
42-

Essayez d’utiliser le paquet RSQLS: https://github.com/martinkabe/RSQLS

Très rapidement, les données de data.frame sont transférées vers SQL Server ou extraites de SQL Server vers data.frame.

Exemple:

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)

Cette solution est beaucoup plus rapide et robuste que RODBC :: sqlSave ou DBI :: dbWriteTable.

1
mateskabe

Vous devez d'abord créer/configurer un DSN (connexion ODBC avec un DB spécifique)

Ensuite, installez la bibliothèque RODBC.

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

fetchData<- sqlQuery(myconn, "select * from tableName")
View(fetchData)
close(myconn)
0
Mukesh Pandey

Si vous devez inclure le nom d'utilisateur et le mot de passe:

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)
0
Ibo