Erro Com Interbase

[a_xavier31]

Boa Noite a todos do Forum

Caros amigos comprei um livro "Faça um aplicativo - Sistema Comercial Integrado com Delphi 7". Estou seguindo todos os passos do livro mas esta chegando um momento que esta me dando um erro na hora de uma pesquisa o codigo da pesquisa é a seguinte:

procedure TFormPadrao1.btn_OkClick(Sender: TObject);

var

converte: string;

x: integer;

begin

strSql:= 'SELECT * FROM teste';

strSql:= strSql + 'WHERE id = ' + #39 + ValorCampo.Text + #39;

if tipoId = 0 Then

begin

converte:= '';

for x:=1 to length(ValorCampo.Text) do

begin

if (ValorCampo.Text[x] in ['0'..'9']) Then

begin

converte:=converte + copy(ValorCampo.Text, x, 1);

end;

end;

ValorCampo.Text:= converte;

end;

if ValorCampo.Text<>'' Then

begin

StatusBar1.Panels[2].Text:= 'Pesquisa por id do registro';

Executar:= sentencaSQL;

Executar:= exibepanels;

Executar:= navegacao;

end;

end;

ao rodar o sitema para visualizar com esta o sistema esta gerando este erro:

Project SCI.exe raised exception class EIBInterBaseError with message 'Dynamic SQL Error SQL error code = - 104 Token unknown - line 1, char 28 ='. Process Stoped. Use or run to continue.

Pro favor alguém me de uma ajuda para que eu continue a avançar no livro....

Obrigado

Alex

Aguardo Resposta.

[kuroi]

o problema não é aqui?

strSql:= 'SELECT * FROM teste';
strSql:= strSql + 'WHERE id = ' + #39 + ValorCampo.Text + #39;

desse jeito, a variavel strSql vai ficar assim:

SELECT * FROM testeWhere id = 'texto'

ou seja, faltou um espaco antes do Where. o certo seria assim:

SELECT * FROM teste Where id = 'texto'

ou seja faca assim:

strSql:= 'SELECT * FROM teste ';
strSql:= strSql + 'WHERE id = ' + #39 + ValorCampo.Text + #39;

[Guest Guest]

Meu caro kuroi Lhe sou muito Grato pois eu perdi meu final de semana interirinho para tentar achar o erro ...

Valeu mesmo....

Obrigado....

Alex