Bibliothèque pour analyser les instructions SQL

Question

Je souhaiterais pouvoir analyser une instruction SQL SELECT arbitraire et récupérer les différentes parties du composant (colonnes, relations, conditions JOIN, conditions WHERE, colonnes ORDER BY), idéalement en utilisant Delphi. Une recherche rapide sur google montre plusieurs produits freeware différents, mais il n'est pas clair s'ils sont complets et/ou en développement actif. Mon besoin immédiat de simplement extraire la liste des relations utilisées dans une série de définitions VIEW afin de s'assurer que les vues ou les tables requises existent avant que j'essaie de CREER la vue. Ainsi, par exemple, pour la déclaration:

SELECT PersonID, LastName, OrderID 
FROM People P INNER JOIN Orders O ON P.PersonID = O.PersonID 

Je dois récupérer les valeurs "People" et "Orders". (Évidemment, c'est un exemple simple: je veux être capable de gérer des cas plus complexes où, par exemple, le mot "FROM" pourrait apparaître dans la liste des colonnes dans le cadre d'une expression).

Je suis en train de fournir ce service dans une base de données qui permet d'utiliser des fonctions de STDCALL exportées de DLL, donc idéalement une bibliothèque candidat serait appelable de Delphi ou C

Answer 1

Jetez un oeil à Gold Parser. Il a une Delphi version disponible, et grammaire SQL sur la page de téléchargement.

Answer 2

parseurs SQL sont compliquées.

Pensiez-vous de cette approche:

1. begin transaction.
2. Envoyez la commande CREATE VIEW au serveur.
3. attraper l'erreur (tout pilote de base de données décent devrait être capable de le faire).
4. En cas d'erreur, analysez le message d'erreur et affichez les tables manquantes sur le client.
5. rollback

voir cet exemple (PostgreSQL):

=> begin; 
BEGIN 
=> create view testview as select foo,bar from a join b on a.x=b.y; 
ERROR: relation "a" does not exist 
LINE 1: create view testview as select foo,bar from a join b on a.x=... 
                ^
=> rollback; 
ROLLBACK 

ou celui-ci (Oracle):

SQL> create view testview as select foo,bar from a join b on a.x=b.y; 
create view testview as select foo,bar from a join b on a.x=b.y 
                * 
ERROR at line 1: 
ORA-00942: table or view does not exist 

SQL> rollback; 

Rollback complete. 

Answer 3

Vous pouvez utiliser Delphi avec ADODB.

Utilisez un TADOQuery pour tester si votre requête est bonne ou non sans vraiment ouvrir le jeu d'enregistrements. Vous pouvez également récupérer les noms des champs de la requête.

Suppression d'une connexion TADOConnection sur un formulaire. Déposez une TMemo et un TButton et essayez ce code:

procedure TForm1.Button1Click(Sender: TObject); 
var 
    lADOQuery : TADOQuery; 
    lFieldNames : TStrings; 
begin 
    lADOQuery := TADOQuery.Create(nil); 
    try 
    lADOQuery.Connection := ADOConnection1; 
    lADOQuery.SQL.Text := Memo1.Text; 
    lFieldNames := TStringList.create; 
    try 
     lADOQuery.GetFieldNames(lFieldNames); 

     showmessage(lFieldNames.Text); // Show fieldNames of the query 

     // To show that the dataset is not actually opened try this : 
     // Throws an exception (Dataset closed) 
     //showmessage(inttostr( lADOQuery.RecordCount)); 
    except 
     On e: Exception do 
     ShowMessage('Invalid query'); 
    end; 
    lFieldNames.free; 
    finally 
    lADOQuery.free; 
    End; 
end;