Ir para conteúdo

POWERED BY:

Arquivado

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

doiddao

Nao insere do dados

Por , em ASP Clássico

Recommended Posts

doiddao    0

doiddao
Postado

Grande especialistas estou com problemas neste codigo que meu chefe me enviou pra ser acabado mais ele esta completo so que nao funciona, gostaria se possivel que os especialista me ajudem.Desde ja agradeço...====================================================codigo:<%Option ExplicitResponse.Expires = 0Dim objConn, objRs, strQuery, strConnection, nome, telefone, email, comentarionome = Request.Form("nome")telefone = Request.Form("telefone")email = Request.Form("email")comentario = Request.Form("comentario")Set objConn = Server.CreateObject("ADODB.Connection")objConn.Open "DBQ=" & Server.MapPath("contato.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}"',"username","password"strQuery = "INSERT INTO contato (nome,telefone,email,comentario) VALUES ('"&nome&"','"&telefone&"','"&email&"','"&comentario&"')"On error Resume NextSet ObjRs = objConn.Execute(strQuery)objConn.closeSet objRs = NothingSet objConn = Nothingif err = 0 Then response.redirect "sucesso.asp" else response.write "erro ao inserir dados"end if%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

o que ocorre de fato??Movido de Laboratório de scripts(ASP) para ASP

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

falta permissao de escrita então...

Compartilhar este post

Link para o post
Compartilhar em outros sites

doiddao    0

doiddao
Postado

Agora estou com outro problema:

<%Option ExplicitResponse.Expires = 0Dim objConn, objRs, strQuery, strConnection, Nome, Ramal, Area, Bloco, Sala, TipoProblema, DescricaoSession("Nome") = Request.Form("Nome")Session("Ramal") = Request.Form("Ramal")Session("Area") = Request.Form("Area")Session("Bloco") = Request.Form("Bloco")Session("Sala") = Request.Form("Sala")Session("TipoProblema") = Request.Form("TipoProblema")Session("Descricao") = Request.Form("Descricao")Set objConn = Server.CreateObject("ADODB.Connection")objConn.Open "DBQ=" & Server.MapPath("/banco/suporte.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}"',"username","password"strQuery = "INSERT INTO contato (nome,ramal,area,bloco,sala,tipoproblema,descrição) VALUES ('"&nome&"','"&ramal&"','"&area&"','"&bloco&"','"&sala&"','"&tipoproblema&"','"&descricao&"')"'On error Resume NextSet ObjRs = objConn.Execute(strQuery)objConn.closeSet objRs = NothingSet objConn = Nothingif err = 0 Thenresponse.redirect "sucesso.asp"else response.write "erro ao inserir dados"end if%> <html><title> Form </title><body><h4>Dados enviados com sucesso!!!</h4></body></html>
E mesagem de erro é:

Tipo de erro:Microsoft OLE DB Provider for ODBC Drivers (0x80040E37)[Microsoft][Driver ODBC para Microsoft Access] Não foi possível encontrar a tabela de saída 'contato'./Confirmacao.asp, line 18

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

esta tabela existe???

Compartilhar este post

Link para o post
Compartilhar em outros sites

doiddao    0

doiddao
Postado

Ja consegui solucionar mais todos os erros no codigo mais ela nao insere nda no banco so incrementa o campo autonumeração do meu banco, você pode me ajudar ??

 

Grato

 

 

 

ASP


[*]


 


[*]<%


 


[*]Option Explicit


 


[*]Response.Expires = 0


 


[*]Dim objConn, objRs, strQuery, strConnection, Nome, Ramal, Area, Bloco, Sala, TipoProblema, Descricao


 


[*]Session("Nome") = Request.Form("Nome")


 


[*]Session("Ramal") = Request.Form("Ramal")


 


[*]Session("Area") = Request.Form("Area")


 


[*]Session("Bloco") = Request.Form("Bloco")


 


[*]Session("Sala") = Request.Form("Sala")


 


[*]Session("TipoProblema") = Request.Form("TipoProblema")


 


[*]Session("Descricao") = Request.Form("Descricao")


 


[*]


 


[*]Set objConn = Server.CreateObject("ADODB.Connection")


 


[*]


 


[*]objConn.Open "DBQ=" & Server.MapPath("/banco/suporte.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}"',"username","password"


 


[*]strQuery = "INSERT INTO pedido (nome,ramal,area,bloco,sala,tipoproblema,descricao) VALUES ('"&nome&"','"&ramal&"','"&area&"','"&bloco&"','"&sala&"','"&tipoproblema&"','"&descricao&"')"


 


[*]On error Resume Next


 


[*]Set ObjRs = objConn.Execute(strQuery)


 


[*]objConn.close


 


[*]Set objRs = Nothing


 


[*]Set objConn = Nothing


 


[*]if err = 0 Then


 


[*]response.redirect "sucesso.asp"


 


[*]else 


 


[*]response.write "erro ao inserir dados"


 


[*]end if


 


[*]%> 


 


[*]


 


[*]


 


[*]


 


[*]<html>


 


[*]<title> Form </title>


 


[*]<body>


 


[*]<h4>Dados enviados com sucesso!!!</h4>


 


[*]</body>


 


[*]</html>


 


[*]


 


[*]









			
		


		

			
				
					

	
	
		

			
				
				

					
				

			
			
			
		

	


				
			
			
    
				
					
					
					
				
				
  • 
					
				
    • 
			

		


		
	


	

		

			
Compartilhar este post

			

			
Link para o post

			
			
			

			
				
Compartilhar em outros sites

				

	

			
		

	



	



					
				
					
					
					







	

	

		

			
Mário Monteiro
			  

	
		
	
			 179
	
		
	

		

		

			


	
		Mário Monteiro
	

		

	

	
	

		



	

	

		

			
		


		

			Postado 
			
				
				
			
		

	


	


	

		
		

			
você armazena os valores em session mas esta inserindo o valor de uma variavel que deve ta vazia por isso não insere nadatroca seu insert e manda inseri o valor das sessions...


			
		


		

			
				
					

	
	
		

			
				
				

					
				

			
			
			
		

	


				
			
			
    
				
					
					
					
				
				
  • 
					
				
    • 
			

		


		
			

		
	


	

		

			
Compartilhar este post

			

			
Link para o post

			
			
			

			
				
Compartilhar em outros sites

				

	

			
		

	



	



					
				
					
					
					







	

	

		

			
doiddao
			  

	
		
	
			 0
	
		
	

		

		

			


	
		doiddao
	

		

	

	
	

		



	

	

		

			
		


		

			Postado 
			
				
				
			
		

	


	


	

		
		

			

Como eu posso fazer para esse insert abaixo ter seus dados transformados em uma sessao tambem e nao inserir espaço me brando no banco???


 


 



Grato


 






[ASP]strQuery = "INSERT INTO pedido (nome,ramal,area,bloco,sala,tipoproblema,descricao) VALUES ('"&nome&"','"&ramal&"','"&area&"','"&bloco&"','"&sala&"','"&tipoproblema&"','"&descricao&"')"[/ASP]



			
		


		

			
				
					

	
	
		

			
				
				

					
				

			
			
			
		

	


				
			
			
    
				
					
					
					
				
				
  • 
					
				
    • 
			

		


		
	


	

		

			
Compartilhar este post

			

			
Link para o post

			
			
			

			
				
Compartilhar em outros sites

				

	

			
		

	



	



					
				
					
					
					







	

	

		

			
Mário Monteiro
			  

	
		
	
			 179
	
		
	

		

		

			


	
		Mário Monteiro
	

		

	

	
	

		



	

	

		

			
		


		

			Postado 
			
				
				
			
		

	


	


	

		
		

			

troca por isso


strQuery = "INSERT INTO pedido (nome,ramal,area,bloco,sala,tipoproblema,descricao) VALUES ('"&Session("Nome")&"','"&Session("Ramal")&"','"&Session("Area")&"','"&Session("Bloco")&"','"&Session("Sala")&"','"&Session("TipoProblema")&"','"&Session("Descricao")&"')"







			
		


		

			
				
					

	
	
		

			
				
				

					
				

			
			
			
		

	


				
			
			
    
				
					
					
					
				
				
  • 
					
				
    • 
			

		


		
			

		
	


	

		

			
Compartilhar este post

			

			
Link para o post

			
			
			

			
				
Compartilhar em outros sites

				

	

			
		

	



	



					
				
					
					
					






					
				
					
					
					







	

	

		

			
Mário Monteiro
			  

	
		
	
			 179
	
		
	

		

		

			


	
		Mário Monteiro
	

		

	

	
	

		



	

	

		

			
		


		

			Postado 
			
				
				
			
		

	


	


	

		
		

			



Desse jeito gera um campo vazio no banco de dados...




então eh porque não ta vindo nada do form
 


pois você pega isso de lá


 


ASP





    

    [*]Session("Nome") = Request.Form("Nome")
    

     
    

    [*]
    

     
    

    [*]Session("Ramal") = Request.Form("Ramal")
    

     
    

    [*]
    

     
    

    [*]Session("Area") = Request.Form("Area")
    

     
    

    [*]
    

     
    

    [*]Session("Bloco") = Request.Form("Bloco")
    

     
    

    [*]
    

     
    

    [*]Session("Sala") = Request.Form("Sala")
    

     
    

    [*]
    

     
    

    [*]Session("TipoProblema") = Request.Form("TipoProblema")
    

     
    

    [*]
    

     
    

    [*]Session("Descricao") = Request.Form("Descricao")
    

     
    

    [*]
    

    






			
		


		

			
				
					

	
	
		

			
				
				

					
				

			
			
			
		

	


				
			
			
    
				
					
					
					
				
				
  • 
					
				
    • 
			

		


		
			

		
	


	

		

			
Compartilhar este post

			

			
Link para o post

			
			
			

			
				
Compartilhar em outros sites

				

	

			
		

	



	



					
				
			
			



		

	


	
	

	

	







	

		
			
				Ir para a lista de tópicos
				ASP Clássico
			
		
	

	




	

	

	




						


	

		
	


					

					

	

		
        


	

		
    
			
				
					
					
  • 
				
					
					
  • 
				
					
					
  • 
				
			
		

	


		
            
			

	

		
		

			

				
			

		

	



		
	


					

				

			

			
		

		
		


	×
	

		

			

			

				
			


			
		

	



		

	































	
















		
			
		
		
		
		







	




	







	

		

			

				
Informação importante

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

			

			

				  Aceito