Ir para conteúdo

POWERED BY:

Arquivado

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

lgf

[Resolvido] Adicionar Registro

Por , em ASP Clássico

Recommended Posts

lgf    0

lgf
Postado

Olá pessoal do Fórum!! http://forum.imasters.com.br/public/style_emoticons/default/dry.gif

 

Estou tendo o seguinte problema:

 

Quando tendo adicionar um novo registro aparece a seguinte mensagem de erro:

Tipo de erro:

Provider (0x80020005)

Tipo não correspondente.

/rma/adicionar_02.asp, line 17

 

Na linha 17 tem o seguinte:

 obj_projetos("data_inicio") = request("data_inicio")
Estou usando Base de Dados em SQL Server e este campo eu configurei p/ que Permitisse Nulo, ou seja, que não fosse necessário o preenchimento do mesmo, só que quando eu não preencho ele dá o erro acima, e quando preencho adiciona sem problemas, mas como expliquei quero deixá-lo nulo e o ASP infoma tipo incorreto! http://forum.imasters.com.br/public/style_emoticons/default/ph34r.gif

O que será que está havendo? :huh:

 

 

Valeu Pessoal!!

Compartilhar este post

Link para o post
Compartilhar em outros sites

LuX_    2

LuX_
Postado

Olá pessoal do Fórum!! :lol:

 

Estou tendo o seguinte problema:

 

Quando tendo adicionar um novo registro aparece a seguinte mensagem de erro:

Tipo de erro:

Provider (0x80020005)

Tipo não correspondente.

/rma/adicionar_02.asp, line 17

 

Na linha 17 tem o seguinte:

 obj_projetos("data_inicio") = request("data_inicio")

Estou usando Base de Dados em SQL Server e este campo eu configurei p/ que Permitisse Nulo, ou seja, que não fosse necessário o preenchimento do mesmo, só que quando eu não preencho ele dá o erro acima, e quando preencho adiciona sem problemas, mas como expliquei quero deixá-lo nulo e o ASP infoma tipo incorreto! :wacko:

O que será que está havendo? :huh:

 

 

Valeu Pessoal!!

Tenta isso...

 

objrs.fields("SeuCampo") = Cdate(request("Valor"))

 

Tenta ai....

 

Isso não é vb não amigo?

Compartilhar este post

Link para o post
Compartilhar em outros sites

hargon    64

hargon
Postado

Posta o código completo para entendermos o que está sendo feito.

Compartilhar este post

Link para o post
Compartilhar em outros sites

Gelado    0

Gelado
Postado

Estou com o mesmo problema.. por favor, me ajudem

vlw

 

 

<%Option Explicit%>
<!--#include file="inc_adodbs.asp"-->
<%
	if Session("UsuarioCodigo") = "" or Session("UsuarioNome") = "" Then response.redirect "logout.asp"
	
	Call OpenDB(Conexao,"rpci.mdb")
	

		Dim varid, vartipo, vartitulo, varsubtitulo, vardescricao, vartexto, varimagem, varbtipo, varbtitulo
		Dim varbsubtitulo, varbdescricao, varbtexto, varbimagem, varctipo, varctitulo, varcsubtitulo
		Dim varcdescricao, varctexto, varcimagem, vardtipo, vardtitulo, vardsubtitulo, varddescricao, vardtexto
		Dim vardimagem


