import données excel sous postgresql

Version imprimable

J’ai une procédure pour l’import de données d’Excel vers postgresql, elle marche bien.
Reste seulement à importer les commentaires sur les colonnes qui correspondent aux champs de la base de donnes (les colonnes).
La procédure en question est :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
install.packages("RPostgreSQL")
install.packages("gdata")
install.packages("DBI")
library(RPostgreSQL)
library(gdata)
library(DBI)
 
drv <- dbDriver("PostgreSQL")
con <- dbConnect(drv, host="postgres", user="postgres", password = "postgres", dbname="db_name")
setwd('/home/donnees/')
 
 
 
Integre_Fichier_excel<-function(schema_destination,fichierexcel,nom_table_a_creer,sheetdata,skipdata,sheetcomment,skipcomment)
{
 
## fonctions importe les donnees excel dans Rdata
importxls<-function(xls,sheet,skip,dec)
{
mycsv<-xls2csv(xls,sheet=sheet,verbose=TRUE, dec = ".")
read.csv(summary(mycsv)$description,quote = "\"",dec =dec,skip=skipdata)
}
RdataCvs<-importxls(fichierexcel,sheetdata,skip=skipdata,dec=".")
 
 
#on mets les champs en minuscule pour virer les quotes des fields
names(RdataCvs)<-tolower(names(RdataCvs))
 
# on force le schema de destination
V1=paste('set search_path to ',schema_destination,';');
dbGetQuery(con,V1)
 
# si table existe on supprime
V1=paste('drop table if exists ',schema_destination,'.',nom_table_a_creer,';',sep="");
dbGetQuery(con, V1)
 
#ecriture de la table
V1=paste(nom_table_a_creer,sep="");
dbWriteTable(con,V1,RdataCvs,row.names=FALSE)
 
# on remet le schema d'origine
V1=paste('set search_path to ',schema_origine,';');
dbGetQuery(con,V1)
 
#on force les droits
V1=paste('ALTER TABLE  ',schema_destination,'.',nom_table_a_creer,' OWNER TO droit_autre ;',sep="");
dbGetQuery(con, V1)
 
}
 
# Importe un fichier excel dans postgres
# parametre entrée
# schema_destination : nom du schema de destination
# fichierexcel : Nom du ficier Excel
# nom_table_a_creer : Nom de la table a créer dans le schema de destination
# sheetdata : Numero de la feuille qui contient les données
# skipdata  : Saut de ligne des données en debut de fichier excel
# sheetcomment : Numero de la feuille qui contient les commentaires
# skipcomment  : Saut de ligne des commentaires en debut de fichier excel

Appel de la fonction pour le fichier :

Code:

Integre_Fichier_excel(schema_destination='mon_schema',fichierexcel='mon_fichier.xls',nom_table_a_creer='nom_ma_table',sheetdata=1,skipdata=0,sheetcomment=3,skipcomment=5);

Pour les commentaires :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
#commentaires 
# on lit le fichier excel et on mets la requete comment dans V1 
mycsv<-xls2csv(fichierexcel, sheet=sheetcomment,verbose=TRUE, dec = ".")
tableaubrut<-read.csv(summary(mycsv)$description,fileEncoding="LATIN1",skip=skipcomment,sep=",")
V1=paste('COMMENT ON COLUMN ',schema_destination,'.',nom_table_a_creer,'.',tableaubrut[,1],' is ' , '\'',tableaubrut[,3],sep="");
 
# enleve les caracteres speciaux 
V1=gsub ("d'","d ",V1)
V1=gsub ("l'","l'' ",V1)
V1=gsub ("Ã©","e",V1)
V1=gsub ("Ã*","a",V1)
#on remets le ' de la fin de chaine (gsub aavant !!)
V1=paste(V1,'\';','\n');
 
# mets le bloc en un seul element 
dbGetQuery(con,paste(V1,collapse=''))

03/06/2013, 12h23
ced

Bonjour,

Et qu'est-ce qui pose problème exactement ?
03/06/2013, 13h57
marseille_2013
la partie commentaire:
la requête ne prend pas.
tout le bloc commentaire ne passe pas
Code:

1 2 dbGetQuery(con,paste(V1,collapse='')) erreur
03/06/2013, 14h03
ced

Quel est le message d'erreur renvoyé ?
06/06/2013, 15h55
FavreMaxime
pour envoyer des requêtes SQL avec des valeurs précises, moi j'utilise
Code:

1 2 sql="INSERT INTO ma_table VALUES (:prenom, :nom, :nationalite)" dbGetQuery(con,sql,d)
ou d est un data.frame à trois colonnes contenant le prenom, nom et nationalite, les noms des colonnes sont prenom, nom et nationalite.

Le data.frame est nécessaire pour des valeurs prises par des variables.

Je sais pas si cela peut t'aider.
Code:

1 2 sql="drop table ma_table" dbGetQuery(con,sql)
cela supprime parfaitement une table chez moi

Cordialement Max
10/06/2013, 15h06
marseille_2013

import donnees sous excel

salut

c'est bon j'ai résolu mon problème
10/06/2013, 15h13
ced

Et ?
Quel était le problème et la solution que vous avez trouvée ?
Des fois que d'autres personnes rencontrent le même problème, ça pourrait les aiguiller ;)

La modif' effectuée :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
 
 
mycsv<-xls2csv(fichierexcel, sheet=sheetcomment,verbose=TRUE, dec = ".")
 
tableaubrut<<-read.csv(summary(mycsv)$description,fileEncoding="LATIN1",skip=skipcomment,sep=",")
 
for( i in 1:max(dim(tableaubrut))) {
V1=paste('COMMENT ON COLUMN ',schema_destination,'.',nom_table_a_creer,'.',tableaubrut[,i],' is ' , '\'',names(tableaubrut[0,][i]),sep="")
# enleve les caracteres speciaux si plus a rajouter 
V1=gsub ("d'","d ",V1)
V1=gsub ("l'","l'' ",V1)
V1=gsub ("Ã©","e",V1)
V1=gsub ("Ã*","a",V1)
V1=gsub ("é","e",V1)
V1=gsub ("è","e",V1)
#on remets le ' de la fin de chaine (gsub aavant !!)
V1=paste(V1,'\';','\n')
# mets le bloc en un seul element 
dbGetQuery(con,paste(V1,collapse=''))
}
}