Question

我试图从矩阵中执行一个循环，但它没有工作;这是：

library(RMySQL)

for(i in 1:nrow(m_tblunif))
{
    Nm <- noquote(m_tblunif[[i,2]])
    PreNm <-noquote(m_tblunif[[i,3]])
    DateN<-noquote(m_tblunif[[i,4]])
    Idd <- noquote(m_tblunif[[i,9]])
    Flag <- noquote(m_tblunif[[i,10]])
    Critic <- noquote(m_tblunif[[i,11]])
data2<-paste("UPDATE membres_unif SET IDD=$Idd, 
    FLAG=$Flag, CRITIC=$Critic WHERE Nm=\"$Nm\",
    AND PreNm=\"$PreNm\", AND DateN=\"$DateN\"");
    sql_update_tbl_ds <- fn$dbSendQuery(dbconnection, data2)
}

编辑：问题是，R识别所有行，但我有这个错误消息，我认为来自MySQL服务器：.local中的错误（conn，statement，...）：无法运行语句：你有SQL语法中的错误;查看与您的MySQL服务器版本相对应的手册，以便在＆＃39; AND PreNm =＆＃34; MADINE＆＃34;，AND DateN =＆＃34; 01/01/1961＆＃34;＆＃附近使用正确的语法39;在第1行

我尝试了不同的可能性，但我总是遇到这个错误。请问看看有什么不对？怎么可能用几行来执行这个循环，如下所示：

 data2<-paste("UPDATE membres_unif SET IDD=noquote(m_tblunif[[i,9]]), 
    FLAG=noquote(m_tblunif[[i,10]]), CRITIC=noquote(m_tblunif[[i,11]]) WHERE Nm=\"noquote(m_tblunif[[i,2]])\",
    AND PreNm=\"noquote(m_tblunif[[i,3]])\", AND DateN=\"$DateN\"");
    sql_update_tbl_ds <- fn$dbSendQuery(dbconnection, data2)

提前感谢您的帮助！

粘贴函数引用RMySQL

0 个答案: