Ir para conteúdo

POWERED BY:

Arquivado

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

designmix

erro

Por , em ASP Clássico

Recommended Posts

designmix    0

designmix
Postado

galera estou com esse erro 

Microsoft OLE DB Provider for ODBC Drivers (0x80004005)Column count doesn't match value count at row 1/jaffar/cadastro-cliente/enviar.asp, line 101

ASP

[*]<!--#include FILE="bib_conexao.asp"-->

[*]

[*]<%

[*]

[*]

[*]nome         = Request.Form("nome")

[*]sobre_mome   = Request.Form("Sobre_nome")

[*]tel          = Request.Form("tel")

[*]email        = Request.Form("email")

[*]cidade       = Request.Form("cidade")

[*]Cod_est      = Request.Form("Cod_est")

[*]pais         = Request.Form("pais")

[*]login        = Request.form("login")

[*]Senha        = Request.Form("senha")

[*]Data_nasc    = Request.Form("data_nasc")

[*]profissao    = Request.Form("profissao")

[*]grupo        = Request.Form("grupo")

[*]statu        = Request.Form("statu")

[*]

[*]strSQL = "INSERT INTO d_clientes (nome, sobre_nome, tel, email, cidade, cod_est, pais, login, senha, data_nasc, professao) "

[*]strSQL = strSQL & "values ('"& nome & "','" & sobre_nome & "','" & tel & "','" & email & "','" & cidade & "','" & cod_est & "','" & pais & "','" & login & "','" & senha & "','" & data_nasc & "','" & profissao & "','" & grupo & "','" & estatu & "') "

[*]response.Write(strSQl)

[*]

[*]

[*]Response.Buffer = True

[*]

[*]

[*]Dim strBody    

[*]Dim objCDOMail    

[*]Dim strMyEmailAddress  

[*]Dim strCCEmailAddress  

[*]Dim strReturnEmailAddress

[*]

[*]

[*]strMyEmailAddress = "jaffar@photopro.com.br"

[*]

[*]

[*]

[*]strReturnEmailAddress = Request.Form("email")

[*]

[*]strBody = "Name: " & Request.Form("Nome") & " " & Request.Form("") & vbCrLf & vbCrLf

[*]strBody = strBody & vbCrLf & "Sobre Nome: " & Request.Form("Sobre_nome") & vbCrLf & vbCrLf

[*]strBody = strBody & "E-mail: " & strReturnEmailAddress & vbCrLf & vbCrLf

[*]strBody = strBody & vbCrLf & "Telefone: " & Request.Form("tel") & vbCrLf & vbCrLf

[*]strBody = strBody & vbCrLf & "Cidade: " & Request.Form("cidade") & vbCrLf & vbCrLf

[*]strBody = strBody & vbCrLf & "Estado: " & Request.Form("cod_est") & vbCrLf & vbCrLf

[*]strBody = strBody & vbCrLf & "Pais: " & Request.Form("pais") & vbCrLf & vbCrLf

[*]strBody = strBody & vbCrLf & "Login: " & Request.Form("login") & vbCrLf & vbCrLf

[*]strBody = strBody & vbCrLf & "senha: " & Request.Form("senha") & vbCrLf & vbCrLf

[*]strBody = strBody & vbCrLf & "Data nascimento: " & Request.Form("data_nasc") & vbCrLf & vbCrLf

[*]strBody = strBody & vbCrLf & "Profissâo: " & Request.Form("profissao") & vbCrLf & vbCrLf

[*]strBody = strBody & vbCrLf & "Grupo: " & Request.Form("grupo") & vbCrLf & vbCrLf

[*]strBody = strBody & vbCrLf & "Status do Usuário: " & Request.Form("statu") & vbCrLf & vbCrLf

[*]strBody = strBody & "Comentário:  "  & vbCrLf & Request.Form("msg") & vbCrLf

[*]

[*]

[*]

[*]If Len(strReturnEmailAddress) < 5 OR NOT Instr(1, strReturnEmailAddress, " ") = 0 OR InStr(1, strReturnEmailAddress, "@", 1) < 2 OR InStrRev(strReturnEmailAddress, ".") < InStr(1, strReturnEmailAddress, "@", 1) Then

