Discussion :

[touzack]

Salut!
J’aimerai à partir de swi-prolog me connecter à ma base de donnée Mysql (avec comme user le root et sans mot de passe) pour y extraire de données ; pour cela j'ai créé un DSN que j'ai nommé Prolog_data.
Ma question est de savoir comment je peux accéder à ma base de donnée MYSQL
Voici le code que j’ai effectué mais qui ne marche pas :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
open_Prolog_Mysql :-
        odbc_connect('Prolog_data', _,
                     [ user(root),
                       password(‘ ’),
                       alias(prolog_data),
                       open(once)
                     ]).

Merci d'avance por votre aide

[Trap D]

Salut

Je me suis créé une petite base de données (avec Access), Policiers contenant une table Personnes.

Voici un programme qui donne un tout petit exemple de ce qu'on peut faire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
test :-
        odbc_connect('Policiers', _,
                     [ 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.
 
 
interro3(Data, Nom, Prenom, Profession) :-
	writeln('Ajout d''un nom dans la bdd'),
	sformat(Str, 'INSERT INTO personnes (nom,prénom,profession) VALUES (''~w'', ''~w'', ''~w'')', [Nom, Prenom, Profession]),
	string_to_atom(Str, Atom),
        odbc_query(Data, Atom, affected(N)),
	writeln(N), nl.
 
interro4(Data, Nom) :-
	writeln('Retrait d''un nom dans la bdd'),
	sformat(Str, 'DELETE * FROM personnes WHERE nom=''~w''', [Nom]),
	string_to_atom(Str, Atom),
        odbc_query(Data, Atom, affected(N)),
	writeln(N), nl.

La sortie

1 ?- test.
Liste des noms dans la bdd
[Dupont, Dupond, Maigret, Wallander]

Listing de la base de données
row(4, Dupont, Jean, Policier)
row(5, Dupond, Paul, Policier)
row(6, Maigret, Jules, Commissaire)
row(7, Wallander, Kurt, Inspecteur)

Ajout d'un nom dans la bdd
1

Listing de la base de données
row(4, Dupont, Jean, Policier)
row(5, Dupond, Paul, Policier)
row(6, Maigret, Jules, Commissaire)
row(7, Wallander, Kurt, Inspecteur)
row(13, Sveinsson, Erlendur, Commissaire)

Retrait d'un nom dans la bdd
1

Listing de la base de données
row(4, Dupont, Jean, Policier)
row(5, Dupond, Paul, Policier)
row(6, Maigret, Jules, Commissaire)
row(7, Wallander, Kurt, Inspecteur)

true.

Bon courage.