在 R 上一次执行多个 SQL 命令

Question

我正在使用 RMySQL 和 DBI 来连接 R 和 MySQL

library(RMySQL)
library(DBI, quietly = TRUE)

一个命令一切正常，例如

sql = "select * from clients"
con <- dbConnect(MySQL(),user=user, password=password, dbname=dbname, host=host)
rs <- dbSendQuery(con, sql)
data <- fetch(rs, n=-1)
huh <- dbHasCompleted(rs)
dbClearResult(rs)
on.exit(dbDisconnect(con))

但是，当我想用“;”执行多个命令时它们之间（比如设置一个参数），就returns错误。例如

sql = "SET @LAST_TEN_DAY = DATE_ADD(NOW(), INTERVAL -10 DAY); select * from clients where date > @LAST_TEN_DAY"
con <- dbConnect(MySQL(),user=user, password=password, dbname=dbname, host=host)
rs <- dbSendQuery(con, sql)
data <- fetch(rs, n=-1)
huh <- dbHasCompleted(rs)
dbClearResult(rs)
on.exit(dbDisconnect(con))

非常感谢，

Answer 1

对于多个命令，我们需要进行如下操作。 dbSendQuery 将保存参数

sql = "select * from clients where date > @LAST_TEN_DAY"
con <- dbConnect(MySQL(),user=user, password=password, dbname=dbname, host=host)
dbSendQuery(con, 'SET @LAST_TEN_DAY = DATE_ADD(NOW(), INTERVAL -10 DAY)')
rs <- dbSendQuery(con, sql)
data <- fetch(rs, n=-1)
huh <- dbHasCompleted(rs)
dbClearResult(rs)
on.exit(dbDisconnect(con))

在 R 上一次执行多个 SQL 命令

Execute multiple SQL commands at once on R

mysql

sql

r

rmysql

r-dbi