在R&中使用Paste的SQLQuery RODBC

时间:2014-05-20 17:01:02

标签: mysql sql r oop rodbc

我的RODBC有问题;这是错误:

 chargerExp("C:\\test.csv",NE=1,NC=1,s=1)
 Exeperience: 1    Execution: 1    Sujet: 1 

> ajouter(new ("BDD"),new("Exp"))
[1] "42000 1064 [MySQL][ODBC 5.2(a) Driver][mysqld-5.6.17]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 '  ,  '     NA/NA/NA/ ' , ' NA/NA/NA/ ' , ' NA/NA/NA/ ' , ' NA/NA/NA/ ' , ' NA/NA/NA/' at line 1"
[2] "[RODBC] ERROR: Could not SQLExecDirect 'INSERT INTO `test` (`NE`, `NC`, `E`, `X`, `Y`, 
`Z`,  `T`, `A`, `S`) VALUES (  ,  ,  ' NA/NA/NA/ ' , ' NA/NA/NA/ ' , ' NA/NA/NA/ ' , ' NA/NA/NA/ '     , ' NA/NA/NA/ ' ,  ,   );'"                                               

我使用Mysql,RODBC和Rstudio,方法ajouter插入数据库

setMethod( f ="ajouter",signature =c(x="BDD",obj="Exp"),
       def = function(x, obj)
       {

         channel <- odbcConnect(dsn="RSQL",uid="root",pwd="toor")
         ne <- obj["ne"]
         nc <- obj["nc"]
         s <- obj["S"]
         e<- encoder((obj["E"]))
         x <- encoder((obj["X"]))
         y <- encoder((obj["Y"]))
         z <- encoder((obj["Z"]))
         t<- encoder((obj["T"]))
         a <- (obj["A"])
         requeteSql.valeur <- paste("'",e,"'",",",
                                    "'",x,"'",",",
                                    "'",y,"'",",",
                                    "'",z,"'",",",
                                    "'",t,"'",",")

         requetesql <- paste("INSERT INTO `test` (`NE`, `NC`, `E`, `X`, `Y`, `Z`, `T`, 
        `A`, `S`) VALUES (",ne,",",nc,", ",requeteSql.valeur, a,", ",s,");")
         sqlQuery(channel, requetesql)
       }       
)

这是编码器方法。它的主要目的是将我的对象转换为具有一些串联的文本。

setMethod( f ="encoder", signature ="Para",
       def =function(x, i, j, value)
       {
         s <- as.character(x["val"][1])
         for(i in 2:length(x["val"]))
         {
           s <- paste(s,x["val"][i],sep="/")
         }
         return(s)
       }
)

我方法的召唤:

ajouter(new ("BDD"), new("Exp"))

