Consultar no banco, se exite substituir se não incluir!

[renatomil5 0]

Boa noite,

 

Tenho um aplicação... onde estou fazendo um cadastro de atendimento,

é simples.... eu é q nao to conseguindo..

 

enfim...

 

tenho um arquivo q forma o html... faço um select dos nomes ja cadastrados...

add data... situaçao... blz...

e salvo o id do cliente em outro banco....

 

na hora de salvar, queria fazer uma verificação, onde se ja tiver nesse novo banco o cadastro....

fica a criterio do usuario atualizar o cadastro ou nao!

 

msg na tela: Cadastro ja realizado dia tal, deseja atualizar os dados?

 

oq fiz... enrolaçao... rs.

mas pequei o cod que vem do select.... mandei selecionar no banco... eof .. c vazio... include....

se nao.... iniciei o html.... window... (deseja continuar) { atualizado com sucesso, senao.... volta pra tela de cadastro!

 

parece ser mt simples... mas ja to a 2 semanas procurando isso... e nada...

desculpa ser usuario novo e ja postando .... mas procurei antes...

e desculpa tb.. pela ignorancia!

 

obrigado!

 

 

[Gilberto Jr 26]

Bom dia.

 

Da seguinte forma eu acho que resolve

set rs = conn.execute("select count(*) as total from atendimento where nome='teste'")

if cint(rs("total"))>0 then

set update = conn.execute("update atendimento set nome='teste1' where nome='teste'")

else

set insert = conn.execute("insert into atendimento (nome)values('teste1')")

end if

Att;

[renatomil5 0]

opa.. bom dia...

e muito obrigado pela ajuda...

 

mas entao...

 

eu preciso que o usuario responda se quer realmente atualizar ou nao...

 

isso ai.. eu consegui fazer...

 

mas queria que aparecesse uma msg pro usuario pra ter certeza que quer continuar e atualizar o dado!

 

ententeu?!

 

eu tinha feito mais ou menos assim:

<%

set sql2 = conexao.execute("SELECT * FROM atendimentoJ WHERE Cod = "&cod&"")

if sql2.eof then

conexao.execute("INSERT INTO atendimentoJ(Cod, Data, Situacao) VALUES ('"&cod&"', '"&data&"', '"&provisorio&"')")

response.Redirect("../sucesso.asp")

else

ai tinha colocado o html aqui.. tipo.. js

if (window.confirm("DESEJA ATUALIZAR O CADASTRO?")){

<%UPDATE ... BLABLABLA.. %>

}

 

end if

 

%>

 

 

mais ou menos... isso...

 

queria q antes de subscrever todos os dados la... o usuario respondesse ok... ou cancela

 

mesmo assim obrigado!

[Gilberto Jr 26]

Então, você então faz da seguinte forma

 

 

if total>0 then
 
response.write("<script>confim('mensagem')</script>")
 
else
 
insere
 
end if

 

Referente a parte de javacript eu não sei como escreve pois eu não uso muito esse método.

 

https://www.facebook.com/webprogramation

 

Att;

[xanburzum 169]

olha este link, só adaptar para o que quer

[renatomil5 0]

fala pessoal... desculpa a demora...

como tive urgencia de fazer la no cliente...

 

eu coloquei dois arquivos... um q inclui e outro q atualiza....

 

vou dar uma lida com calma mais pra frente...

 

muito obrigado!

[Gilberto Jr 26]

Se já conseguiu resolver beleza. Coloque o tópico como resolvido.

 

https://www.facebook.com/webprogramation

 

Att;

[xanburzum 169]

basicamente seria assim:

 

Option explicit
   'declaro as var
   dim varlogin, varemail, varsenha, conexao, conDBQ, constring, rsselect, SQLselect,rsupdate, SQLupdate, rsinsert, SQLinsert
   'recupero todos os dados
   varlogin=trim(request.form("login"))
   varsenha=trim(request.form("senha"))
   varemail=trim(request.form("email"))
   'crio a conexao
   %>
   <!--#include file="conn/conexao1.asp"-->
   <% 'abrir a conexao
   call abreconexao
   'crio o rsselect para verificar se os dados jah estaun cadastrados
   set rsselect=server.createobject("ADODB.Recordset")
   'crio o SQLselect
   SQLselect="SELECT login FROM login WHERE login='"&varlogin&"'"
   rsselect.open SQLselect,conexao,1,3
   if not rsselect.eof then
   		set rsupdate=Server.createobject("ADODB.Recordset")
	'crio a SQL
	SQLupdate="UPDATE login SET login='"&varlogin&"',senha='"&varsenha&"',email='"&varemail&"' WHERE codigo="&varcodigo&""
	rsupdate.open SQL,conexao,1,3
		set rsselect=nothing
                set rsupdatet=nothing
   else	
   		'crio o rsinsert para inseiri os dados no bd
   		 set rsinsert=server.createobject("ADODB.Recordset")
		'crio o SQLinsert pra incluir no bd
		SQLinsert="INSERT INTO login(login,senha,email) values('"&varlogin&"','"&varsenha&"','"&varemail&"')"
		rsinsert.open SQLinsert,conexao,1,3
		response.redirect("administracao_treina.asp?msg=1")
		set rsinsert=nothing
	end if 
	call fechaconexao %>

[Douglas Evaristo Santos 2]

Faria exatamente assim tb Gilberto... :D

Bom dia.

 

Da seguinte forma eu acho que resolve

set rs = conn.execute("select count(*) as total from atendimento where nome='teste'")if cint(rs("total"))>0 thenset update = conn.execute("update atendimento set nome='teste1' where nome='teste'")elseset insert = conn.execute("insert into atendimento (nome)values('teste1')")end if

Att;