Fórum PARA ILANOCF [Consulta SQL Urgente) #168969

Caro cloega ilano, desculpe utilizar este meio para responde-lo, mas as rotinas normais estão com erro.

vamos lá :

Em primeiro lugar, aconcelho você a utilizar banco de dados, pois sua aplicação irá rodar em rede, isto vai lhe tirar problemas futuros.

O erro talvez esteja na falta de definição do tipo de parâmetro.
veja abaixo.

Eu faria o código desta meneira, que para mim, fica mais clara para entendimento e mais rápita para execução do aplicativo.

With DMDados.Relacao Do
Begin
Close;
SQL.Clear;
SQL.Add(´SELECT * FROM TBLivros INNER JOIN TBAutores ON TBLivros.CodigoDoLivro = TBAutores.CodigoDoLivro´);

case radioGroup1.itemindex of

0 : begin
SQL.Add(´WHERE TituloDaObra= :P1´);
ParamByName(´P1´).DataType := ftString;
ParamByName(´P1´).Value:=Edit1.Text+´¬´;
end;
1 : begin
SQL.Add(´WHERE ISBN= :P1´);
ParamByName(´P1´).DataType := ftString;
ParamByName(´P1´).Value:=Edit1.Text;
end;
2 : begin
SQL.Add(´WHERE CodigoDoAutor= :P1´);
ParamByName(´P1´).DataType := ftInteger;
ParamByName(´P1´).Value:=StrToIntDef(Edit2.Text, 0);
end;
3 : begin
SQL.Add(´WHERE CodigoDaEditora= :P1´);
ParamByName(´P1´).Value:=StrToIntDef(Edit2.Text, 0);
end;

4 : begin
SQL.Add(´WHERE CodigoDaColecao= :P1´);
ParamByName(´P1´).DataType := ftInteger;
ParamByName(´P1´).Value:=StrToIntDef(Edit2.Text, 0);
end;
end;
Open;
End;


espero ter ajudado.