在 R 和 RODBC 中粘贴 SQLQuery答案

【问题标题】：SQLQuery with Paste in R & RODBC在 R 和 RODBC 中粘贴 SQLQuery
【发布时间】：2014-07-09 01:44:49
【问题描述】：

我的 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
    )

【问题讨论】：

如果没有一些数据，这根本无法重现。你能创建一个 small 例子来说明你的问题吗？请参阅here 获取建议。
a) 请在您的问题中编辑代码，而不是将其留在评论中。 b) 您有两个函数可以完成两项非常独立的工作：将 .CSV 文件读入 R 并尝试将 R 对象写入数据库。几乎可以肯定，你对其中一个有问题，但不是两个。您可以单独测试它们并通过仅提供与损坏部分相关的信息来简化您的问题吗？
@shujaa 问题出在第二个函数（ajouter）中，当我尝试写入数据库时，它给了我关于我的查询的错误。我只是放了一个 csv 文件和我的表的例子，我使用编码函数将我的值转换为字符串进行存储（因为它们是数字，请参阅 csv 文件）。
所以，chargerExp 没关系，您可以从您的问题中删除它和 CSV，然后给我们dput(ObjectCreatedByCharger)。
否则任何想要帮助您的人都必须将您的 CSV 文件复制/粘贴到文件中并保存，运行 chargerExp 以查看您得到了什么，只是为了找到一个起点。

标签： mysql sql r oop rodbc

【解决方案1】：

我下载了您的代码，似乎有很多问题，其中最重要的是实际运行您尝试的查询。错误告诉你它试图运行 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")) 并没有多大意义。你真的应该先自己测试你的每一个类，然后再像这样把它们放在一起。我不敢相信您在此之前没有收到其他错误或警告。您应该努力隔离错误并单独测试每个部分。

【讨论】：