GRAVAR E ALTERAR

MARCELOFAZAN 19/12/2010 16:41:25
#359915
Pessoal , o codigo abaixo eu tenho no botao incluir do formulario, como posso fazer

Se Não encontrar
Grava um Novo
else
Altera o Registro selecionado
endif

Obrigado
Marcelo


<%
sql = [Ô]select * from cliente[Ô]
Set rsgrava = server.createobject([Ô]ADODB.recordset[Ô])
rsgrava.open sql, Conn, 2, 3

rsgrava.addnew
rsgrava([Ô]clie_desc[Ô]) = Request([Ô]txtclie_desc[Ô])
rsgrava([Ô]clie_cep[Ô]) = Request([Ô]txtclie_cep[Ô])
rsgrava([Ô]clie_pfpj[Ô]) = request([Ô]clie_pfpj[Ô])
rsgrava.update

response.redirect [Ô]inclui_clientes.asp[Ô]
%>
NIKYTS 19/12/2010 19:35:27
#359925
não dá para fazer uma pesquisa pela chave primária dos registos para verificar se já exite, assim iria add caso não encontra-se ou faria uptdate?!
MARCELOFAZAN 19/12/2010 21:22:34
#359933
Assim só que só grava nao entro no UPDATE o que faria aqui if not rsgrava.eof then

sql = [Ô]select * from Help[Ô]
Set rsgrava = server.createobject([Ô]ADODB.recordset[Ô])
rsgrava.open sql, Conn, 2, 3

if not rsgrava.eof then

rsgrava.addnew
rsgrava([Ô]Operacao[Ô]) = Request([Ô]txtOperacao[Ô])
rsgrava([Ô]Assunto[Ô]) = Request([Ô]txtAssunto[Ô])
rsgrava([Ô]Explicacao[Ô]) = request([Ô]txtExplicacao[Ô])
rsgrava.update
response.redirect [Ô]inclui_help.asp[Ô]

else

sql = [Ô]UPDATE Help set Operacao = [Ô] & operacao & [Ô], Assunto = [ô][Ô] & assunto & [Ô][ô], Explicacao = [ô][Ô] & explicacao & [Ô][ô] Where ID= [Ô] & id & [Ô][Ô]
end if
%>
Tópico encerrado , respostas não são mais permitidas
Voltar