Não encontra o parametro?

8 messages · 4 people · 3-3-2014 – 3-4-2014

William Oliveira Ferreira 4
Fabio Luis Girardi 2
Daniel Erles 1
Flávio Etrusco 1

Reply by email Subscribe to this list Your subscription

Read-only archive. Use j and k to move between messages.

William Oliveira Ferreira3-3-2014 19:58 UTC

Ol? lista,

eu tenho um c?digo mam?o com a??car aqui que eu n?o consigo entender por que cargas d'?gua n?o encontra o par?metro da SQL. Algu?m quer chutar algo?

var
  sql_Query : TSQLQuery;
begin
  Result := False;
  sql_Query := TSQLQuery.Create(nil);
  sql_Query.DataBase := Self._Conexao;
  sql_Query.Transaction := TSQLTransaction(Self._Conexao.Transaction);
  sql_Query.SQL.Clear;
  if TSQLTransaction(Self._Conexao.Transaction).Active then
    TSQLTransaction(Self._Conexao.Transaction).EndTransaction;
  sql_Query.SQL.Add('DELETE FROM loc_clientes');
  sql_Query.SQL.Add('WHERE cli_codigo = :PCodigo');
  sql_Query.ParamByName(':PCodigo').AsInteger := Codigo;
  try
    sql_Query.ExecSQL;
  except
    raise Exception.Create('Erro ao excluir o cliente! [ID: ' +
IntToStr(Codigo) + ']');
  end;

____

A mensagem de erro:

Parameter ":PCodigo" not found

Vira e mexe esta mensagem me assombra...

...Digo isto porque em outros trechos n?o ocorre.

________________________________ William de Oliveira Ferreira -------------- next part -------------- An HTML attachment was scrubbed... URL: <http://lists.lazarus.freepascal.org/pipermail/lazarus/attachments/20140303/108c8e9c/attachment.html>

Reply by email

Fabio Luis Girardi3-3-2014 20:04 UTC

to William Oliveira Ferreira

William, rescreva a sua d?vida em ingl?s, talvez a resposta para ela venha mais depressa...

Em 3 de mar?o de 2014 16:58, William Oliveira Ferreira <

Show quoted text 54 lines

escreveu: Ol? lista, eu tenho um c?digo mam?o com a??car aqui que eu n?o consigo entender por que cargas d'?gua n?o encontra o par?metro da SQL. Algu?m quer chutar algo? var sql_Query : TSQLQuery; begin Result := False; sql_Query := TSQLQuery.Create(nil); sql_Query.DataBase := Self._Conexao; sql_Query.Transaction := TSQLTransaction(Self._Conexao.Transaction); sql_Query.SQL.Clear; if TSQLTransaction(Self._Conexao.Transaction).Active then TSQLTransaction(Self._Conexao.Transaction).EndTransaction; sql_Query.SQL.Add('DELETE FROM loc_clientes'); sql_Query.SQL.Add('WHERE cli_codigo = :PCodigo'); sql_Query.ParamByName(':PCodigo').AsInteger := Codigo; try sql_Query.ExecSQL; except raise Exception.Create('Erro ao excluir o cliente! [ID: ' + IntToStr(Codigo) + ']'); end; ____ A mensagem de erro: Parameter ":PCodigo" not found Vira e mexe esta mensagem me assombra... ...Digo isto porque em outros trechos n?o ocorre. -- ________________________________ William de Oliveira Ferreira -- _______________________________________________ Lazarus mailing list http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus

The best regards, Fabio Luis Girardi PascalSCADA Project http://sourceforge.net/projects/pascalscada http://www.pascalscada.com -------------- next part -------------- An HTML attachment was scrubbed... URL: <http://lists.lazarus.freepascal.org/pipermail/lazarus/attachments/20140303/38a85673/attachment.html>

Reply by email

William Oliveira Ferreira3-3-2014 20:07 UTC

to Fabio Luis Girardi

?Sorry Guy, I thought i was sending to a brazilian list... =( -------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.lazarus.freepascal.org/pipermail/lazarus/attachments/20140303/aec4639d/attachment-0001.html>

Reply by email

Fabio Luis Girardi3-3-2014 20:09 UTC

to William Oliveira Ferreira

No problema!!! :)

2014-03-03 17:07 GMT-03:00 William Oliveira Ferreira <

: Sorry Guy, I thought i was sending to a brazilian list... =(

Reply by email

Flávio Etrusco3-3-2014 20:10 UTC

to William Oliveira Ferreira: eu tenho um c?digo mam?o com a??car aqui que eu n?o consigo entender por que cargas…

2014-03-03 16:58 GMT-03:00 William Oliveira Ferreira :

Show quoted text 42 lines

Ol? lista, eu tenho um c?digo mam?o com a??car aqui que eu n?o consigo entender por que cargas d'?gua n?o encontra o par?metro da SQL. Algu?m quer chutar algo? var sql_Query : TSQLQuery; begin Result := False; sql_Query := TSQLQuery.Create(nil); sql_Query.DataBase := Self._Conexao; sql_Query.Transaction := TSQLTransaction(Self._Conexao.Transaction); sql_Query.SQL.Clear; if TSQLTransaction(Self._Conexao.Transaction).Active then TSQLTransaction(Self._Conexao.Transaction).EndTransaction; sql_Query.SQL.Add('DELETE FROM loc_clientes'); sql_Query.SQL.Add('WHERE cli_codigo = :PCodigo'); sql_Query.ParamByName(':PCodigo').AsInteger := Codigo; try sql_Query.ExecSQL; except raise Exception.Create('Erro ao excluir o cliente! [ID: ' + IntToStr(Codigo) + ']'); end; ____ A mensagem de erro: Parameter ":PCodigo" not found Vira e mexe esta mensagem me assombra... ...Digo isto porque em outros trechos n?o ocorre. --

I believe ':' isn't part of the parameter name? (i.e. you're not supposed to include it when invoking ParamByName).

