Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

marcolino

Exclui registro repitido

Por , em ASP Clássico

Recommended Posts

marcolino    0

marcolino
Postado

Galera eu to começando no asp e fiz esta pagina simples mas nao consigo fazer com que ele apague os Registros Repitidos, como faço ????

 

o arquivo é esse: banco de dados

 

porfavor alguem me ajude http://forum.imasters.com.br/public/style_emoticons/default/sick.gif

Compartilhar este post

Link para o post
Compartilhar em outros sites

meirelles    0

meirelles
Postado

não entendi, favor postar os codigosdo while not rs.eofinstrução sql que deletars.movenextloopvalew

Compartilhar este post

Link para o post
Compartilhar em outros sites

marcolino    0

marcolino
Postado

blzzz ai vai o codigo...

-------------------------------------------------

<html>

<head>

<title>Teste Banco de Dados</title>

</head>

<body>

 

<%

set conn=Server.CreateObject("ADODB.CONNECTION")

conn.Provider="Microsoft.Jet.OLEDB.4.0"

conn.Open "C:\Inetpub\wwwroot\videoaulas\banco.mdb"

set rs=Server.CreateObject("ADODB.RECORDSET")

 

dim NomeEmpresa, NomeContato

NomeEmpresa = " "

NomeContato = " "

 

If Request.form <> "" Then

NomeEmpresa = request.form("NomeEmpresa")

NomeContato = request.form("NomeContato")

end if

 

SQL = "INSERT INTO Clientes"

SQL = SQL & "(NomeEmpresa, NomeContato)"

SQL = SQL & "VALUES"

SQL = SQL & " ('" & NomeEmpresa & "', "

SQL = SQL & " '" & NomeContato & "') "

 

rs.OPEN SQL, conn

%>

 

 

<form method="post" action="teste_banco_dados.asp">

Digite o Nome da empresa:

<input type="text" name="NomeEmpresa">

<br>

Digite o Nome do contato:

<input type="text" name="NomeContato"><br><br>

<input type="submit" value="Cadastrar">

</form>

 

 

</body>

</html>

---------------------------------------------------------

alguem pode me ajudar ?

Compartilhar este post

Link para o post
Compartilhar em outros sites

meirelles    0

meirelles
Postado

ATA, ACHO Q AGORA ENTENDI, você QUER APAGAR O REGISTROS QUE ESTÃO DUPLICADOS NO BANCO.

 

CARA NA HORA DE FAZER O BANCO você COLOCA UM CAMPO (ID_CONTATO) E DIZ QUE NÃO PODE DUPLICAR. ASSIM você TEM SEMPRE SEGURANÇA QUANTO A ISSO.

 

PRA RESOLVER ESSE PROBLEMA NA HORA DE CADASTAR NO BANCO você FAZ ISSO

 

ABRE CONEXAO E:

ASP

[*]CONTATO = REQUEST.FORM("TXT_CONTATO")

 

[*]

 

[*]'SELECIONA TODOS CONTATOS DA MINHA TABELA

 

[*]SQL = "SELECT CONTATO FROM TABELA WHERE CONTATO LIKE '"& CONTATO &"%'"

 

[*]SET RS = CONEXAO.EXECUTE(SQL)

 

[*]

 

[*]' SENAO HOUVER NENHUM CONTATO IGUAL AO SOLICITADO INSERTA NO BANCO

 

[*]IF (RS.BOF AND RS.EOF) THEN 

 

[*]SQL = "INSERT..."

 

[*]RESPONSE.WRITE "CADASTRADO COM SUCESSO!"

 

[*]ELSE

 

[*]RESPONSE.REDIRECT "FORMULARIO_DE_CADASTRO.ASP"

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito