1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30
| test :-
odbc_connect('prolog', _,
[ user(root),
password(' '),
alias(data),
open(once)
]),
interro1(data),
interro2(data),
interro3(data, 'Sveinsson', 'Erlendur', 'Commissaire'),
interro2(data),
interro4(data, 'Sveinsson'),
interro2(data),
odbc_disconnect(data).
interro1(Data) :-
writeln('Liste des noms dans la bdd'),
findall(Nom,
odbc_query(Data,
'select nom from personnes',
row(Nom)),
Noms),
writeln(Noms), nl.
interro2(Data) :-
writeln('Listing de la base de données'),
findall(L,
odbc_query(Data,'SELECT * FROM personnes', L),
Liste),
maplist(writeln, Liste), nl. |
Partager