Ir para conteúdo

POWERED BY:

Arquivado

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

4loucos

problemas no asp

Recommended Posts

GALERA TO MEXENDO E REMEXENDO NISSO... COM DOIS OU TRES CAMPOS ELE INSERE E VAI PARA A PAGINA OK.ASP, MAS COM 26 CAMPOS ELE:-NÃO INSERE OS DADOS / -VAI PARA A PAGINA DE AÇÃO DO FORMULARIO / -E FICA EM BRANCO A PAGINA Q INSERE OS DADOSSEGUE O COD. SE ALGUEM PUDER DAR UMA OLHADA...AGRADEÇO:<%'Força a declaração de todas as variáveisOption Explicit'Não deixa informações no CacheResponse.Expires = 0'Declaração das variáveisDim objConn, objRs, strQuery, strConnection, camp1, camp2, camp3, camp4, camp5, camp6, camp7, camp8, camp9, camp10, camp11, camp12, camp13, camp14, camp15, camp16, camp17, camp18, camp19, camp20, camp21, camp22, camp23, camp24, camp25, camp26 'Atrubuição dos valores as respectivas variáveiscamp1 = Request.Form("camp1")camp2 = Request.Form("camp2")camp3 = Request.Form("camp3")camp4 = Request.Form("camp4")camp5 = Request.Form("camp5")camp6 = Request.Form("camp6")camp7 = Request.Form("camp7")camp8 = Request.Form("camp8")camp9 = Request.Form("camp9")camp10 = Request.Form("camp10")camp11 = Request.Form("camp11")camp12 = Request.Form("camp12")camp13 = Request.Form("camp13")camp14 = Request.Form("camp14")camp15 = Request.Form("camp15")camp16 = Request.Form("camp16")camp17 = Request.Form("camp17")camp18 = Request.Form("camp18")camp19 = Request.Form("camp19")camp20 = Request.Form("camp20")camp21 = Request.Form("camp21")camp22 = Request.Form("camp22")camp23 = Request.Form("camp23")camp24 = Request.Form("camp24")camp25 = Request.Form("camp25")camp26 = Request.Form("camp26")'Cria o objeto RecordSet e atribui a variável Set objConn = Server.CreateObject("ADODB.Connection")'Abre a conexão com o banco de dados utilizando o Drive {Microsoft Access...objConn.Open "DBQ=" & Server.MapPath("banco.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}","username","password"'Insere os dados na tabela abertastrQuery = "INSERT INTO diaria (camp1, camp2, camp3, camp5, camp6, camp7, camp8, camp9, camp10, camp11, camp12, camp13, camp14, camp15, camp16, camp17, camp18, camp19, camp20, camp21, camp22, camp23, camp24, camp25, camp26 ) VALUES ('"&camp1&"','"&camp2&"','"&camp3&",'"&camp4&"','"&camp5&"','"&camp6&"','"&camp7&"','"&camp8&"','"&camp9&"','"&camp10&"','"&camp11&"','"&camp12&"','"&camp13&"','"&camp14&"','"&camp15&"','"&camp16&"','"&camp17&"','"&camp18&"','"&camp19&"','"&camp20&"','"&camp21&"','"&camp22&"','"&camp23&"','"&camp24&"','"&camp25&"','"&camp26&"')"

Compartilhar este post


Link para o post
Compartilhar em outros sites

aqui ó!'Cria o objeto RecordSet e atribui a variável Set objConn = Server.CreateObject("ADODB.Connection")'Abre a conexão com o banco de dados utilizando o Drive {Microsoft Access...objConn.Open "DBQ=" & Server.MapPath("banco.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}","username","password"'Insere os dados na tabela abertastrQuery = "INSERT INTO diaria (camp1, camp2, camp3, camp5, camp6, camp7, camp8, camp9, camp10, camp11, camp12, camp13, camp14, camp15, camp16, camp17, camp18, camp19, camp20, camp21, camp22, camp23, camp24, camp25, camp26 ) VALUES ('"&camp1&"','"&camp2&"','"&camp3&",'"&camp4&"','"&camp5&"','"&camp6&"','"&camp7&"','"&camp8&"','"&camp9&"','"&camp10&"','"&camp11&"','"&camp12&"','"&camp13&"','"&camp14&"','"&camp15&"','"&camp16&"','"&camp17&"','"&camp18&"','"&camp19&"','"&camp20&"','"&camp21&"','"&camp22&"','"&camp23&"','"&camp24&"','"&camp25&"','"&camp26&"')"'Caso ocorra um erro esta função de erro será chamadaOn error Resume Next'Executa a inserção no Banco de Dados Set ObjRs = objConn.Execute(strQuery)'Fecha o Objeto de ConexãoobjConn.close'"APAGA" qualquer instancia que possa ter no objeto objRs e objConnSet objRs = NothingSet objConn = Nothing'Caso a função On Error Resume Next não tenha sido chamada o objeto err será = a 0if err = 0 Then 'Redireciona o usuário caso não tenha ocorrido erro na transação response.redirect "ok.asp"end if%>

Compartilhar este post


Link para o post
Compartilhar em outros sites

Veirifca se seu código está em módulos. SUB sasasa () End SUB Como o amigo disse, retira o ON ERROR RESUME NEXT, pq assim ele não trará o erro, a não ser que você queira tratar este erro. Abraços,

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

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