Busca valor integer
Ola, pessoal!
Estou tentando fazer um comando para buscar um dado integer de uma tabela...mas nao consigo...ja tentei usar a var como string e converter..mas nao funciona....alguem pode me dar um Help ??
var
seek: integer;
begin
seek:= ´select * from tabela where campo like ´´+edit1.text+´´´ ;
q.active:=false;
q.sql.clear;
q.sql.add (seek);
q.execsql;
q.active:=true;
Extremamente Grata!
Estou tentando fazer um comando para buscar um dado integer de uma tabela...mas nao consigo...ja tentei usar a var como string e converter..mas nao funciona....alguem pode me dar um Help ??
var
seek: integer;
begin
seek:= ´select * from tabela where campo like ´´+edit1.text+´´´ ;
q.active:=false;
q.sql.clear;
q.sql.add (seek);
q.execsql;
q.active:=true;
Extremamente Grata!
Karolina
Curtidas 0
Respostas
Marcelo Saviski
23/09/2003
var
seek: integer; [color=red:ce8a23e2b4]erado[/color:ce8a23e2b4],[color=orange:ce8a23e2b4] use [b:ce8a23e2b4]string [/b:ce8a23e2b4]para armezenar textos[/color:ce8a23e2b4]
begin
seek:= ´select * from tabela where campo like ´´+edit1.text+´´´ ;
[color=green:ce8a23e2b4]integer´s são para armezenar nº inteiros[/color:ce8a23e2b4]
q.active:=false; [color=green:ce8a23e2b4]use q.Close; que fica mais tchan[/color:ce8a23e2b4]
q.sql.clear;
q.sql.add (seek); [color=green:ce8a23e2b4]certo[/color:ce8a23e2b4], [color=green:ce8a23e2b4]mas só q.SQL.text := seek; funciona[/color:ce8a23e2b4]
q.execsql;[color=green:ce8a23e2b4] troque por q.open[/color:ce8a23e2b4]
q.active:=true;[color=green:ce8a23e2b4] não presisa se usar o Open acima[/color:ce8a23e2b4]
seek: integer; [color=red:ce8a23e2b4]erado[/color:ce8a23e2b4],[color=orange:ce8a23e2b4] use [b:ce8a23e2b4]string [/b:ce8a23e2b4]para armezenar textos[/color:ce8a23e2b4]
begin
seek:= ´select * from tabela where campo like ´´+edit1.text+´´´ ;
[color=green:ce8a23e2b4]integer´s são para armezenar nº inteiros[/color:ce8a23e2b4]
q.active:=false; [color=green:ce8a23e2b4]use q.Close; que fica mais tchan[/color:ce8a23e2b4]
q.sql.clear;
q.sql.add (seek); [color=green:ce8a23e2b4]certo[/color:ce8a23e2b4], [color=green:ce8a23e2b4]mas só q.SQL.text := seek; funciona[/color:ce8a23e2b4]
q.execsql;[color=green:ce8a23e2b4] troque por q.open[/color:ce8a23e2b4]
q.active:=true;[color=green:ce8a23e2b4] não presisa se usar o Open acima[/color:ce8a23e2b4]
GOSTEI 0
Turbo Drive
23/09/2003
Aproveitando a explicação do nosso colega, tb é possível fazer assim:
q.Close;
q.sql.clear;
q.sql.add(´select * from tabela where campo like ´´+edit1.text+´´ ´);
q.Open;
Espero ter ajudado.
q.Close;
q.sql.clear;
q.sql.add(´select * from tabela where campo like ´´+edit1.text+´´ ´);
q.Open;
Espero ter ajudado.
GOSTEI 0