Socorro, dados iguais!!!!!!!
Sei que estou sendo chato, mas preciso disso urgente, meu campo não pode ser chave, e não posso deixar cadastrar nomes iguais, preciso fazer uma rotina de preferência no vento onexit do dbedit, que acuse se existe um nome igual, e volte para o dbedit em mode editável, caso o nome nào exista o cadastro prossiga no próximo dbedit.
Norotico
Curtidas 0
Respostas
Luineumann
03/12/2003
vamos assumir que vc está incluindo dados na tabela tb1 e que o nome do campo nome é tb1nome
declare 1 query (vamos chamá-lo qr1) no fromulário e faça no onexit do campo nome
qr1.close;
qr1.sql.clear;
qr1.sql.databasename := tb1.databasename; // vai buscar no mesmo diretório
qr1.sql.add(´select nome ´);
qr1.sql.add(´from ´ + tb1.tablename);
qr1.sql.add(´where (nome =
+ quotedstr(tb1nome.value)
+ ´)´);
qr1.sql.open;
if qr1.recordcount > 0 // encontrou nome
then ´já existe´
qr1.close;
declare 1 query (vamos chamá-lo qr1) no fromulário e faça no onexit do campo nome
qr1.close;
qr1.sql.clear;
qr1.sql.databasename := tb1.databasename; // vai buscar no mesmo diretório
qr1.sql.add(´select nome ´);
qr1.sql.add(´from ´ + tb1.tablename);
qr1.sql.add(´where (nome =
+ quotedstr(tb1nome.value)
+ ´)´);
qr1.sql.open;
if qr1.recordcount > 0 // encontrou nome
then ´já existe´
qr1.close;
GOSTEI 0
Anorex
03/12/2003
faz uma pesquisa, através de uma query, no evento onexit.
GOSTEI 0
Norotico
03/12/2003
Desculpe minha ignorância, já estou usando uma query,
e tem uma linha que tem qr1 e tb1 , esse databasename o que seria,
poderia me explicar melhor
e tem uma linha que tem qr1 e tb1 , esse databasename o que seria,
poderia me explicar melhor
GOSTEI 0
Norotico
03/12/2003
luineumann ,
será que se não abusar você poderia me mandar um código fonte fazendo isso, estou precisando desesperadamente, uso query, paradox, gostaria de colocar no evento onexit do dbedit
desde já agradeço
será que se não abusar você poderia me mandar um código fonte fazendo isso, estou precisando desesperadamente, uso query, paradox, gostaria de colocar no evento onexit do dbedit
desde já agradeço
GOSTEI 0