[*]

[*]strReturnEmailAddress = strMyEmailAddress

[*]End If

[*]

[*]

[*]

[*]Set objCDOMail = Server.CreateObject("CDONTS.NewMail")

[*]

[*]

[*]

[*]

[*]objCDOMail.From = Request.Form("Nome") & " " & Request.Form("") & " <" & strReturnEmailAddress & ">"

[*]

[*]

[*]objCDOMail.To = strMyEmailAddress

[*]

[*]

[*]objCDOMail.Cc = strCCEmailAddress

[*]

[*]

[*]objCDOMail.Subject = "Novo cadastro site dpi"

[*]

[*]

[*]objCDOMail.Body = strBody

[*]

[*]

[*]objCDOMail.MailFormat = CdoMailFormatText

[*]

[*]

[*]objCDOMail.Importance = 1

[*]

[*]

[*]objCDOMail.Send

[*]

[*]

[*]

[*]Set objCDOMail = Nothing

[*]

[*]

[*]

[*]

[*]call abre_conexao

[*]conn.Execute strSQL    essa é a linha do erro

[*]call fecha_conexao

[*]%>

 

 

grato pela ajuda

Compartilhar este post

Link para o post
Compartilhar em outros sites

designmix    0

designmix
Postado 
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)Column count doesn't match value count at row 1/jaffar/cadastro-cliente/enviar.asp, line 101
esse erro com response(strsSQl ) ou sem da esse erro

Compartilhar este post

Link para o post
Compartilhar em outros sites

dark0    0

dark0
Postado

naum naum naumabaixo do select, deixa o response.write strsqle coloca na linha de baixo do response.write, RESPONSE.ENDe posta aqui o que aparecer na tela

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado

A partir da linha 100 troca seu código por esse e posta o que mostrar na tela.

Response.Write "strSQL = "& strSQL
Response.END
call abre_conexao
conn.Execute strSQL	essa é a linha do erro
call fecha_conexao

Compartilhar este post

Link para o post
Compartilhar em outros sites

designmix    0

designmix
Postado 
INSERT INTO d_clientes (nome, sobre_nome, tel, email, cidade, cod_est, pais, login, senha, data_nasc, professao) values ('jaffar','','40254545','jaffar@dtp.com.br','itu','SP','22','jaffar','1234','20/06/1981','','','') strSQL = INSERT INTO d_clientes (nome, sobre_nome, tel, email, cidade, cod_est, pais, login, senha, data_nasc, professao) values ('jaffar','','40254545','jaffar@dtp.com.br','itu','SP','22','jaffar','1234','20/06/1981','','','')

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado

A quantidades de campos de seu insert está correta? Os espaços vazios ali nos Values, é assim mesmo? Todos os campos são texto?

Compartilhar este post

Link para o post
Compartilhar em outros sites

dark0    0

dark0
Postado

e você, que conhece o sistema.. acha que estes dados estao certinhos?pelo que parece, tem mais dados na parte de baixo, do que na parte de cimae deve ser esse o motivo do erro

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado
e você, que conhece o sistema.. acha que estes dados estao certinhos?

 

pelo que parece, tem mais dados na parte de baixo, do que na parte de cima

 

e deve ser esse o motivo do erro

Certinho Drak! A var "Statu" não apresenta campo no BD!

Compartilhar este post

Link para o post
Compartilhar em outros sites

designmix    0

designmix
Postado

galera .. esta me mostrando tudo normal

 

strSQL = INSERT INTO d_clientes (nome, sobre_nome, tel, email, cidade, cod_est, pais, login, senha, data_nasc, profissao, statu) values ('jaffar','cardoso','40254545','jaffar@dtp.com.br','itu','SC','22','jaffar','1234','20/06/1981','Gráfico','','')
mais quando paro de imprimir o stsSQl me da o erro

 

Tipo de erro:Microsoft OLE DB Provider for ODBC Drivers (0x80004005)Column count doesn't match value count at row 1/jaffar/cadastro-cliente/enviar.asp, line 102
ASP

[*]<%

[*]

[*]

[*]nome = Request.Form("nome")

[*]Sobre_nome = Request.Form("Sobre_nome")

[*]tel = Request.Form("tel")

[*]email = Request.Form("email")

[*]cidade = Request.Form("cidade")

[*]Cod_est = Request.Form("Cod_est")

[*]pais = Request.Form("pais")

[*]login = Request.form("login")

[*]Senha = Request.Form("senha")

[*]Data_nasc = Request.Form("data_nasc")

[*]profissao = Request.Form("profissao")

[*]grupo = Request.Form("grupo")

[*]statu = Request.Form("statu")

[*]

[*]strSQL = "INSERT INTO d_clientes (nome, sobre_nome, tel, email, cidade, cod_est, pais, login, senha, data_nasc, profissao, statu) "

[*]strSQL = strSQL & "values ('"& nome & "','" & sobre_nome & "','" & tel & "','" & email & "','" & cidade & "','" & cod_est & "','" & pais & "','" & login & "','" & senha & "','" & data_nasc & "','" & profissao & "','" & grupo & "','" & statu & "') "

[*]

[*]

[*]

[*]Response.Buffer = True

[*]

[*]

[*]Dim strBody

[*]Dim objCDOMail

[*]Dim strMyEmailAddress

[*]Dim strCCEmailAddress

[*]Dim strReturnEmailAddress

[*]

[*]

[*]strMyEmailAddress = "jaffar@photopro.com.br"

[*]

[*]

[*]

[*]strReturnEmailAddress = Request.Form("email")

[*]

[*]strBody = "Name: " & Request.Form("Nome") & " " & Request.Form("nome") & vbCrLf & vbCrLf

[*]strBody = strBody & vbCrLf & "Sobre Nome: " & Request.Form("Sobre_nome") & vbCrLf & vbCrLf

[*]strBody = strBody & "E-mail: " & strReturnEmailAddress & vbCrLf & vbCrLf

[*]strBody = strBody & vbCrLf & "Telefone: " & Request.Form("tel") & vbCrLf & vbCrLf

[*]strBody = strBody & vbCrLf & "Cidade: " & Request.Form("cidade") & vbCrLf & vbCrLf

[*]strBody = strBody & vbCrLf & "Estado: " & Request.Form("cod_est") & vbCrLf & vbCrLf

[*]strBody = strBody & vbCrLf & "Pais: " & Request.Form("pais") & vbCrLf & vbCrLf

[*]strBody = strBody & vbCrLf & "Login: " & Request.Form("login") & vbCrLf & vbCrLf

[*]strBody = strBody & vbCrLf & "senha: " & Request.Form("senha") & vbCrLf & vbCrLf

[*]strBody = strBody & vbCrLf & "Data nascimento: " & Request.Form("data_nasc") & vbCrLf & vbCrLf

[*]strBody = strBody & vbCrLf & "Profissâo: " & Request.Form("profissao") & vbCrLf & vbCrLf

[*]strBody = strBody & vbCrLf & "Grupo: " & Request.Form("grupo") & vbCrLf & vbCrLf

[*]strBody = strBody & vbCrLf & "Status do Usuário: " & Request.Form("statu") & vbCrLf & vbCrLf

[*]

[*]

[*]

[*]

[*]If Len(strReturnEmailAddress) < 5 OR NOT Instr(1, strReturnEmailAddress, " ") = 0 OR InStr(1, strReturnEmailAddress, "@", 1) < 2 OR InStrRev(strReturnEmailAddress, ".") < InStr(1, strReturnEmailAddress, "@", 1) Then

[*]

[*]strReturnEmailAddress = strMyEmailAddress

[*]End If

[*]

[*]

[*]

[*]Set objCDOMail = Server.CreateObject("CDONTS.NewMail")

[*]

[*]

[*]

[*]

[*]objCDOMail.From = Request.Form("Nome") & " " & Request.Form("") & " <" & strReturnEmailAddress & ">"

[*]

[*]

[*]objCDOMail.To = strMyEmailAddress

[*]

[*]

