Fórum Erro no formulário com MySQL #585775
12/09/2017
0
Eu estou com um problema que não estou conseguindo resolver. Criei um formula rio de pesquisa genérica para minha aplicação, só que quando eu vou executar esse formulário, dá uma mensagem de erro no MySQL e com isso o form não e aberto.
Detalhe é uma aplicação simples sem o uso do DataSnap, eu estou precisando muito da ajuda de vcs....
O erro está nessa parte do Código:
procedure TfrmPesquisar.ConfigurarForm(Tabela,CampoID,CampoNome: string);
var
cds: TClientDataSet;
begin
cds:= dspesquisar.DataSet as TClientDataSet;
cds.Close();
cds.CommandText:= Format('select %s,%s from %s where %s like :id', [CampoID,CampoNome,Tabela,CampoNome]);
cds.Open();end;Um detalhe: quando eu tiro o parâmetro, o form abre com todos os registros só que eu não quero que ele abra assim, mas quero que ele venha sem nenhum registro
Quero que só exiba os registros quando o mesmo for pesquisado.
Obrigado pela ajuda.
Essa dúvida foi gerada a partir de um comentário na aula Formulário Genérico de Pesquisas - Curso de Multicamadas com Delphi e DataSnap - 67
Francisco Ribeiro
Curtir tópico
+ 0Post mais votado
12/09/2017
cds.Params.ParamByName('id').Value := 0;https://twitter.com/danieldaterral
Daniel Araújo
Gostei + 1
Mais Posts
12/09/2017
Francisco Ribeiro
Está abaixo a mensagem do erro.
[FireDAC][Phys][MSSQL]-335. Parameter data type is unknown.
Hint: specify TADParam.DataType or assign TADParam value before Prepare/Execute call.
Gostei + 0
12/09/2017
Francisco Ribeiro
o código ficou assim:
procedure TfrmPesquisar.ConfigurarForm(Tabela,CampoID,CampoNome: string);
var
cds: TClientDataSet;
begin
cds:= dspesquisar.DataSet as TClientDataSet;
cds.Close();
cds.CommandText:= Format('select %s,%s from %s where %s like :id', [CampoID,CampoNome,Tabela,CampoNome]);
cds.params.parambyname('id').asinteger:= 0;
cds.Open();
end;
Gostei + 0
12/09/2017
Francisco Ribeiro
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)