Em reposta a d\u00favida do Rafael e Carlos Gonzaga sobre como criar consultadas parametrizadas com dbExpress Framework resolvi escrever sobre o tema.<\/p>\n
Para come\u00e7ar, existe uma pequena diferen\u00e7a ao utilizar par\u00e2metros em SQL com DBX Framework e VCL. Enquanto a VCL utiliza “:PARAMETRO” para definir par\u00e2metros em uma query, em DBX Framework par\u00e2metro \u00e9 representado pelo sinal de “?” e n\u00e3o inclui nome.<\/p>\n
Como estamos acostumados com a VCL e certamente \u00e9 muito mais leg\u00edvel codificar utilizando o nome dos par\u00e2metros, voc\u00ea espera trabalhar da mesma forma com DBX Framework e isso \u00e9 poss\u00edvel criando uma pequena extens\u00e3o ao DBX Framework.<\/p>\n
Para entender melhor, caso voc\u00ea utilize puramente o framework, seu c\u00f3digo seria assim:<\/p>\n
program DBX4Example;\r\n\r\n{$APPTYPE CONSOLE}\r\n\r\nuses\r\n SysUtils,\r\n DBXDynalink,\r\n DBXCommon,\r\n DBXInterbase;\r\n\r\nvar\r\n\r\n aDBXConn: TDBXConnection;\r\n aDBXTrans : TDBXTransaction;\r\n aCmnd: TDBXCommand;\r\n aReader: TDBXReader;\r\n\r\nbegin\r\n\r\n aDBXConn := TDBXConnectionFactory.GetConnectionFactory.GetConnection('employee ib','sysdba','masterkey');\r\n\r\n if aDBXConn <> nil then\r\n begin\r\n\r\n aCmnd := aDBXConn.CreateCommand;\r\n\r\n \/\/ Start transaction\r\n aDBXTrans:= aDBXConn.BeginTransaction(TDBXIsolations.ReadCommitted);\r\n\r\n \/\/ Prepare and execute the SQL Statement\r\n aCmnd.Text := 'SELECT * FROM Country Where Country = ?';\r\n aCmnd.Prepare;\r\n aCmnd.Parameters.Parameter[0].Value.SetAnsiString('USA');\r\n aReader := aCmnd.ExecuteQuery;\r\n\r\n while aReader.Next do\r\n begin\r\n Writeln( aReader.Value['Country'].GetAnsiString );\r\n end;\r\n\r\n \/\/ Commit transaction\r\n aDBXConn.CommitFreeAndNil(aDBXTrans);\r\n\r\n Readln;\r\n aReader.Free;\r\n aCmnd.Free;\r\n aDbxConn.Free;\r\n end;\r\nend.<\/pre>\nVeja que a query utiliza interroga\u00e7\u00e3o para definir o par\u00e2metro e ap\u00f3s o Prepare a longa linha para definir o valor do par\u00e2metro com posi\u00e7\u00e3o zero.<\/p>\n
Esta primeira parte responderia a pergunta do Rafael e do Carlos, mas podemos tornar esse c\u00f3digo mais amig\u00e1vel utilizando Class Helpers, recurso este que foi implementado no Delphi 2006 e nos ajuda a extender classes sem utilizar heran\u00e7a.<\/p>\n
Assim sendo vou estender a classe TDBXParameterList, o qual ir\u00e1 permitir que eu nomeie os par\u00e2metros e define seus respectivos valores por nome.<\/p>\n
O c\u00f3digo abaixo estende a classe utilizando a sintaxe class helper<\/strong>, veja bem isso n\u00e3o \u00e9 heran\u00e7a. Esta extens\u00e3o define os seguintes m\u00e9todos:
\nSetParamatersName: este m\u00e9todo ir\u00e1 receber uma lista de nomes, o qual ser\u00e1 usado para nomear os par\u00e2metros, voc\u00ea deve passar a quantidade de nomes igual a quantidade de par\u00e2metros;
\nByName: m\u00e9todo que nos permite acessar os par\u00e2metros atrav\u00e9s do nome, o DBX Framework traz o m\u00e9todo GetOrdinal que permite acessar os par\u00e2metros por nome, o ByName ir\u00e1 simplificar este acesso;<\/p>\nunit DBXParameterListHelper;\r\n\r\ninterface\r\n\r\nuses\r\n DBXCommon, SysUtils;\r\n\r\ntype\r\n TDBXParameterListHelper = class helper for TDBXParameterList\r\n\r\n public\r\n procedure SetParamatersName(aNames: Array of String);\r\n function ByName( Name : String ) : TDBXWritableValue;\r\n end;\r\n\r\nimplementation\r\n\r\n{ TDBXParameterListHelper }\r\n\r\nfunction TDBXParameterListHelper.ByName(Name: String): TDBXWritableValue;\r\nbegin\r\n Result := Self.Parameter[Self.GetOrdinal(Name)].Value;\r\nend;\r\n\r\nprocedure TDBXParameterListHelper.SetParamatersName(aNames: array of String);\r\nvar\r\n i: Integer;\r\nbegin\r\n\r\n if Length(aNames) <> Self.Count then\r\n raise Exception.Create('aNames should have the same number of parameters');\r\n\r\n for i := 0 to Self.Count - 1 do\r\n begin\r\n Self[i].Name := aNames[i];\r\n end;\r\nend;\r\n\r\nend.<\/pre>\nCom est\u00e1 extens\u00e3o esta parte do c\u00f3digo:<\/p>\n
\/\/ Prepare and execute the SQL Statement\r\n aCmnd.Text := 'SELECT * FROM Country Where Country = ?';\r\n aCmnd.Prepare;\r\n aCmnd.Parameters.Parameter[0].Value.SetAnsiString('USA');<\/pre>\nFicaria assim:<\/p>\n
\/\/ Prepare and execute the SQL Statement\r\n aCmnd.Text := 'SELECT * FROM Country Where Country = ?';\r\n aCmnd.Prepare;\r\n aCmnd.Parameters.SetParamatersName(['COUNTRYNAME']);\r\n aCmnd.Parameters.ByName('COUNTRYNAME').SetAnsiString('USA');<\/pre>\nCaso a query tenha v\u00e1rios par\u00e2metros, ficaria assim:<\/p>\n
\/\/ Prepare and execute the SQL Statement\r\n aCmnd.Text := 'SELECT * FROM Country Where Country = ? and Currency = ?';\r\n aCmnd.Prepare;\r\n aCmnd.Parameters.SetParamatersName(['COUNTRYNAME', 'CURRENCY']);\r\n aCmnd.Parameters.ByName('COUNTRYNAME').SetAnsiString('USA');\r\n aCmnd.Parameters.ByName('CURRENCY').SetAnsiString('Dolar');<\/pre>\nAo final vimos como utilizar consultas parametrizadas com DBX Framework e como utilizar class helper para estender classes.<\/p>\n