Depende da forma que vc estiver trabalando eu uso de duas forma
// duas variaveis uma pra guardar o nome e outra para guarda o codigo (vai
depender que tipo de codigo vc usa) como eu nao uso o auto incremento
preciso guardar o codigo para nao perder durante a busca
1º - Var Var_Nome as string
Var_codigo as integer
Begin
//armazena o seu nome que vc quer fazer a busca
Var_Nome := edt_nome.field.asstring;
//
Var_codigo := edt_codigo.field.asinteger;
// cancelar a tabela pq como vc esta fazendo uma inclusao assim que
o
//dataset sair do registro para fazer a busca ele vai tentar gravar
automaticamente
tabela.cancel
// agora como vc tem as variaveis e seu registro ja foi cancelado
agora vc pode fazer a busca sem probelas
//busca
If not
tabela.locate('nome_do_campo_na_tabela_que_guarda_o_nome',Var_Nome,[] then
begin
// se não encontrou o nome que procura ele vai entrar aki
// como não encontrou entao vai voltar a fazer o lancamento que
estava fazendo no inicio da processo
tabela.append;
tabelanome_do_campo_do_codigo.asinteger :=var_codigo
tabelanome_do_campo_na_tabela_que_guarda_o_nome.asinteger :=
var_nome
end;
// nao precisa nada no else, caso ele ache alguma coisa os dados vai
ser mostrado na tela automaticamente, caso vc quer que apenas mostre uma
mens. entao vc deve implementar o else com a mensagem
end;
2: ja que vc tem os dados que quer procurar nas variaveis acima vc pode usar
um componente Tquery e fazer uma consulta sql separada que nao vai
interferir
qyery1.close
qyery1.sql.clear;
qyery1.add('select nome_do_campo from Tabela where Nome = ' ' ' +
var_nome + ' ' ' ');
qyery1.open;
if not qyery1.isempty then
begin
// caso achou entra aki poe sua mens. aki
end;
espero ter ajudado...
_____
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Eneias Sousa Carvalho
Enviada em: segunda-feira, 23 de maio de 2005 20:52
Para: delphi-br delphi-br; lista de discussão
Assunto: [delphi-br] Consulta durante cadastro.
Gostaria de saber como faço para que o sistema faça uma busca no banco de
dados quando eu estiver cadastrando, e caso o nome digitada já exista no
banco de dados, o mesmo me informe.
Eneias Carvalho.
---------------------------------
Yahoo! Mail: agora com 1GB de espaço grátis. Abra sua conta!
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Yahoo! Grupos, um serviço oferecido por:
PUBLICIDADE
<http://br.rd.yahoo.com/SIG=12a6ie3h5/M=351661.6491610.7459860.1588051/D=brc
lubs/S=2137111264:HM/EXP=1116942004/A=2744485/R=0/id=noscript/SIG=11d7nqiqp/
*http://sorteonline.com.br/default.asp?id=42>
_____
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<mailto:[EMAIL PROTECTED]>
* O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
Serviço do Yahoo! <http://br.yahoo.com/info/utos.html> .
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
