install.packages("RJDBC")

> library(RJDBC)

> jdbc.drv<-JDBC("com.teradata.jdbc.TeraDriver", c("C:/JDBC/terajdbc4.jar", "C:/JDBC/tdgssconfig.jar"))

 > jdbc.conn<-dbConnect(jdbc.drv, "jdbc:teradata://tdp.vip.XXX.com", "userID", "passWD") #打开数据库连接

> dbGetQuery(jdbc.conn, "select current_date, user, session")

 Date     User   Session 

1 2012-05-14 GUANWANG 188541253

> df <- dbGetQuery(jdbc.conn, "select current_date, user, session")

> str(df)

 'data.frame':	1 obs. of  3 variables:

 $ Date   : chr "2012-05-14" 

 $ User   : chr "GUANWANG" 

 $ Session: num 1.89e+08

 > df[,1] 

[1] "2012-05-14"

 > df[,"User"] 

[1] "GUANWANG"

> df
        Date     User   Session
1 2012-05-14 GUANWANG 188541253

> dbDisconnect(jdbc.conn) #关闭连接

 [1] TRUE

> dbGetQuery(jdbc.conn, "select current_date, user, session")  

Error in .verify.JDBC.result(s, "Unable to execute JDBC statement ", statement) : 
  Unable to execute JDBC statement select current_date, user, session ([Teradata JDBC Driver] [TeraJDBC 13.10.00.18] [Error 1095] [SQLState HY000] Cannot call a method on closed connection)