'**************************************************
' funçao de gravar
'**************************************************
	Function TiraString(sTexto)
		TiraString = Replace(sTexto,"'","")
		TiraString = Replace(sTexto,"#","")
		TiraString = Replace(sTexto,"&","")
		TiraString = Replace(sTexto,"*","")
		TiraString = Replace(sTexto,"¨","")
		TiraString = Replace(sTexto,"%","")
		TiraString = Replace(sTexto,"$","")
		TiraString = Replace(sTexto,"chr(34)","")
	End Function
	
	if Request.QueryString("action") = "gravar" then 

	varid				= TiraString(Request.Form("id"))
	vartipo				= TiraString(Request.Form("tipo"))
	vartitulo			= TiraString(Request.Form("titulo"))
	varsubtitulo		= TiraString(Request.Form("subtitulo"))
	vardescricao		= TiraString(Request.Form("descricao"))
	vartexto			= TiraString(Request.Form("texto"))
	varimagem			= TiraString(Request.Form("imagem"))
	varbtipo			= TiraString(Request.Form("2tipo"))
	varbtitulo			= TiraString(Request.Form("2titulo"))
	varbsubtitulo		= TiraString(Request.Form("2subtitulo"))
	varbdescricao		= TiraString(Request.Form("2descricao"))
	varbtexto			= TiraString(Request.Form("2texto"))
	varbimagem			= TiraString(Request.Form("2imagem"))
	varctipo			= TiraString(Request.Form("3tipo"))
	varctitulo			= TiraString(Request.Form("3titulo"))
	varcsubtitulo		= TiraString(Request.Form("3subtitulo"))
	varcdescricao		= TiraString(Request.Form("3descricao"))
	varctexto			= TiraString(Request.Form("3texto"))
	varcimagem			= TiraString(Request.Form("3imagem"))
	vardtipo			= TiraString(Request.Form("4tipo"))
	vardtitulo			= TiraString(Request.Form("4titulo"))
	vardsubtitulo		= TiraString(Request.Form("4subtitulo"))
	varddescricao		= TiraString(Request.Form("4descricao"))
	vardtexto			= TiraString(Request.Form("4texto"))
	vardimagem			= TiraString(Request.Form("4imagem"))
	
		if vartitulo = "" Then response.redirect "erro.asp?Erro=O titulo deve ser informados."
	
		 Set rs = Server.CreateObject("ADODB.Recordset")
		 rs.Open "Select * From tbcursos Where aid=" & cint(request.querystring("codigo")) &  "",Conexao,1,2
		 if rs.eof then rs.AddNew
		  
		  rs("atipo")			= vartipo
		  rs("atitulo")			= vartitulo
		  rs("asubtitulo")		= varsubtitulo
		  rs("adescricao")		= vardescricao
		  rs("atexto")			= vartexto
		  if trim(varimagem)<>""then
		  rs("aimagem")			= varimagem
		  end if	
		  rs.Update

		  rs("btipo")			= varbtipo
		  rs("btitulo")			= varbtitulo
		  rs("bsubtitulo")		= varbsubtitulo
		  rs("bdescricao")		= varbdescricao
		  rs("btexto")			= varbtexto
		  if trim(varbimagem)<>""then
		  rs("bimagem")			= varbimagem
		  end if	
		  rs.Update

		  rs("ctipo")			= varctipo
		  rs("ctitulo")			= varctitulo
		  rs("csubtitulo")		= varcsubtitulo
		  rs("cdescricao")		= varcdescricao
		  rs("ctexto")			= varctexto
		  if trim(varcimagem)<>""then
		  rs("cimagem")			= varcimagem
		  end if	
		  rs.Update

		  rs("dtipo")			= vardtipo
		  rs("dtitulo")			= vardtitulo
		  rs("dsubtitulo")		= vardsubtitulo
		  rs("ddescricao")		= varddescricao
		  rs("dtexto")			= vardtexto
		  if trim(vardimagem)<>""then
		  rs("dimagem")			= vardimagem
		  end if	
		  rs.Update
		
		 if cint(request.querystring("codigo")) = 0 then	
			 rs.MoveLast	
		 end if	
		 	response.redirect "curso.asp?action=editar&codigo=" & rs("aid") &  "&msg=Cadastro realizado com sucesso"
		 rs.Close
		 Set rs = Nothing  
		 
	
	End if


'**************************************************
' funçao de editar
'**************************************************
	if request.querystring("action") = "editar" then
	
		set ss = createobject("adodb.recordset")
		ss.open "select * from tbcursos where aid=" & cint(request.querystring("codigo")) & "",conexao,1,2
			if not ss.eof then

	varid			= ss("aid")
	vartipo			= ss("atipo")
	vartitulo		= ss("atitulo")
	varsubtitulo	= ss("asubtitulo")
	vardescricao	= ss("adescricao")
	vartexto		= ss("atexto")
	varimagem		= ss("aimagem")
	varbtipo		= ss("btipo")
	varbtitulo		= ss("btitulo")
	varbsubtitulo	= ss("bsubtitulo")
	varbdescricao	= ss("bdescricao")
	varbtexto		= ss("btexto")
	varbimagem		= ss("bimagem")
	varctipo		= ss("ctipo")
	varctitulo		= ss("ctitulo")
	varcsubtitulo	= ss("csubtitulo")
	varcdescricao	= ss("cdescricao")
	varctexto		= ss("ctexto")
	varcimagem		= ss("cimagem")
	vardtipo		= ss("dtipo")
	vardtitulo		= ss("dtitulo")
	vardsubtitulo	= ss("dsubtitulo")
	varddescricao	= ss("ddescricao")
	vardtexto		= ss("dtexto")
	vardimagem		= ss("dimagem")

				  
			end if
		ss.close
		set ss = nothing

	end if

'**************************************************
' funçao de deletar
'**************************************************
	if request.querystring("action") = "excluir" then
		conexao.execute "delete from tbcursos where aid=" & cint(request.querystring("codigo")) & ""
		response.redirect request.servervariables("script_name") & "?action=consulta"
	end if

%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Gelado    0

Gelado
Postado

aqui o erro

 

Tipo de erro:

Provider (0x80020005)

Tipo não correspondente.

/rescue/adm/curso.asp, line 63

 

linha 63: 'rs("atipo") = vartipo'

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

este campo no db é de que tipo?

Compartilhar este post

Link para o post
Compartilhar em outros sites

Gelado    0

Gelado
Postado

aqui o erro

 

Tipo de erro:

Provider (0x80020005)

Tipo não correspondente.

/rescue/adm/curso.asp, line 63

 

linha 63: 'rs("atipo") = vartipo'

 

 

resolvido!

o problema estava no formulário, os 'names' estavam errado..

mesmo assim, obrigado!

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