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"

> dfDate     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)