SQL सर्वर

Question

के लिए डेल्फी में एसक्यूएल पार्सर मैं SQL सर्वर के लिए डेल्फी (2010) में एक अच्छा SQL पार्सर ढूंढ रहा हूं। मुझे एक क्वेरी को पार्स करने और निकालने के लिए ऐसी चीज चाहिए: खंडों का चयन करें, कहां और ऑर्डर करें। इससे कोई फर्क नहीं पड़ता कि यह एक वाणिज्यिक या ओपन-सोर्स समाधान है। यह एक डीएलएल भी हो सकता है (निश्चित रूप से किसी भी भाषा में लिखा गया है) लेकिन मैं एक डीएलएल पर एक वीसीएल घटक पसंद करता हूं।

Answer 1

राफेल डेल्फी एक एसक्यूएल

चेक इन कार्यों

function NextSQLToken(var p: PAnsiChar; out Token: AnsiString; CurSection: TSQLToken): TSQLToken; overload; 
function NextSQLToken(var p: PWideChar; out Token: WideString; CurSection: TSQLToken): TSQLToken; overload; 
function NextSQLToken(var p: PChar; out Token: String; CurSection: TSQLToken): TSQLToken; overload; 

function GetIndexForOrderBy(const SQL: WideString; DataSet: TDataSet): TIndexDef; 
function GetTableNameFromSQL(const SQL: WideString): WideString; 
function GetTableNameFromQuery(const SQL: Widestring): Widestring; 
function AddParamSQLForDetail(Params: TParams; SQL: WideString; Native: Boolean; QuoteChar: WideString = ''): WideString; 
function IsMultiTableQuery(const SQL: WideString): Boolean; 
function SQLRequiresParams(const SQL: WideString): Boolean; 

function NextSQLTokenEx(var p: PWideChar; out Token: UnicodeString; CurSection: TSQLToken; IdOption: IDENTIFIEROption): TSQLToken; overload; 
function NextSQLTokenEx(var p: PWideChar; out Token: WideString; CurSection: TSQLToken; IdOption: IDENTIFIEROption): TSQLToken; overload; 
function NextSQLTokenEx(var p: PAnsiChar; out Token: AnsiString; CurSection: TSQLToken; IdOption: IDENTIFIEROption): TSQLToken; overload; 
function GetTableNameFromSQLEx(const SQL: WideString; IdOption: IDENTIFIEROption): WideString; 

यह कैसे एक एसक्यूएल वाक्य पार्स और सभी तत्वों को मिल को दिखाने के लिए एक बहुत ही सरल नमूना है DBCommon इकाई में स्थित पार्सर के साथ आता है।

uses 
    TypInfo, 
    DbCommon, 
    SysUtils; 


const 
    StrSql ='Select Field1, Field2, 54 field3, Field4 from Mytable1 Order by Field1,Field5'; 

procedure ParseSql(Const Sql : string); 
var 
    SQLToken  : TSQLToken; 
    CurSection : TSQLToken; 
    Start  : PWideChar; 
    Token  : WideString; 
    IdOption  : IDENTIFIEROption; 
begin 
    IdOption :=idMixCase; 
    Start  :=PWideChar(StrSql); 
    CurSection := stUnknown; 
    repeat 
    SQLToken := NextSQLTokenEx(Start, Token, CurSection, IdOption); 
    if SQLToken<>stEnd then 
    Writeln(Format('Type %s Token %s', [GetEnumName(TypeInfo(TSQLToken), integer(SQLToken)),Token])); 
    CurSection := SQLToken; 
    until SQLToken in [stEnd]; 
end; 



begin 
    try 
    ParseSql(StrSql); 
    except 
    on E: Exception do 
     Writeln(E.ClassName, ': ', E.Message); 
    end; 
    Readln; 
end. 

इस

Type stSelect Token Select 
Type stFieldName Token Field1 
Type stFieldName Token Field2 
Type stNumber Token 54 
Type stFieldName Token field3 
Type stFieldName Token Field4 
Type stFrom Token from 
Type stTableName Token Mytable1 
Type stOrderBy Token Order by 
Type stFieldName Token Field1 
Type stFieldName Token Field5 

Answer 2

जांच वापस आ जाएगी: http://www.sqlparser.com/sql-parser-vcl.php

यह एक बहुत शक्तिशाली एसक्यूएल पार्सर और सभी VCL में