| db databasePath rs |
databasePath := 'Sample.sqlite' asLocalPathName.
db := FMDatabase withPath: databasePath.
db open ifTrue: [
rs := db executeQuery: 'select * from Books where Pages > 200'.
[rs next ] whileTrue: [
self print: (' // ', (rs stringForColumn: 'Title')).
].
db close.
].
! !