Ajuda no SQL

Delphi

12/11/2007

Olá,

Estou iniciando em Delphi e sql. Preciso de uma ajuda.
Em um form estou solicitando que o usuário informe a sigla do Estado e gostaria de pesquisar na tabela estados se a sigla informada existe e mostrar o nome do estado. EStou fazendo como está abaixo, mas esta com erro.
Alguém pode me ajudar?

QRY_estados.close;
QRY_estados.SQL.clear;
QRy_estados.SQL.add(´select nome from tabela_estados where
abreviatura = DBEdit6.text´);


Rsa_tche

Rsa_tche

Curtidas 0

Respostas

Comodelphi

Comodelphi

12/11/2007

tenta assim:

QRY_estados.close;
QRY_estados.SQL.clear;
QRy_estados.SQL.add(´select nome from tabela_estados where
abreviatura = ´+ quotedstr(DBEdit6.text));


GOSTEI 0
Rsa_tche

Rsa_tche

12/11/2007

Tentei como você disse, mas aparece estes erros:

: Unterminated string
: ´)´ expected but identifier ´abreviatura´ found
: ´:=´ expected but ´=´ found
: Could not compile used unit ´exemplo_u.pas´

QRY_estados.close;
QRY_estados.SQL.clear;
QRy_estados.SQL.add(´select nome from tabela_estados where
abreviatura = DBEdit6.text´);


GOSTEI 0
Jeimyson

Jeimyson

12/11/2007

   With Qry_Estados do
      begin
      Sql.Clear;
      Sql.Add(´SELECT NOME FROM TABELA_ESTADOS   ´);
      Sql.Add(´ WHERE AVREVIATURA = :ABREVIATURA ´);
      ParamByName(´ABREVIATURA´).AsString := DBEdit6.text;
      Open;
      end;


8)


GOSTEI 0
Comodelphi

Comodelphi

12/11/2007

QRY_estados.close;
QRY_estados.SQL.clear;
QRy_estados.SQL.add(´select nome from tabela_estados where abreviatura = ´ + quotedstr(DBEdit6.text));

observe a quebra de linha: ou vc mantem a instruação na mesma linha ou quebra o texto na linha debaixo:

QRY_estados.close;
QRY_estados.SQL.clear;
QRy_estados.SQL.add(´select nome from tabela_estados ´ +
´where abreviatura = ´ + quotedstr(DBEdit6.text));


GOSTEI 0
Rsa_tche

Rsa_tche

12/11/2007

Funcionou, valeu.


GOSTEI 0
POSTAR