Caro Éric,
ÉDD> Bom, pelo q eu vi sua gravação está resumida a isso aki.
ÉDD> RS.AddNew
ÉDD> RS("jobnome")=mrJobnome
ÉDD> RS("joblogin")=mrJoblogin
ÉDD> RS("jobsenha")=mrJobsenha
ÉDD> RS("jobobs")=mrJobobs
ÉDD> RS.Update
ÉDD> Por infelizcidade o SQL não aceita este tipo de atualização. VC deve fazer
ÉDD> isso tudo via comando SQL; ou seja algo do tipo.
ÉDD> Conn.Execute “INSERT INTO jobadm (jobnome, joblogin, jobsenha, jobobs)
ÉDD> VALUES (‘” &mrJobnome & ”’,’” & mrJoblogin & “’,’” & mrJobsenha & “’,’” &
ÉDD> mrJobobs & “’)”
ÉDD> Testa assim e me dá uma toque se precisar de mais.
A partir de qual versao??? Ja que incluo normalmente no SQL Server 7.0
Enfim, vou tentar da outra forma, o chato que preciso incluir um
regsitro com mais de 70 campos... :(
[]'s
Renato
ÉDD> Éric Daniel David
ÉDD> Coordenador de Programação - Digiexpress Assessoria em Informática
ÉDD> Tel:. 6442-7367
ÉDD> _____
ÉDD> De: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]] Em nome de Renato Lira
ÉDD> Enviada em: quinta-feira, 28 de outubro de 2004 12:39
ÉDD> Para: [EMAIL PROTECTED]
ÉDD> Assunto: [Asp10.net] Re: RES: SQL Server - me ajudem...
ÉDD> Caro Éric,
ÉDD>> Como vc está gravando os registros?
ÉDD>> Qual é a sua rotina dita????
ÉDD> <%@ LANGUAGE=VBScript%>
ÉDD> <%
ÉDD> Set Conn = Server.CreateObject("ADODB.Connection")
ÉDD> Set RS = Server.CreateObject("ADODB.Recordset")
ÉDD> Conn.Open
ÉDD> "DSN=x-x-x-x-x-x-x;UID=x-x-x-x-x-x-x;PWD=x-x-x-x-x-x-x;DATABASE=x-x-x-x-x-x-
ÉDD> x"
ÉDD> on error resume next
ÉDD> if request.form("fJobnome") = "" then
ÉDD> mem=server.URLEncode("É obrigatório o preenchiemnto
ÉDD> do campo NOME!")
ÉDD> response.redirect "erro.asp?mensagem="&mem
ÉDD> else
ÉDD> mrJobnome = request.form("fJobnome")
ÉDD> end if
ÉDD> '----------------------------------------------------
ÉDD> if request.form("fJoblogin") = "" then
ÉDD> mem=server.URLEncode("É obrigatório o preenchiemnto
ÉDD> do campo LOGIN!")
ÉDD> response.redirect "erro.asp?mensagem="&mem
ÉDD> else
ÉDD> mrJoblogin = request.form("fJoblogin")
ÉDD> end if
ÉDD> '----------------------------------------------------
ÉDD> if request.form("fJobsenha") = "" then
ÉDD> mem=server.URLEncode("É obrigatório o preenchiemnto
ÉDD> do campo SENHA!")
ÉDD> response.redirect "erro.asp?mensagem="&mem
ÉDD> else
ÉDD> mrJobsenha = request.form("fJobsenha")
ÉDD> end if
ÉDD> '----------------------------------------------------
ÉDD> if request.form("fJobobs") = "" then
ÉDD> mrJobobs = NULL
ÉDD> else
ÉDD> mrJobobs = request.form("fJobobs")
ÉDD> end if
ÉDD> '----------------------------------------------------
ÉDD> '=====================================================
ÉDD> RS.Open "jobadm",Conn,3,3
ÉDD> RS.AddNew
ÉDD> RS("jobnome")=mrJobnome
ÉDD> RS("joblogin")=mrJoblogin
ÉDD> RS("jobsenha")=mrJobsenha
ÉDD> RS("jobobs")=mrJobobs
ÉDD> RS.Update
ÉDD> RS.Close
ÉDD> Conn.Close
ÉDD> '=====================================================
If err.number>>0 then
ÉDD> response.write "Ocorreram erros de VBS, copie a tela e envie para"
ÉDD> response.write "Número=" & err.number & "<P>"
ÉDD> response.write "Descrição=" & err.description & "<P>"
ÉDD> response.write "Help Context=" & err.helpcontext & "<P>"
ÉDD> response.write "Help Path=" & err.helppath & "<P>"
ÉDD> response.write "Native Error=" & err.nativeerror & "<P>"
ÉDD> response.write "Source=" & err.source & "<P>"
ÉDD> response.write "SQLState=" & err.sqlstate & "<P>"
ÉDD> else
ÉDD> 'response.write "No _javascript_" & "<P>"
ÉDD> end if
ÉDD> IF conn.errors.count> 0 then
ÉDD> response.write "Ocorreram erros no BD"
ÉDD> for counter= 0 to conn.errors.count
ÉDD> response.write "Número " & conn.errors(counter).number & "<P>"
ÉDD> response.write "Descrição -> " & conn.errors(counter).description &
ÉDD> "<P>"
ÉDD> next
ÉDD> else
ÉDD> mem=server.URLEncode("Registro incluido ou alterado com
ÉDD> sucesso !")
ÉDD> response.redirect "jobadm_view.asp?mensagem="&mem
ÉDD> end if
%>>
ÉDD>> Éric Daniel David
ÉDD>> Coordenador de Programação - Digiexpress Assessoria em Informática
ÉDD>> Tel:. 6442-7367
ÉDD>> _____
ÉDD>> De: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]] Em nome de Renato
ÉDD> Lira
ÉDD>> Enviada em: quinta-feira, 28 de outubro de 2004 12:28
ÉDD>> Para: [EMAIL PROTECTED]
ÉDD>> Assunto: [Asp10.net] SQL Server - me ajudem...
ÉDD>> Amigos,
ÉDD>> Tenho foco no desenvolvimento em ASP, e ja usei muitas formatos ds
ÉDD>> SGDB, mas decididamente nao tenho grandes conhecimentos neste
ÉDD>> segmento... bom, tiver que migrar uma base em Access para SQL Server,
ÉDD>> a migracao foi tranquila com o DTS, os dados estao no servidor e
ÉDD>> consigo acessar normalmente via programacao ASP, abrindo das mais
ÉDD>> diversas formas..ou seja, esta funcionando... para leitura.
ÉDD>> Acontece, que nao consigo GRAVAR no Sql Server, pensei que poderia ser
ÉDD>> algum erro de codigo, mas acho que nao seja o caso, ja que a rotina
ÉDD>> funciona para o ACCESS e para o SQL Server aqui na rede local... ou
ÉDD>> seja, deve ser algum "detalhe" no SQL Server do servidor
ÉDD> (www.allnet.com.br)
ÉDD>> Curiosamente, tb consigo "deletar" registros.
ÉDD>> Alguma dica, sugestao ?
ÉDD>> []'s
ÉDD>> Renato
ÉDD>> :: http://www.asp10.net
ÉDD>> ==================================================
ÉDD>> :: Solugues simples para problemas complexos
ÉDD>> :: Sistemas de Links, Notmcias, Faq, Loja,
ÉDD>> :: Estatmsticas, Artigos, Mural e muito mais.
ÉDD>> ==================================================
ÉDD>> :: Para entrar, sair ou ver o histsrico da lista
ÉDD>> :: Asp10.net visite http://www.asp10.net
ÉDD>> ==================================================
ÉDD>> <http://www.grupos.com.br/processos/conta_page.phtml?1098980929>
ÉDD>> <http://banner.grupos.com.br/?157:62:1098980929:1>
ÉDD>> <http://campanhas.grupos.com.br/click.phtml?id=1098980929
ÉDD> <http://campanhas.grupos.com.br/click.phtml?id=1098980929&campanha=abril.inf
>> &campanha=abril.inf
ÉDD>>
ÉDD> o.728x90&url="" href="http://assineabril.com/index.html?destino=telainfo*campanha=5HA">http://assineabril.com/index.html?destino=telainfo*campanha=5HA
ÉDD>> 4*origem=shoppinggrupos>
ÉDD>> <http://view.campanhas.grupos.com.br/?abril.info.728x90|1098980929>
ÉDD>> <http://www.grupos.com.br>
ÉDD>> <mailto:[EMAIL PROTECTED]> cancelar assinatura
ÉDD>> <http://www.grupos.com.br/grupos/mrasp> - pagina do grupo
ÉDD>> :: http://www.asp10.net
ÉDD>> ==================================================
ÉDD>> :: Soluções simples para problemas complexos
ÉDD>> :: Sistemas de Links, Notícias, Faq, Loja,
ÉDD>> :: Estatísticas, Artigos, Mural e muito mais.
ÉDD>> ==================================================
ÉDD>> :: Para entrar, sair ou ver o histórico da lista
ÉDD>> :: Asp10.net visite http://www.asp10.net
ÉDD>> ==================================================
ÉDD>> -----------------------------------------
ÉDD>> Grupos.com.br - A vida acontece em grupos
ÉDD> :: http://www.asp10.net
ÉDD> ==================================================
ÉDD> :: Soluções simples para problemas complexos
ÉDD> :: Sistemas de Links, Notícias, Faq, Loja,
ÉDD> :: Estatísticas, Artigos, Mural e muito mais.
ÉDD> ==================================================
ÉDD> :: Para entrar, sair ou ver o histórico da lista
ÉDD> :: Asp10.net visite http://www.asp10.net
ÉDD> ==================================================
ÉDD> <http://www.grupos.com.br/processos/conta_page.phtml?1098981590>
ÉDD> <http://banner.grupos.com.br/?157:62:1098981590:1>
ÉDD> <http://campanhas.grupos.com.br/click.phtml?id=1098981590&campanha=abril.sup
ÉDD> er.728x90&url="" href="http://assineabril.com/index.html?destino=super*campanha=5HA4*">http://assineabril.com/index.html?destino=super*campanha=5HA4*
ÉDD> origem=shoppinggrupos>
ÉDD> <http://view.campanhas.grupos.com.br/?abril.super.728x90|1098981590>
ÉDD> <http://www.grupos.com.br>
ÉDD> <mailto:[EMAIL PROTECTED]> cancelar assinatura
ÉDD> <http://www.grupos.com.br/grupos/mrasp> - página do grupo
ÉDD> :: http://www.asp10.net
ÉDD> ==================================================
ÉDD> :: Soluções simples para problemas complexos
ÉDD> :: Sistemas de Links, Notícias, Faq, Loja,
ÉDD> :: Estatísticas, Artigos, Mural e muito mais.
ÉDD> ==================================================
ÉDD> :: Para entrar, sair ou ver o histórico da lista
ÉDD> :: Asp10.net visite http://www.asp10.net
ÉDD> ==================================================
ÉDD> -----------------------------------------
ÉDD> Grupos.com.br - A vida acontece em grupos
[]'s
....................................................
.. Renato Lira
.. http://www.asp10.net
.. Seu site ainda não tem, nenhum ?
....................................................
.. Texto nao acentuado para manter compatibilidade
.. com todas as plataformas e clientes de e-mail.
....................................................
:: http://www.asp10.net
==================================================
:: Solu��es simples para problemas complexos
:: Sistemas de Links, Not�cias, Faq, Loja,
:: Estat�sticas, Artigos, Mural e muito mais.
==================================================
:: Para entrar, sair ou ver o hist�rico da lista
:: Asp10.net visite http://www.asp10.net
==================================================
![]()
![]()
![]()
![]()
