Microsoft Access

Slično kao i za import podataka iz MS Excela, za import podataka iz MS Accessa neophodno je instalirati i koristiti pakete koji nijesu dio osnovne konfiguracije.

Zadatak: Fajl (db_03.zip) dat u prilogu prvo otpakovati, pa zipovani fajl (db_03.accdb) sačuvati u radnom direktorijumu. Nakon toga importovati podatke iz tabele pod nazivom Tabela1 u R objekat db.accdb .

17KB

db_03.zip

archive

db_03.accdb

RODBC

> #narednu komandu izvrsiti ukoliko RODBC paket vec nije instaliran
> #install.packages("RODBC")
> library(RODBC)
> #uspostaviti ODBC konekciju
> odbc.con <- odbcConnectAccess2007(access.file = "db_03.accdb")
> #definisati SQL komandu za import podataka
> sql.com <- "SELECT * FROM Tabela1"
> #importovati podatke pomocu sqlQuery funkcije
> db.accdb <- sqlQuery(channel = odbc.con, query = sql.com)
> #prikazati prva 2 reda db.accdb data framea
> head(db.accdb, 2)
  ID x y z
1  1 2 5 a
2  2 4 4 b
> #zatvoriti ODBC konekciju
> odbcClose(channel = odbc.con)

DBI / odbc

> #naredne komande izvrsiti ukoliko DBI i odbc paketi vec nijesu instalirani
> #install.packages("DBI")
> #install.packages("odbc")
> library(DBI)
> library(odbc)
> #definisati parametar konekcije 1: database query (DBQ=putanja do baze)
> dbq <- paste0("DBQ=C:\\Users\\adjurovic\\Desktop\\db_03.accdb")
> #definisati parametar konekcije 2: tip ODBC drajvera
> driver <- "Driver={Microsoft Access Driver (*.mdb, *.accdb)};"
> #uspostaviti ODBC konekciju
> odbc.con <- dbConnect(odbc::odbc(), 
+    .connection_string = paste0(driver, dbq))
> #importovati podatke iz tabele Tabela1
> db.accdb <- dbReadTable(odbc.con, "Tabela1")
> #prikazati prva 2 reda db.accdb data frames
> head(db.accdb, 2)
  ID x y z
1  1 2 5 a
2  2 4 4 b
> #zatvoriti ODBC konekciju
> dbDisconnect(odbc.con)

Više detalja o ODBC konekcijama prikazano je u ovom primjeru.