Dear Jerome,

I am a little ashamed about myself because the solutions is very easy. I
thought I have already read help about write.table.
But in fact I would like to use the RMysql to feed my database if you know
something about I'd like to know.

Bye and Thanks.


On Mon, May 16, 2011 at 5:01 PM, Nilza BARROS <nilzabar...@gmail.com> wrote:

> Hi, Jerome
>
> I was trying to use RMYSQL
>
> for (i in length(Query)) {
> rs1<-dbSendQuery(con,Query[i])
> }
>
> But although the Query have several  lines the command above just feed my
> database with the first one.
>
> > Query
>  [1] "INSERT INTO OBS
> (date,T_2M,TMAX_2M,TMIN_2M,TD_2M,PS,FF_10M,DD_10M,TOT_PRCP,CLCL,Station_NO)
> VALUES (2011051312,26,NULL,20.6,19.4,1014.8,2.91,220,0.00,6,836490);"
>  [2] "INSERT INTO OBS
> (date,T_2M,TMAX_2M,TMIN_2M,TD_2M,PS,FF_10M,DD_10M,TOT_PRCP,CLCL,Station_NO)
> VALUES (2011051312,17,NULL,15.5,15.7,912.8,9.91,180,0.00,8,836920);"
>  [3] "INSERT INTO OBS
> (date,T_2M,TMAX_2M,TMIN_2M,TD_2M,PS,FF_10M,DD_10M,TOT_PRCP,CLCL,Station_NO)
> VALUES (2011051312,21.6,NULL,18.1,19.7,1003,1.94,140,0.00,2,836950);"
>
> Thanks,
>
>
>
> On Mon, May 16, 2011 at 4:46 PM, Jerome Asselin <
> jerome.asselin.s...@gmail.com> wrote:
>
>> On Mon, 2011-05-16 at 14:55 -0300, Nilza BARROS wrote:
>> > Dear R-user,
>> >
>> > I have to feed my database using some SQL commands. I have already read
>> a
>> > data frame with the data I need but
>> > after that these data should be write in a file wtih SQL commands.
>> >
>> > 1)  My dataframe:
>> >
>> > dput(Alldados)
>> >
>> > structure(list(Station_NO = c(836490, 836920, 836950, 836980,
>> > 837380, 837460), TMAX_2M = c("NULL", "NULL", "NULL", "NULL",
>> > "NULL", "NULL"), TMIN_2M = c("20.6", "15.5", "18.1", "19.9",
>> > "17", "21.5"), TD_2M = c("19.4", "15.7", "19.7", "20.1", "17.5",
>> > "20.4"), PS = c("1014.8", "912.8", "1003", "1014.4", "967.8",
>> > "NULL"), FF_10M = c("2.91", "9.91", "1.94", "4.08", "0", "6.02"
>> > ), DD_10M = c(220, 180, 140, 180, 0, 320), date2 = c("2011051312",
>> > "2011051312", "2011051312", "2011051312", "2011051312", "2011051312"
>> > )), .Names = c("Station_NO", "TMAX_2M", "TMIN_2M", "TD_2M", "PS",
>> > "FF_10M", "DD_10M", "date2"), row.names = c(108L, 112L, 113L,
>> > 114L, 119L, 120L), class = "data.frame")
>> >
>> >
>> > 2) My script
>> >
>> > outfile<- with(as.data.frame(Alldados),sprintf("INSERT INTO OBS
>> > (date,TMAX_2M,TMIN_2M,TD_2M,PS,FF_10M,DD_10M,Station_NO) VALUES (%s, %s,
>> %s,
>> > %s,%s,%s,%s,%s)",date2,TMAX_2M,TMIN_2M,TD_2M,PS,Station_NO))
>> >
>> write.table(outfile,file=paste(dat.dir,"outfile_13mai.txt",sep=""),append=FALSE,col.names=FALSE,
>> > row.names=FALSE)
>> >
>> >
>> > 3)  The commands above works but the problem is that the
>> oufile_13mai.txt
>> > have several quotes (") . So  when I am going to feed my database using
>> the
>> > command
>> > /usr/bin/mysql -uxx -pxxx ormverif < ~/ormverif/syn/outfile_13mai.txt
>> > ERROR 1064 (42000) at line 1: You have an error in your SQL syntax;
>> check
>> > the manual that corresponds to your MySQL server version for the right
>> > syntax to use near '"INSERT INTO OBS
>> > (date,T_2M,TMAX_2M,TMIN_2M,TD_2M,PS,FF_10M,DD_10M,TOT_PRCP,CLCL' at line
>> 1
>> >
>> >
>> > "INSERT INTO OBS (date,TMAX_2M,TMIN_2M,TD_2M,PS,Station_NO) VALUES
>> > (2011051312, NULL, 20.6,19.4,1014.8,836490)"
>> > "INSERT INTO OBS (date,TMAX_2M,TMIN_2M,TD_2M,PS,Station_NO) VALUES
>> > (2011051312, NULL, 15.5,15.7,912.8,836920)"
>> >
>> >
>> > So I need a file like below:
>> >
>> >
>> > INSERT INTO OBS (date,TMAX_2M,TMIN_2M,TD_2M,PS,Station_NO) VALUES
>> > (2011051312, NULL, 20.6,19.4,1014.8,836490)
>> > INSERT INTO OBS (date,TMAX_2M,TMIN_2M,TD_2M,PS,Station_NO) VALUES
>> > (2011051312, NULL, 15.5,15.7,912.8,836920)
>>
>> Have you considered the "quote=FALSE" option in write.table?
>>
>> Another option would be to use the sqlUpdate() command from the RODBC
>> package. That would allow you to insert data into your SQL server
>> directly from R.
>>
>> HTH,
>> Jerome
>>
>>
>
>
> --
> Abraço,
> Nilza Barros
>



-- 
Abraço,
Nilza Barros

        [[alternative HTML version deleted]]

______________________________________________
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.

Reply via email to