[Resolvido] Verificando se ja existe os dados na tabela

[Kalmfs 0]

Boa Tarde,

 

Tô tentando fazer algo semelhante a esse problema do colega, só que desejaria fazer o SELECT e o INSERT, assim como as mensagens de "Sucesso" e "Dados já cadastrados", na mesma página, sem fazer o redirect. Não consegui aplicar o exemplo do xanburzun.

 

<%
Dim nome, email, site
Dim sConnString, connection, sSQL

nome = Request.Form("nome2")
email = Request.Form("email2")
site =Request.Form("site")

sSQL = "INSERT into newsletter (nome, email, site) values ('" & _
nome & "', '" & email & "', '" & site & "')" 

sConnString="PROVIDER=Microsoft.Jet.OLEDB.4.0;" & _ 
"Data Source=c:\inetpub\wwwroot\base.mdb" 

Set connection = Server.CreateObject("ADODB.Connection")

connection.Open(sConnString)

connection.execute(sSQL)

response.write "Seus dados foram cadastrados com sucesso."

connection.Close
Set connection = Nothing
%>

Ai no code só tem o INSERT que tá beleza. Como eu aplicaria o SELECT pra condicionar o o INSERT e mostrar as mensagem pra cada caso?

 

 

 

 

Tópico referência

[Ted k' 126]

veja assim:

 

<%
Dim nome, email, site
Dim sConnString, conn, sSQL

Set conn = Server.CreateObject("ADODB.Connection")
sConnString="PROVIDER=Microsoft.Jet.OLEDB.4.0;" & _ 
"Data Source=c:\inetpub\wwwroot\base.mdb" 
conn.Open(sConnString)

nome = Request.Form("nome2")
email = Request.Form("email2")
site =Request.Form("site")

set rs = conn.execute("select email from newsletter where email = '"&email&"'")
	if not rs.eof then
		sSQL = "INSERT into newsletter (nome, email, site) values ('" & _
		nome & "', '" & email & "', '" & site & "')" 
		conn.execute(sSQL)
		response.write "Seus dados foram cadastrados com sucesso."
	else
		response.write "esse email ja existe!"
	end if
set rs = nothing

conn.Close
Set conn = Nothing
%>

[Kalmfs 0]

Fala Mestre

 

Coloquei o

 

if rs.eof then

pra ele poder funcionar pq sendo o fim do recordset, significa q o email ainda não existe e então será cadastrado.

 

testei com o not e ele sempre cadastra, msm q já exista.

 

<%
Dim nome, email, site
Dim sConnString, conn, sSQL

Set conn = Server.CreateObject("ADODB.Connection")
sConnString="PROVIDER=Microsoft.Jet.OLEDB.4.0;" & _ 
"Data Source=c:\inetpub\wwwroot\banco.mdb" 
conn.Open(sConnString)

nome = Request.Form("nome2")
email = Request.Form("email2")
site = Request.Form("site")

set rs = conn.execute("SELECT email from newsletter WHERE email = '"&email&"'")
        if rs.eof then
                sSQL = "INSERT into newsletter (nome, email, site) values ('" & _
                nome & "', '" & email & "', '" & site & "')" 
                conn.execute(sSQL)
                response.write "Seus dados foram cadastrados com sucesso."
        else
                response.write "Esse email já existe!"
        end if
set rs = nothing

conn.Close
Set conn = Nothing
%>

valeu a força brother. questão resolvida.

 

abs

[xanburzum 169]

beleza + 1 resolvido, parabens...