Fórum Procura com dois edit e uma tabela #314795
03/03/2006
0
[color=orange:eb62e67a22]Prezado Colega, [/color:eb62e67a22]
Estou tentando tirar essa duvida.
Tenho uma tabela chamada ganhador.bd
nome
end
grupo
pedra
end
data
no form existe um
2- dois botton - 1 - localizar 1- fechar
2- dois edit - 1 -grupo - 1 pedra
1 -dbgrid - mostrar a procura
1-query - ganhador
1 datasource - dsganhador
estou tentando colocar um form para localizar os clientes por grupo e pedra com sql.
fiz assim
[color=red:eb62e67a22][b:eb62e67a22]qrybusca.close;
qrybusca.sql.clear;
qrybusca.sql.add(´select grupo,pedra from ganhador´);
qrybusca.sql.add(´where ganhador.grupo=ganhador=pedra(´´+edit1.text1+´´),(´´edit2.text+´´)´);
qrybusca.open;[/b:eb62e67a22][/color:eb62e67a22]
estou correta ou tem algo de errado me ajudem por favor......
email. cladelphi@hotmail.com
[size=18:eb62e67a22][/size:eb62e67a22]
Estou tentando tirar essa duvida.
Tenho uma tabela chamada ganhador.bd
nome
end
grupo
pedra
end
data
no form existe um
2- dois botton - 1 - localizar 1- fechar
2- dois edit - 1 -grupo - 1 pedra
1 -dbgrid - mostrar a procura
1-query - ganhador
1 datasource - dsganhador
estou tentando colocar um form para localizar os clientes por grupo e pedra com sql.
fiz assim
[color=red:eb62e67a22][b:eb62e67a22]qrybusca.close;
qrybusca.sql.clear;
qrybusca.sql.add(´select grupo,pedra from ganhador´);
qrybusca.sql.add(´where ganhador.grupo=ganhador=pedra(´´+edit1.text1+´´),(´´edit2.text+´´)´);
qrybusca.open;[/b:eb62e67a22][/color:eb62e67a22]
estou correta ou tem algo de errado me ajudem por favor......
email. cladelphi@hotmail.com
[size=18:eb62e67a22][/size:eb62e67a22]
Maxwel Eduardo
Curtir tópico
+ 0
Responder
Posts
03/03/2006
Aroldo Zanela
Colega,
Use parâmetros para simplificar a escrita do código:
SQL:
Delphi:
Use parâmetros para simplificar a escrita do código:
SQL:
SELECT nome, end, grupo, pedra, end, data FROM ganhador WHERE (grupo = :pGRUPO and pedra = :pPEDRA)
Delphi:
qryBUSCA.Close; qryBUSCA.ParamByName(´pGRUPO´).Value := Edit1.Text; qryBUSCA.ParamByName(´pPEDRA´).Value := Edit2.Text; qryBUSCA.Open;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)