Fórum O que tem de errado nesses codigos?? (Delphi AdoQuery) #240607
30/06/2004
0
oiee.. o que tem de errado nesses codigos?? :?:
muito obrigada..
abraçoss
procedure TForm3.Button1Click(Sender: TObject);
begin
with ADOQuery1 do //consulta por codigo
Begin
Close;
SQL.Clear;
SQL.Add(´SELECT * from Desc´);
SQL.Add(´Where Codigo = ´+Edit2.text);
Open;
end;
end;
------------------------------------
begin
with ADOQuery1 do //consulta por inicial de descricao
Begin
Close;
SQL.Clear;
SQL.Add(´SELECT * from Desc´);
SQL.Add(´Where Descricao LIKE ´*´+Edit1.text+´´ ´);
Open;
end;
end;
muito obrigada..
abraçoss
procedure TForm3.Button1Click(Sender: TObject);
begin
with ADOQuery1 do //consulta por codigo
Begin
Close;
SQL.Clear;
SQL.Add(´SELECT * from Desc´);
SQL.Add(´Where Codigo = ´+Edit2.text);
Open;
end;
end;
------------------------------------
begin
with ADOQuery1 do //consulta por inicial de descricao
Begin
Close;
SQL.Clear;
SQL.Add(´SELECT * from Desc´);
SQL.Add(´Where Descricao LIKE ´*´+Edit1.text+´´ ´);
Open;
end;
end;
Fernanda Fonseca
Curtir tópico
+ 0
Responder
Posts
30/06/2004
Thomaz_prg
Com relação ao primeiro código, acho que a punica coisa de errado é a falta de um espaço. O código ficaria assim:
Também lembrando que este código funciona se o campo [b:8e7ff5f334]CODIGO[/b:8e7ff5f334] for um número (inteiro, float, autoinc).
Com relação à segunda parte, acho que é a falta das aspas.
Mas se eu entendi direito, no código acima vc quer que sejam retornados os campos que contenham em seu inicio, o conteudo de [b:8e7ff5f334]Edit1.text[/b:8e7ff5f334]. Se for isso o codigo poderia ser colocado da seguinte forma.
ou , para que retorne os registros em que o valor de [b:8e7ff5f334]Edit1.text[/b:8e7ff5f334] esteja em qualquer parte de [b:8e7ff5f334]Descricao[/b:8e7ff5f334] faça assim:
procedure TForm3.Button1Click(Sender: TObject);
begin
with ADOQuery1 do Begin
Close;
SQL.Clear;
SQL.Add(´SELECT * from Desc ´); //espaço aki no final.
SQL.Add(´Where Codigo = ´+Edit2.text);
Open;
end;
end;
Também lembrando que este código funciona se o campo [b:8e7ff5f334]CODIGO[/b:8e7ff5f334] for um número (inteiro, float, autoinc).
Com relação à segunda parte, acho que é a falta das aspas.
begin
with ADOQuery1 do Begin
Close;
SQL.Clear;
SQL.Add(´SELECT * from Desc ´);
SQL.Add(´Where Descricao LIKE "*´+Edit1.text+´"´);
Open;
end;
end;Mas se eu entendi direito, no código acima vc quer que sejam retornados os campos que contenham em seu inicio, o conteudo de [b:8e7ff5f334]Edit1.text[/b:8e7ff5f334]. Se for isso o codigo poderia ser colocado da seguinte forma.
begin
with ADOQuery1 do Begin
Close;
SQL.Clear;
SQL.Add(´SELECT * from Desc ´);
SQL.Add(´Where Descricao LIKE "´+Edit1.text+´¬"´);
Open;
end;
end;ou , para que retorne os registros em que o valor de [b:8e7ff5f334]Edit1.text[/b:8e7ff5f334] esteja em qualquer parte de [b:8e7ff5f334]Descricao[/b:8e7ff5f334] faça assim:
SQL.Add(´Where Descricao LIKE "¬´+Edit1.text+´¬"´);
Responder
Gostei + 0
30/06/2004
Mariocanel
no seu select onde foi o nome da tabela?
SQL.Add(´SELECT * from ? Desc´);
no lugar do ´?´ coloque o nome da tabela
SQL.Add(´SELECT * from ? Desc´);
no lugar do ´?´ coloque o nome da tabela
Responder
Gostei + 0
30/06/2004
Bon Jovi
[quote:1590c2e3ad=´Fernanda B. Fonseca´]oiee.. o que tem de errado nesses codigos?? :?: [/quote:1590c2e3ad]
Mas qual msg de erro é retornada??
Mas qual msg de erro é retornada??
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)