1、设置本机ODBC数据源
2、安装RODBC包
3、
> library (RODBC)
> ch <- odbcConnect("HNGS",uid = "**************",pwd = "********")
> vflow <- sqlQuery(ch,"select * from DM_VFLOW_REALINPUT where rownum<10", believeNRows=FALSE )
>vflow
> library (RODBC)
> ch <- odbcConnect("HNGS",uid = "**************",pwd = "********")
> vflow <- sqlQuery(ch,"select * from DM_VFLOW_REALINPUT where rownum<10", believeNRows=FALSE )
>vflow