我正在尝试将R连接到数据库(我只想指出我对数据库没有任何经验,这就是为什么我希望你能给我一些提示)。起初我使用this post中的代码尝试了ROracle包:
library(ROracle)
host <- "xxx.xxx.xx.xxx"
port <- 1521
service <- "K" #? not sure exactly what does it mean service, is it name of server?i cannot really find any informations about it
drv <- dbDriver("Oracle")
connect.string <- paste(
"(DESCRIPTION=",
"(ADDRESS=(PROTOCOL=tcp)(HOST=", host, ")(PORT=", port, "))",
"(CONNECT_DATA=(SERVICE_NAME=", service, ")))", sep = "")
con <- dbConnect(drv, username = "user", password = "pwd", dbname = connect.string)
我没有收到任何错误消息,但是当我使用命令
时dbGetInfo(con)
我收到了以下回复:
$username
[1] "user"
$dbname
[1] "(DESCRIPTION=(ADDRESS=(PROTOCOL=tcp)(HOST=xxx.xxx.xx.xxx)(PORT=1521))(CONNECT_DATA=(SERVICE_NAME=K)))"
$serverVersion
[1] "xx.x.x.x.x"
$serverType
[1] "Oracle RDBMS"
$resTotal
[1] 0
$resOpen
[1] 0
$prefetch
[1] FALSE
$bulk_read
[1] 1000
$bulk_write
[1] 1000
$stmt_cache
[1] 0
$results
list()
在检查有关ROracle的文档时,我发现:
$resTotal
此连接上的结果集数
$resOpen
此连接上打开的结果集数量
在我的情况下都等于0,这是否意味着我已连接?我只是无法弄清楚我如何检查我是否连接到数据库/服务器。
然后我决定查看包RODBC
:
library(RODBC)
ch <- odbcConnect("K",uid="user", pwd = "pwd") # again question what is the first parameter? should it be server name?
odbcGetInfo(ch)
错误导致情况更糟:
Warnmeldungen:
1: In odbcDriverConnect("DSN=K;UID=user;PWD=pwd") :
[RODBC] FEHLER: Status IM002, Code 0, Nachricht [unixODBC][Driver Manager]Data source name not found, and no default driver specified
2: In odbcDriverConnect("DSN=K;UID=user;PWD=pwd") :
ODBC-Verbindung fehlgeschlagen
>
> odbcGetInfo(ch)
Fehler in odbcGetInfo(ch) : Argument ist kein offener RODBC-Kanal
可以请任何人解释我如何将其连接到数据库并检查连接? 我实际上对这个程序非常困惑,我试图自己找到解决方案,即使在stackoverflow,但是我根本不理解它。提前致谢
答案 0 :(得分:1)
尝试使用此示例
require(Roracle)
Con=dbConnect(dbDriver("Oracle"),"IP/SID",username="xxx",password="xxx")
Q=dbSendQuery(Con,"Select ….")
F=fetch(Q)
head(F)
答案 1 :(得分:0)
尝试使用RJdbc
注意:安装RJdbc和rjava包。
library(RJDBC)
driver <- JDBC("oracle.jdbc.OracleDriver",
classPath="C:/app/../product/12.1.0/client_1/jdbc/lib/ojdbc7.jar"," ")
connection <-dbConnect(driver,"jdbc:oracle:thin:@host:port:SID","USERNAME","PASSWORD")
results <- dbGetQuery(connection, "SELECT COUNT(*) FROM TABLENAME")
print(results)
dbDisconnect(connection)