#title RODBC

{{{
library("RODBC")
conn <- odbcConnect("36",uid="dbid", pwd="password")
data <- sqlQuery(conn, "
select 
accountkey
,	sum(saleamt) amt 
,	log(sum(saleamt)) log_amt 
from cji_eis.PubSales.Fact_Sales 
where datekey between 20100601 and 20100630
and gamekey = 20
group by
accountkey
")
hist(data$log_amt)
}}}


DB로 저장하기
{{{
library("RODBC")
conn <- odbcConnect("36",uid="dbid", pwd="password")
.
.
.
.
#x_data는 데이터프레임
sqlSave(conn,x_data,tablename="dbo.result")
}}}