Regards,
Fl?vio

Reply by email

William Oliveira Ferreira3-3-2014 20:13 UTC

to Flávio Etrusco

Exactly Fl?vio. That ':' shouldn't be there...

Thanks...

Fl?vio Etrusco wrote 58 lines

2014-03-03 16:58 GMT-03:00 William Oliveira Ferreira < >: > Ol? lista, > > eu tenho um c?digo mam?o com a??car aqui que eu n?o consigo entender por que > cargas d'?gua n?o encontra o par?metro da SQL. Algu?m quer chutar algo? > > var > sql_Query : TSQLQuery; > begin > Result := False; > sql_Query := TSQLQuery.Create(nil); > sql_Query.DataBase := Self._Conexao; > sql_Query.Transaction := TSQLTransaction(Self._Conexao.Transaction); > > sql_Query.SQL.Clear; > if TSQLTransaction(Self._Conexao.Transaction).Active then > TSQLTransaction(Self._Conexao.Transaction).EndTransaction; > > sql_Query.SQL.Add('DELETE FROM loc_clientes'); > sql_Query.SQL.Add('WHERE cli_codigo = :PCodigo'); > > sql_Query.ParamByName(':PCodigo').AsInteger := Codigo; > > try > sql_Query.ExecSQL; > except > raise Exception.Create('Erro ao excluir o cliente! [ID: ' + > IntToStr(Codigo) + ']'); > end; > > ____ > > A mensagem de erro: > > Parameter ":PCodigo" not found > > > Vira e mexe esta mensagem me assombra... > > > ...Digo isto porque em outros trechos n?o ocorre. > > -- I believe ':' isn't part of the parameter name? (i.e. you're not supposed to include it when invoking ParamByName). Regards, Fl?vio -- _______________________________________________ Lazarus mailing list http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus

Reply by email

Daniel Erles3-4-2014 18:21 UTC

to William Oliveira Ferreira: eu tenho um c?digo mam?o com a??car aqui que eu n?o consigo entender por que cargas…

Intenta con esta linea:

sql_Query.ParamByName('PCodigo').AsInteger := Codigo;

sin ":"

2014-03-03 15:58 GMT-04:00 William Oliveira Ferreira <

Show quoted text 54 lines

: Ol? lista, eu tenho um c?digo mam?o com a??car aqui que eu n?o consigo entender por que cargas d'?gua n?o encontra o par?metro da SQL. Algu?m quer chutar algo? var sql_Query : TSQLQuery; begin Result := False; sql_Query := TSQLQuery.Create(nil); sql_Query.DataBase := Self._Conexao; sql_Query.Transaction := TSQLTransaction(Self._Conexao.Transaction); sql_Query.SQL.Clear; if TSQLTransaction(Self._Conexao.Transaction).Active then TSQLTransaction(Self._Conexao.Transaction).EndTransaction; sql_Query.SQL.Add('DELETE FROM loc_clientes'); sql_Query.SQL.Add('WHERE cli_codigo = :PCodigo'); sql_Query.ParamByName(':PCodigo').AsInteger := Codigo; try sql_Query.ExecSQL; except raise Exception.Create('Erro ao excluir o cliente! [ID: ' + IntToStr(Codigo) + ']'); end; ____ A mensagem de erro: Parameter ":PCodigo" not found Vira e mexe esta mensagem me assombra... ...Digo isto porque em outros trechos n?o ocorre. -- ________________________________ William de Oliveira Ferreira -- _______________________________________________ Lazarus mailing list http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus

-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.lazarus.freepascal.org/pipermail/lazarus/attachments/20140304/30d77a3b/attachment.html>

Reply by email

William Oliveira Ferreira3-4-2014 18:38 UTC

to Daniel Erles

Hi Daniel,

That was exactly the problem. This was already solved.

Thanks for your help.

Daniel Erles wrote 71 lines

Intenta con esta linea: sql_Query.ParamByName('PCodigo').AsInteger := Codigo; sin ":" 2014-03-03 15:58 GMT-04:00 William Oliveira Ferreira < >: > Ol? lista, > > eu tenho um c?digo mam?o com a??car aqui que eu n?o consigo entender por > que cargas d'?gua n?o encontra o par?metro da SQL. Algu?m quer chutar algo? > > var > sql_Query : TSQLQuery; > begin > Result := False; > sql_Query := TSQLQuery.Create(nil); > sql_Query.DataBase := Self._Conexao; > sql_Query.Transaction := TSQLTransaction(Self._Conexao.Transaction); > > sql_Query.SQL.Clear; > if TSQLTransaction(Self._Conexao.Transaction).Active then > TSQLTransaction(Self._Conexao.Transaction).EndTransaction; > > sql_Query.SQL.Add('DELETE FROM loc_clientes'); > sql_Query.SQL.Add('WHERE cli_codigo = :PCodigo'); > > sql_Query.ParamByName(':PCodigo').AsInteger := Codigo; > > try > sql_Query.ExecSQL; > except > raise Exception.Create('Erro ao excluir o cliente! [ID: ' + > IntToStr(Codigo) + ']'); > end; > > ____ > > A mensagem de erro: > > Parameter ":PCodigo" not found > > > Vira e mexe esta mensagem me assombra... > > > ...Digo isto porque em outros trechos n?o ocorre. > > -- > ________________________________ > William de Oliveira Ferreira > > -- > _______________________________________________ > Lazarus mailing list > > http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus > > -- _______________________________________________ Lazarus mailing list http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus

Reply by email

Live chat for Free Pascal, Lazarus, Delphi and every Pascal programmer.

Não encontra o parametro?