Comment insérer un dataframe dans une table SQL Server?

Je suis en train de télécharger un dataframe à une table SQL Server, j'ai essayé de le décomposer à une simple chaîne de requête SQL..

library(RODBC)
con <- odbcDriverConnect("driver=SQL Server; server=database")

df <- data.frame(a=1:10, b=10:1, c=11:20)

values <- paste("(",df$a,",", df$b,",",df$c,")", sep="", collapse=",")

cmd <- paste("insert into MyTable values ", values)

result <- sqlQuery(con, cmd, as.is=TRUE)

..qui semble fonctionner mais n'est pas très bien. Est-il un moyen plus facile?

Si la table existe, puis "ajouter" doit être VRAIE, ou l'utilisation sqlUpdate. S'il n'existe pas, j'aurais coincé avec la valeur par défaut (FALSE) dans sqlSave. J'ai lu qu'il y a de bizarre conventions de nommage pour SQL Server, mais je n'ai pas de copie, donc impossible de tester.

InformationsquelleAutor jenswirf | 2013-01-15

r rodbc

20

[édité] peut-être coller le names(df) permettrait de résoudre le problème de montée en charge:
```
   values <- paste( " df[  , c(", 
                     paste( names(df),collapse=",") ,
                                   ")] ", collapse="" ) 
      values
      #[1] " df[  , c( a,b,c )] "
```
Vous dire que votre code est "travail".. j'aurais aussi pensé serait d'utiliser sqlSave plutôt que sqlQuery si l'on voulait "télécharger".

J'aurais deviné ce serait plus enclin à faire ce que vous avez décrit:
```
 sqlSave(con, df, tablename = "MyTable")
```
- Pas sûr de ce que vous essayez de faire avec le values variable, cela crée une bizarre à la recherche de chaîne?! Vous avez raison à propos de la virgule, ce serait un problème. Le "plus devis" sont à gauche de mon code d'origine.
- C'était juste censé illustrer que names(df) et "[" pourrait être utilisé pour accéder à un ensemble de données.cadre par des colonnes de manière plus abstraite que ce que vous faisiez. Il aurait besoin d'un collapse="" ou collapse="," pour être efficace.
- En supposant que les noms de colonne de dataframe et SQL de la table sont les mêmes, est-ce à insérer les données dans la colonne correspondante de la table comme dans dataframe? Ou dois-je garder la séquence de dataframe colonnes de même que la table?
- Il n'y a pas de dénomination de la cible colonnes de la table dans le collé résultat, la commande devrait être correct.
InformationsquelleAutor 42-
5

Depuis insert INTO est limité à 1000 lignes, vous pouvez dbBulkCopy de rsqlserver paquet.

dbBulkCopy est un DBI extension interfaces de Microsoft SQL Server populaire utilitaire de ligne de commande nommé bcp rapidement en vrac de la copie de gros fichiers dans la table. Par exemple:
```
url = "Server=localhost;Database=TEST_RSQLSERVER;Trusted_Connection=True;"
conn <- dbConnect('SqlServer',url=url)
## I assume the table already exist
dbBulkCopy(conn,name='T_BULKCOPY',value=df,overwrite=TRUE)
dbDisconnect(conn)
```
- Je ne peux pas obtenir dbBulkCopy au travail...il produit une erreur étrange comme ça...Erreur dans clrCallStatic("rsqlserver.net.divers",...et j'en passe... Type: System.Les données.SqlClient.SqlException...je ne sais même pas si c'est dbBulkCopy erreur ou rClr erreur de package...Avez-vous une idée de ce que pourrait-il être?
- Arrivez-vous à travailler avec les autres fonctions de rsqlserver' ? mieux vaut créer un problème dans rsqlserver question, je vais regarder cela de près.
- Je peux travailler avec d'autres fonctions et, également, à la suite de ce sujet stackoverflow.com/questions/19190744/..., je pense qu'il n'est pas dbBulkCopy question...d'abord, je n'ai pas eu d'insertion en bloc les autorisations (que j'ai maintenant), le deuxième, le fichier que j'ai essayé de dbBulkCopy n'était pas sur l'ordinateur sur lequel sql server est installé et il ne pouvait pas le trouver. Alors...pour l'instant, merci de ne jamais oublier mes commentaires et je vous remercie pour votre temps.
- vos fichiers doivent être sur un lecteur que le serveur de Base de données peut voir pour être en mesure de le faire d'une masse.
InformationsquelleAutor agstudy

Cela a fonctionné pour moi et je l'ai trouvé plus simple.

library(sqldf)
library(odbc)
con <- dbConnect(odbc(),
                 Driver = "SQL Server",
                 Server = "ServerName",
                 Database = "DBName",
                 UID = "UserName",
                 PWD = "Password")
dbWriteTable(conn = con, 
             name = "TableName", 
             value = x)  ## x is any data frame

dbWriteTable est beaucoup plus rapide que RODBC::sqlSave

InformationsquelleAutor Shreyas K

Vous devez vous connecter pour publier un commentaire.