O QUE ESTA DE ERRADO??
Por favor.. analisem este codigo e me digam porque eu não recebo retorno de valor algum, sendo que o certo era pra receber:
Procedimento de um radiobutton.
Onde Cartao = Parametro do Query1
[b:0f09bb7394]
procedure Trelacaoalunos.numcartClick(Sender: TObject);
begin
Query1.Close;
Query1.SQL.Add(´´);
Query1.SQL.Add(´select * from Alunos where NumCartao = :Cartao order by Matricula´);
end;
***********************************************************
procedure Trelacaoalunos.EdtCampo3Change(Sender: TObject);
begin
Query1.Close;
Query1.Parameters[1].Value := #39 + EdtCampo3.text + 39;
Query1.Open;
Query1.ExecSQL;
end;
[/b:0f09bb7394]
Na verdade o que esta ocorrendo é o seguinte: Esse campo [b:0f09bb7394]EDTCAMPO[/b:0f09bb7394] é um campo de pesquisa que conforme eu digito o nº da matricula do aluno, vai aparecendo no DBgrid. Fiz isso com o Nome do aluno e deu certo. Acho que não esta dando certo porque o Campo [b:0f09bb7394]NumCartao[/b:0f09bb7394] é inteiro, mas nao sei se esse é mesmo o problema. Se alguem puder me ajudar ficarei grato!
Abraços!!
:D
Procedimento de um radiobutton.
Onde Cartao = Parametro do Query1
[b:0f09bb7394]
procedure Trelacaoalunos.numcartClick(Sender: TObject);
begin
Query1.Close;
Query1.SQL.Add(´´);
Query1.SQL.Add(´select * from Alunos where NumCartao = :Cartao order by Matricula´);
end;
***********************************************************
procedure Trelacaoalunos.EdtCampo3Change(Sender: TObject);
begin
Query1.Close;
Query1.Parameters[1].Value := #39 + EdtCampo3.text + 39;
Query1.Open;
Query1.ExecSQL;
end;
[/b:0f09bb7394]
Na verdade o que esta ocorrendo é o seguinte: Esse campo [b:0f09bb7394]EDTCAMPO[/b:0f09bb7394] é um campo de pesquisa que conforme eu digito o nº da matricula do aluno, vai aparecendo no DBgrid. Fiz isso com o Nome do aluno e deu certo. Acho que não esta dando certo porque o Campo [b:0f09bb7394]NumCartao[/b:0f09bb7394] é inteiro, mas nao sei se esse é mesmo o problema. Se alguem puder me ajudar ficarei grato!
Abraços!!
:D
Thales
Curtidas 0
Respostas
Hereibi
24/02/2003
o seu campo é inteiro, então não é preciso de aspas (código #39) ok....
GOSTEI 0
Thales
24/02/2003
Mas eu estou utilizando o #39.. como ficaria então??
GOSTEI 0
Rubensavelino
24/02/2003
Por favor.. analisem este codigo e me digam porque eu não recebo retorno de valor algum, sendo que o certo era pra receber:
Procedimento de um radiobutton.
Onde Cartao = Parametro do Query1
[b:a69c460e90]
procedure Trelacaoalunos.numcartClick(Sender: TObject);
begin
Query1.Close;
Query1.SQL.Add(´´);
Query1.SQL.Add(´select * from Alunos where NumCartao = :Cartao order by Matricula´);
nao seria :
Query1.SQL.Add(´select * from Alunos where NumCartao = Cartao order by Matricula´);
end;
***********************************************************
procedure Trelacaoalunos.EdtCampo3Change(Sender: TObject);
begin
Query1.Close;
Query1.Parameters[1].Value := #39 + EdtCampo3.text + 39;
Query1.Open;
Query1.ExecSQL;
end;
[/b:a69c460e90]
Na verdade o que esta ocorrendo é o seguinte: Esse campo [b:a69c460e90]EDTCAMPO[/b:a69c460e90] é um campo de pesquisa que conforme eu digito o nº da matricula do aluno, vai aparecendo no DBgrid. Fiz isso com o Nome do aluno e deu certo. Acho que não esta dando certo porque o Campo [b:a69c460e90]NumCartao[/b:a69c460e90] é inteiro, mas nao sei se esse é mesmo o problema. Se alguem puder me ajudar ficarei grato!
Abraços!!
:D
GOSTEI 0
Rubensavelino
24/02/2003
[quote:7f1a8bea6c=´THALES´]Por favor.. analisem este codigo e me digam porque eu não recebo retorno de valor algum, sendo que o certo era pra receber:
Procedimento de um radiobutton.
Onde Cartao = Parametro do Query1
[b:7f1a8bea6c]
procedure Trelacaoalunos.numcartClick(Sender: TObject);
begin
Query1.Close;
Query1.SQL.Add(´´);
Query1.SQL.Add(´select * from Alunos where NumCartao = :Cartao order by Matricula´);
[color=darkred:7f1a8bea6c]nao seria :
Query1.SQL.Add(´select * from Alunos where NumCartao = Cartao order by Matricula´); [/color:7f1a8bea6c]
end;
***********************************************************
procedure Trelacaoalunos.EdtCampo3Change(Sender: TObject);
begin
Query1.Close;
Query1.Parameters[1].Value := #39 + EdtCampo3.text + 39;
Query1.Open;
Query1.ExecSQL;
end;
[/b:7f1a8bea6c]
Na verdade o que esta ocorrendo é o seguinte: Esse campo [b:7f1a8bea6c]EDTCAMPO[/b:7f1a8bea6c] é um campo de pesquisa que conforme eu digito o nº da matricula do aluno, vai aparecendo no DBgrid. Fiz isso com o Nome do aluno e deu certo. Acho que não esta dando certo porque o Campo [b:7f1a8bea6c]NumCartao[/b:7f1a8bea6c] é inteiro, mas nao sei se esse é mesmo o problema. Se alguem puder me ajudar ficarei grato!
Abraços!!
:D
[/quote:7f1a8bea6c][color=red:7f1a8bea6c][/color:7f1a8bea6c]GOSTEI 0
Rubensavelino
24/02/2003
[color=green:5773e78ae7][/color:5773e78ae7] Query1.SQL.Add(´select * from Alunos where NumCartao = Cartao order by Matricula´);
[color=green:5773e78ae7][/color:5773e78ae7][color=green:5773e78ae7][/color:5773e78ae7]
[color=green:5773e78ae7][/color:5773e78ae7][color=green:5773e78ae7][/color:5773e78ae7]
GOSTEI 0
Dor_poa
24/02/2003
OI.. Só vou dar uma dica de nada...
nao fica dando sempre um ADD na SQL. Vc. tem que limpar antes de adicionar instrução, senão ela ficará cheia de intrução e daquia pouco ela não ira mostrar o q tu quer porque existe um monte de intrução nela... (deu para entender)..
para limpar Query1.SQL.clear;
nao fica dando sempre um ADD na SQL. Vc. tem que limpar antes de adicionar instrução, senão ela ficará cheia de intrução e daquia pouco ela não ira mostrar o q tu quer porque existe um monte de intrução nela... (deu para entender)..
para limpar Query1.SQL.clear;
GOSTEI 0