Base conocimiento SUPER QUERYS, Prolog

Base conocimiento SUPER QUERYS

create_querys:- read(CAMPO1), read(CAMPO2), read(TABLA), query1(CAMPO1,TABLA),query2(CAMPO1,CAMPO2,TABLA).

query1(CAMPO1,TABLA):- 
write('SELECT '), write(CAMPO1), write(', COUNT(*)/(SELECT COUNT(*) FROM '), write(TABLA),write(") AS 'probabilidad' "), 
    write(' FROM ' ),write(TABLA), 
    write(' WHERE '), write(CAMPO1),write(' IN'),write('('), subquery(CAMPO1,TABLA), write(')'),
    write(' GROUP BY '),write(CAMPO1),write(';').
  
query2(CAMPO1,CAMPO2,TABLA):- 
write('SELECT '),write(CAMPO1),write(', '),write(CAMPO2),write(', COUNT(*)/(SELECT COUNT(*) FROM '), write(TABLA),write(") AS 'probabilidad' "),
    write(' FROM '),write(TABLA),
    write(' WHERE '),write(CAMPO1), write('  IN ('),subquery(CAMPO1,TABLA),write(') AND '),write(CAMPO2),write(' IN ('),subquery(CAMPO2,TABLA),write(')'),
    write(' GROUP BY '),write(CAMPO2),write(','),write(CAMPO1),write(' ORDER BY '),write(CAMPO1),write(', '),write(CAMPO2),write(';').

subquery(CAMPO,TABLA):- write(' SELECT DISTINCT '),write(CAMPO), write(' FROM '),write(TABLA).

:- create_querys.


run \| edit \| history \| help	0

Please log in to post a comment.