b3 add xlsb example

sophar · Apr 5, 2014 · f291ceb · f291ceb
1 parent 668a1a8
commit f291ceb
Show file tree

Hide file tree

Showing 2 changed files with 17 additions and 2 deletions.
diff --git a/data/namelist.xlsb b/data/namelist.xlsb
diff --git a/src/b3.database.R b/src/b3.database.R
@@ -7,7 +7,11 @@
 # SELECT FROM WHERE ORDER BY
 # SELECT FROM WHERE GROUP BY
 
-## Excel Worksheet
+## ODBC
+
+### Excel Worksheet
+
+
 library(RODBC)
 conn <- odbcConnectExcel2007("data/namelist.xlsx",readOnly = TRUE)
 sqlTables(conn)
@@ -16,8 +20,19 @@ grades <- sqlQuery(conn,"SELECT * FROM [Grades$]")
 df <- sqlQuery(conn,"SELECT * FROM [Students$] INNER JOIN [Grades$] ON [Grades$].Name = [Students$].Name")
 odbcClose(conn)
 
+### Excel Binary Worksheet
+# http://social.msdn.microsoft.com/Forums/en-US/0993e144-2e32-4915-be17-ff076902f983/excel-binary-workbook-xlsb?forum=isvvba
+
+library(RODBC)
+conn <- odbcConnectExcel2007("data/namelist.xlsb",readOnly = TRUE)
+sqlTables(conn)
+students <- sqlFetch(conn,"Students")
+grades <- sqlQuery(conn,"SELECT * FROM [Grades$]")
+df <- sqlQuery(conn,"SELECT * FROM [Students$] INNER JOIN [Grades$] ON [Grades$].Name = [Students$].Name")
+odbcClose(conn)
+
 
-## SQLite database
+## SQLite
 # http://www.sqlite.org/
 require(RSQLite)