这是我在数据库中的表格:

          CREATE TABLE `test` (
        `idTest` int(11) NOT NULL AUTO_INCREMENT,
         `NE` int(11) DEFAULT NULL,
         `NU` int(11) DEFAULT NULL,
         `E` text,
         `X` text,
         `Y` text,
         `Z` text,
          T` text,
          `A` float DEFAULT NULL,
          `S` int(11) DEFAULT NULL,
           PRIMARY KEY (`idTest`)
        ) ENGINE=InnoDB AUTO_INCREMENT=2 DEFAULT CHARSET=utf8;

我的问题来自sqlquery,它说我的语法不正确,我不知道为什么。

这是我要加载到数据库中的对象(来自dput所以复制/粘贴):

     new("Para"
      , ne= 1
      , nc = 1
      , E = new("E"
      , val = c(-13, -11, -11, -11, -11, -9, -10, -12, -12, -12, -11, -10, 
      -8, -8, -8, -9, -9, -7, -9, -10, -9, -9, -9, -9, -11, -9, -7, 
      -7, -7, -7, -7, -8, -7, -7, -5, -5, -7, -8, -7, -5, -5, -6, -6, 
      -9, -35, -76, -96, -62, 38, 167, 251, 251, 248, 157, 94, 56, 
      )
      )
    , X = new("Para"
    , val = c(115, 116, 114, 113, 113, 114, 115, 114, 114, 113, 112, 111, 
      113, 114, 114, 115, 115, 116, 115, 115, 114, 116, 114, 115, 114, 
      113, 114, 114, 114, 114, 114, 113, 113, 114, 114, 114, 114, 115, 
      114, 115, 115, 115, 114, 115, 116, 114, 114, 114, 116, 115, 113, 
      )
      )
     , Y = new("Para"
    , val = c(10, 11, 9, 9, 10, 9, 10, 9, 11, 10, 11, 10, 11, 11, 10, 11, 
      10, 10, 11, 10, 9, 10, 11, 12, 11, 10, 11, 11, 11, 12, 11, 11, 
      11, 10, 11, 11, 10, 12, 10, 11, 11, 11, 11, 11, 11, 10, 11, 11, 
      10, 11, 11, 11, 10, 11, 11, 11, 10, 11, 10, 12, 11, 10, 10, 10, 
      )
      )
    , Z = new("Para"
    , val = c(-42, -42, -44, -43, -42, -41, -42, -42, -42, -42, -42, -43, 
      -40, -41, -41, -40, -41, -43, -41, -41, -41, -41, -41, -40, -40, 
      -41, -40, -40, -41, -40, -42, -41, -41, -41, -41, -41, -43, -42, 
      -43, -42, -41, -42, -42, -40, -41, -42, -40, -41, -41, -41, -42, 
      )
      , T = new("Para"
     , val = c(25.2, 25.2, 25.2, 25.2, 25.2, 25.2, 25.2, 25.2, 25.2, 25.2, 
       25.2, 25.2, 25.2, 25.2, 25.2, 25.2, 25.2, 25.2, 25.2, 25.2, 25.2, 
      25.2, 25.2, 25.2, 25.2, 25.2, 25.2, 25.2, 25.2, 25.2, 25.2, 25.2, 
      25.2, 25.2, 25.2, 25.2, 25.2, 25.2, 25.2, 25.2, 25.2, 25.2, 25.2, 
      )
      )
   , A = 1L
   , S  = 1
    )

1 个答案:

答案 0 :(得分:0)

我下载了你的代码,似乎有很多问题,其中最多的是实际运行你试过的查询。该错误告诉您它尝试运行SQL命令

INSERT INTO `test` (`NE`, `NC`, `E`, `X`, `Y`, `Z`,  `T`, `A`, `S`)
VALUES (  ,  ,  ' NA/NA/NA/ ' , ' NA/NA/NA/ ' , ' NA/NA/NA/ ' ,
     ' NA/NA/NA/ '     , 'NA/NA/NA/ ' ,  ,   );'

应该很清楚,看起来无效。我不认为你可以在INSERT语句中拥有emply值。

空白值来自

ne <- obj["ne"]
nc <- obj["nc"]
s <- obj["S"]

在您的功能定义中,obj是您的Exp(或Experimentation),您还无法为这些广告位设置任何值。由于它们是空向量,因此它们不会在paste语句中呈现为任何内容。

蝙蝠侠值(又名NA/NA/NA)来自

e<- encoder((obj["E"]))
x <- encoder((obj["X"]))
y <- encoder((obj["Y"]))

行。当Signal类为空时(就像创建新的空对象时一样),val槽只是一个空数字向量。因此,当您对其进行编码时,您已经设置了一个基本上正在进行的循环

s <- NA
for(i in 2:1)
{
    s <- paste(s,NA,sep="/")
}

导致NA/NA/NA/值。真的那个循环在不必要的,简单的

s <- paste(as.character(x["val"]), collapse="/")

会给你你想要的字符串,而不会出现倒计时问题。

所以真的,用这样的空对象运行ajouter(new ("BDD"),new("Exp"))并没有多大意义。在将它们放在一起之前,你真的应该先自己测试每个类。在此之前,我无法相信你没有得到其他错误或警告。您应该分离错误并单独测试每个部分。