[*]objCDOMail.Cc = strCCEmailAddress

[*]

[*]

[*]objCDOMail.Subject = ""

[*]

[*]

[*]objCDOMail.Body = strBody

[*]

[*]

[*]objCDOMail.MailFormat = CdoMailFormatText

[*]

[*]

[*]objCDOMail.Importance = 1

[*]

[*]

[*]objCDOMail.Send

[*]

[*]

[*]

[*]Set objCDOMail = Nothing

[*]

[*]

[*]

[*]

[*]

[*]call abre_conexao

[*]conn.Execute strSQL

[*]call fecha_conexao

[*]%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

note que você esta inserindo um valor alem do numero de camposveja o sqlnome = 'jaffar'sobre_nome = 'cardoso'tel = '40254545'email = 'jaffar@dtp.com.br'cidade = 'itu'cod_est = 'SC'pais = '22'login = 'jaffar'senha = '1234'data_nasc = '20/06/1981'profissao = 'Gráfico'statu = '' = ''ai sobrou um valor

Compartilhar este post

Link para o post
Compartilhar em outros sites

designmix    0

designmix
Postado

eu tirei mais esta me mostrando erro

 

Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)You have an error in your SQL syntax near ') values ('','','','','','0','22','','','','FotoGráfico','')' at line 1/jaffar/cadastro-cliente/enviar.asp, line 102

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

printa denovo e posta aqui....

Compartilhar este post

Link para o post
Compartilhar em outros sites

designmix    0

designmix
Postado 

strSQL = INSERT INTO d_clientes (nome, sobre_nome, tel, email, cidade, cod_est, pais, login, senha, data_nasc, profissao, ) values ('jaff','cardoso','40254545','jaffar@dtp.com.br','itu','AC','22','jaffar','1234','20/06/1981','FotoGráfico','')

Imprimi parece que esta indo tudo

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado

Verifique novamente sua SQL o campo statu não está nela.

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

olha aquidata_nasc, profissao, ) values ta faltando o nome do campo depois da virgula...

Compartilhar este post

Link para o post
Compartilhar em outros sites

designmix    0

designmix
Postado

[/code]strSQL = INSERT INTO d_clientes (nome, sobre_nome, tel, email, cidade, cod_est, pais, login, senha, data_nasc, profissao, ) values ('jaffar','cardoso','40254545','jaffar@dtp.com.br','itu','AC','22','jaffar','1234','20/06/1981','FotoGráfico','')

 
O que me mostro quando imprimi.,,,, Esta normal pelo jeito ... me mostro tudo o que digitei no form.
ASP


[*]<%


[*]


[*]


[*]nome         = Request.Form("nome")


[*]Sobre_nome   = Request.Form("Sobre_nome")


[*]tel          = Request.Form("tel")


[*]email        = Request.Form("email")


[*]cidade       = Request.Form("cidade")


[*]Cod_est      = Request.Form("Cod_est")


[*]pais         = Request.Form("pais")


[*]login        = Request.form("login")


[*]Senha        = Request.Form("senha")


[*]Data_nasc    = Request.Form("data_nasc")


[*]profissao    = Request.Form("profissao")


[*]grupo        = Request.Form("grupo")


[*]


[*]


[*]strSQL = "INSERT INTO d_clientes (nome, sobre_nome, tel, email, cidade, cod_est, pais, login, senha, data_nasc, profissao, ) " 


[*]strSQL = strSQL & "values ('"& nome & "','" & sobre_nome & "','" & tel & "','" & email & "','" & cidade & "','" & cod_est & "','" & pais & "','" & login & "','" & senha & "','" & data_nasc & "','" & profissao & "','" & grupo & "')" 


[*]


[*]


[*]


[*]Response.Write "strSQL = "& strSQL


[*]Response.END


[*]


[*]call abre_conexao


[*]conn.Execute strSQL  


[*]call fecha_conexao


[*]%>









			
		


		

			
				
					

	
	
		

			
				
				

					
				

			
			
			
		

	


				
			
			
    
				
					
					
					
				
				
  • 
					
				
    • 
			

		


		
	


	

		

			
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