HXQ-0.8: TestDB.hs

{--------------------------------------------------------------
-
- A main program to test XQuery with Sqlite database connectivity
- To create the database load the file data/company.sql in sqlite3
-
- Programmer: Leonidas Fegaras (fegaras@cse.uta.edu)
- Date: 05/12/2008
-
---------------------------------------------------------------}

{-# OPTIONS_GHC -fth #-}

module Main where

import XML.HXQ.XQueryDB
import Database.HDBC.Sqlite3


main = do db <- connectSqlite3 "myDB"
          e <- $(xqdb ("  let $ln := 'English'                              "
                     ++"  for $r in sql('  select e.fname, d.dname          "
                     ++"                   from employee e, department d    "
                     ++"                   where e.dno = d.dnumber          "
                     ++"                     and e.lname = ?           ',   "
                     ++"                $ln)                                "
                     ++"  return <result>{$r/fname,$r/dname}</result>       ")) db
          putXSeq e
          disconnect db