A prolog package that provides connection to sqlite

Introduction

The script below refers to a swi-prolog package prosqlite that can connect prolog to sqlite. In addition to the SQL connection ability, the package also provides a mechanism allowing Prolog scripts to access sqlite databases with native prolog predicates. Example can be found in the following source code. Please refer to the official site of prosqlite for details.

This post shows the native predicate access between a prolog script and a car company database. The database is a sample file found on GitHub. Please refer to the link below for its setup.

Source: https://github.com/dtaivpp/car_company_database

Output

Table names in the database: [Brands,Car_Options,Car_Parts,Car_Vins,Customer_Ownership,Customers,Dealer_Brand,Dealers,Manufacture_Plant,Models,sqlite_sequence] Column names of the table Brands: [brand_id,brand_name] All brand records: [(1,Cover Squirrel),(2,Supreme),(3,Yellow),(4,Ferrari),(5,Boujiee),(6,Freshest)] Car parts with names containing 'Engine': [2.6L Engine,3.0L Engine,2.4L Engine] Models related to 'Ferrari': [LaFerrari,450,F12 Berlinetta,F40]

Source Code

% Reference: % https://www.swi-prolog.org/pack/file_details/prosqlite/doc/prosqlite.html % https://github.com/dtaivpp/car_company_database openDb :- [library(prosqlite)], Opt = [as_predicates(true), ext('db')], sqlite_connect('Car_Database',cardb,Opt). closeDb :- sqlite_disconnect(cardb). is_part_of(Part,Name) :- 'Car_Parts'(_,PN,_,_,_,_), sub_atom(PN,_,_,_,Part), Name = PN. % find all relating Models with a brand name models_with_brand_name(Name, ModelList) :- 'Brands'(BId,Name), findall(MN,'Models'(_,MN,_,BId),ModelList). go :- openDb, % % find all table names in a database findall(T, sqlite_table_column(cardb,T,_), TL), setof(E, member(E,TL), TableSet), % removing duplicates writeln("Table names in the database:"), writeln(TableSet), nl, % % find all column names of a table name Brands findall(C, sqlite_table_column(cardb,'Brands',C), ColList), writeln("Column names of the table Brands:"), writeln(ColList), nl, % % show all brand records findall((Id,T), 'Brands'(Id,T), TL1), writeln("All brand records:"), writeln(TL1), nl, % % selecting rows with a given part of a field % find all car parts with names containing 'Engine' findall(N, is_part_of('Engine',N), NameList), writeln("Car parts with names containing 'Engine':"), writeln(NameList), nl, % % there is a 1:N relation between Brands and Models % find all model names relating to brand 'Ferrari' models_with_brand_name('Ferrari',SL1), writeln("Models related to 'Ferrari':"), writeln(SL1), nl, closeDb.