###前提・実現したいこと
データベースとの不要な接続を無くす。(おそらく沢山接続中)
データベースと接続したら、途中でスクリプトが止まっても最後にきちんと接続を切るコードを書きたい。
###発生している問題・エラーメッセージ
Error in .local(drv, ...) :
Failed to connect to database: Error: Too many connections
###該当のソースコード
md <- dbDriver("MySQL")
dbname <- "dbtest"
user <- "root"
password <- "pass"
host <- "localhost"
dbconnector <- dbConnect(md,dbname=dbname,user=user,password=password,host=host)
rec_num <- dbGetQuery(dbconnector, "SELECT COUNT(*) FROM ui3;")
if(rec_num > 0)
dbSendQuery(dbconnector, "DELETE FROM ui3;")
dbDisconnect(dbconnector)
dt <- data.frame(hour=hour,minute=minute,base=base,target=target,U=U)
foreach::foreach(h=dt$hour,m=dt$minute, b=dt$base, t=dt$target, u=dt$U) %do% { dbconnector <- dbConnect(md,dbname=dbname,user=user,password=password,host=host) sql <- paste("INSERT INTO ui3 VALUES(", h, ",", m,",", b, ",", t, ",",as.integer(u), ");", sep = "") dbSendQuery(dbconnector,sql) dbDisconnect(dbconnector) }
###試したこと
スクリプトを複数回実行
データベースとの不要な接続を無くす。 → RStadio とWindowsの再起動
###補足情報(言語/FW/ツール等のバージョンなど)
R言語とRStadio
RMySQLライブラリを使用
MySQL
回答1件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2017/07/07 14:45