[Resolvido] Adicionar Registro

>

>
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?

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

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

%>

aqui o erro

Tipo de erro:

Provider (0x80020005)

Tipo não correspondente.

/rescue/adm/curso.asp, line 63

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

este campo no db é de que tipo?

é texto

>
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!