SQL como faço?
Tenho esse comando SQL no meu código:
ConAcervoDevolver := ´select Tombo, Formato, Titulo from Acervo where ´;
ConAcervoDevolver := ConAcervoDevolver + ´CodigoLivro = ´´´+EdtConDevolucao.Text+´´´´;
Como é que eu faria esse SQL para funcionar no delphi legal...
Select * from acervo, movimento where
codigolivro=´001´ and Tombo = ´001´
ConAcervoDevolver := ´select Tombo, Formato, Titulo from Acervo where ´;
ConAcervoDevolver := ConAcervoDevolver + ´CodigoLivro = ´´´+EdtConDevolucao.Text+´´´´;
Como é que eu faria esse SQL para funcionar no delphi legal...
Select * from acervo, movimento where
codigolivro=´001´ and Tombo = ´001´
_celo
Curtidas 0
Respostas
Lucas Silva
31/12/2004
With Query1 Do
Begin
Close;
Sql.Clear;
Sql.Add(´Select * from acervo, movimento where ´);
Sql.Add(´codigolivro=´´001´´ and Tombo = ´´001´´ ´);
Open;
End;
Begin
Close;
Sql.Clear;
Sql.Add(´Select * from acervo, movimento where ´);
Sql.Add(´codigolivro=´´001´´ and Tombo = ´´001´´ ´);
Open;
End;
GOSTEI 0
Sremulador
31/12/2004
Tabela.sql.Add(´Select * from acervo, movimento´);
Tabela.sql.Add(´where codigolivro=: livro and Tombo =:tombo´);
tabela.parambyname (´LIVRO´).Text:= sua pesquisa
tabela.parambyname (TOMBO´).Text:= sua pesquisa
Tabela.open;
deve ser isto...
Tabela.sql.Add(´where codigolivro=: livro and Tombo =:tombo´);
tabela.parambyname (´LIVRO´).Text:= sua pesquisa
tabela.parambyname (TOMBO´).Text:= sua pesquisa
Tabela.open;
deve ser isto...
GOSTEI 0
Shaolin
31/12/2004
Podendo ainda ser desta forma, se você quiser utilizar as tuas variaveis
With Query1 Do
Begin
Close;
Sql.Clear;
Sql.Add(ConAcervoDevolver);
Open;
End;
With Query1 Do
Begin
Close;
Sql.Clear;
Sql.Add(ConAcervoDevolver);
Open;
End;
GOSTEI 0
Sremulador
31/12/2004
Obs: Se for com o banco de dados Firebird ou Interbase você pode criar uma view que fica ainda melhor...
GOSTEI 0
_celo
31/12/2004
Mais uma vez agradeço funcionaou legal.
Valew galera!!!
Valew galera!!!
GOSTEI 0