O Que Eu Estou Fazendo De Errado (pra Variar)?

[hencker]

Estou usando o seguinte código:

procedure TfrmPrincipal.TBGeralClick(Sender: TObject);
begin
        lblQuantTotal.Caption := IntToStr(DMRelatos.TGeral.RecordCount);

        with DMRelatos.QGeral_01 do begin
                Close;
                SQL.Clear;
                SQL.Add('SELECT * FROM PROTOCOLO WHERE TITULONATUREZAABR = DMI');
                Open;
        end;

        lblQuantDMI.Caption := IntToStr(DMRelatos.QGeral_01.RecordCount);
end;

Porém quando eu compilo dá o segunte erro:

Project Relato.exe raised exception class EZSQLException with message 'SQL Erros: Dynamic SQL Error SQL error code = -206 Column unknouwn DMI At line 1, column 51.. Error code: -206 Column does not belong to referenced table The SQL : SELECT * FROM PROTOCOLO WHERE TITULONATUREZAABR = DMI;'. Process stopped. Use Step or Run to continue.

O que deu para entender é que ele pensa que DMI é uma coluna da tabela mas na verdade DMI é apenas um dado que eu quero que seja filtrado por ele...

Alguém têm alguma idéia?

[Thales Pontes Martins]

Eu não entendo absolutamente nada de SQL mas se DMI for uma string tente colocar entre duplo aspas -> "DMI"

[hencker]

Eu tentei Thales, mas isso não funcionou... Ele acha que DMI é uma tabela quando, na verdade, DMI é uma String...

[Thales Pontes Martins]

você tentou assim ->

'SELECT * FROM PROTOCOLO WHERE (TITULONATUREZAABR = "DMI")'

[hencker]

:(

Acabo de testar...

Também não funcionou...

[Progr'amador]

Olá hencker e Thales,

Nesse caso usa-se duas aspa símples em vez de uma aspa dupla:

SQL.Add('SELECT * FROM PROTOCOLO WHERE TITULONATUREZAABR = ''DMI'' ');

Abs. Progr'amador.

B)

[Thales Pontes Martins]

Nesse caso usa-se duas aspa símples em vez de uma aspa dupla:

Eu pensei em sugerir isso mas lembrava que em SQL as strings eram entre aspas duplas. E lembrando também que duas aspas simples numa constante string é igual a uma aspas simples. Igual a ->

'SELECT * FROM PROTOCOLO WHERE (TITULONATUREZAABR = '+#39+'DMI'+#39+')'

[Progr'amador]

Nesse caso usa-se duas aspa símples em vez de uma aspa dupla:

Eu pensei em sugerir isso mas lembrava que em SQL as strings eram entre aspas duplas. E lembrando também que duas aspas simples numa constante string é igual a uma aspas simples. Igual a ->

'SELECT * FROM PROTOCOLO WHERE (TITULONATUREZAABR = '+#39+'DMI'+#39+')'

Há banco que aceita numa select aspa duplas, no entanto, tem banco que não aceita, na verdade a maioria não aceita.

ABs. Progr'amador.

[Micheus]

Há banco que aceita numa select aspa duplas, no entanto, tem banco que não aceita, na verdade a maioria não aceita.

É por essas e outras que sempre inssisto no uso de parâmetros e não concatenação (de qualque tipo).

Se fosse escrito deste modo, não seria necessário preocupar-se com que tipo de aspas o banco utiliza (simples ou dupla), o mesmo vale para datas (uns utilizam aspas, outros sustenidos...):

with DMRelatos.QGeral_01 do
begin
  Close;
  SQL.Clear;
  SQL.Add('SELECT * FROM PROTOCOLO WHERE TITULONATUREZAABR = :NATUREZA');
  ParamByName('NATUREZA').AsString := 'DMI';
  Open;
end;

[]s

[Progr'amador]

Há banco que aceita numa select aspa duplas, no entanto, tem banco que não aceita, na verdade a maioria não aceita.

É por essas e outras que sempre inssisto no uso de parâmetros e não concatenação (de qualque tipo).

Se fosse escrito deste modo, não seria necessário preocupar-se com que tipo de aspas o banco utiliza (simples ou dupla), o mesmo vale para datas (uns utilizam aspas, outros sustenidos...):

with DMRelatos.QGeral_01 do
begin
  Close;
  SQL.Clear;
  SQL.Add('SELECT * FROM PROTOCOLO WHERE TITULONATUREZAABR = :NATUREZA');
  ParamByName('NATUREZA').AsString := 'DMI';
  Open;
end;

[]s

Olá Micheus,

Na verdade se formos olhar os pros e contras, seria muito relativo, na minha programação eu faço o uso tanto de parametros como tambem o uso das aspas, depedendo da situação.

Com relação os parametros, por exemplo com ADO, ele não aceita ParamByName e talvez tenha outros que tambem não aceita, e cada um tipo de componente trabalha de uma forma diferente com relação os parametros, por exemplo, eu num sei firmemente como funciona o IB, o ZEUS, eu só trabalho com o BDE, então por isso, quando vou da alguma dica faço mais o uso dessas aspas, que na verdade aspa dupla até agora eu só vi em ACCESS mesmo, e ele aceita tanto aspa simples como dupla, tanto faz.

P.S. Mas será que resolveu o problema do hencker? :)

Abs. Progr'amador.

B)

[Micheus]

Olá Micheus,

Na verdade se formos olhar os pros e contras, seria muito relativo, na minha programação eu faço o uso tanto de parametros como tambem o uso das aspas, depedendo da situação.

Com relação os parametros, por exemplo com ADO, ele não aceita ParamByName e talvez tenha outros que tambem não aceita, e cada um tipo de componente trabalha de uma forma diferente com relação os parametros, por exemplo, eu num sei firmemente como funciona o IB, o ZEUS, eu só trabalho com o BDE, então por isso, quando vou da alguma dica faço mais o uso dessas aspas, que na verdade aspa dupla até agora eu só vi em ACCESS mesmo, e ele aceita tanto aspa simples como dupla, tanto faz.

Progr'amador, vou continuar "vendendo o meu peixe"...

Em muitos casos vê-se códigos confusos só pelo uso da concatenação. Quando há parametrização a leitura também fica mais agradável e compreensível. É o que, também, vejo de vantagem no uso de parâmetros.

No caso do ADO, eu diria, apenas, que o caminho é apenas mais "comprido", mas também existe: ADOQuery1.Parameters.ParamByName('NOME_CAMPO').Value

Com a exceção de que não há o AsString, AsInteger, ..., apenas Value (variant)

Já o Access é mesmo um caso aparte. Só nele vi o delimitador de datas ser um #.

Valeu.

[Progr'amador]

No caso do ADO, eu diria, apenas, que o caminho é apenas mais "comprido", mas também existe: ADOQuery1.Parameters.ParamByName('NOME_CAMPO').Value

Com a exceção de que não há o AsString, AsInteger, ..., apenas Value (variant)

Pow essa do ADO eu não sabia, valeu!

Eu concordo com você sobre o questionamento, só que eu defendo a opnião de que nem sempre o uso da concatenação seja algo complicado (confuso) e sim algo mais prático em devidos momentos, e quando o caso venha a se complicar aí usa-se parametros.

Abs. Progr'amador.

B)

[Guest - Antônio -]

Tente fazer assim

SQL.Add('SELECT * FROM PROTOCOLO WHERE TITULONATUREZAABR = ' + QuotedStr('DMI') );