[Resolvido] Erro ao atualizar dados no BD

[.::ZeroHour::. 0]

Bom dia galera! Td bem?

 

Bom estou com um probleminha que não consigo resolver, pensei que fosse o tamanho da coluna na tabela do banco mas não é.

Quando eu tento atualizar um campo com 6 ou mais caracteres ele apresenta esse erro que está logo abaixo.

 

Error Type:

Microsoft OLE DB Provider for ODBC Drivers (0x80040E21)

Multiple-step OLE DB operation generated errors. Check each OLE DB status value, if available. No work was done.

/ProjetoCadastroModulo/alter_db.asp, line 67

 

Se alguem puder me ajudar, agradeço.

 

Abraço.

 

Código do atualizar banco:

001 <% Option Explicit %>
002 <!-- #include virtual="/ProjetoCadastroModulo/connectDB.asp" -->
003 
004 <%
005 Dim atualizadb, localdb, conn, rs, sSQL
006 Dim numModulo, idModular, nomeSocio, descricao, numTitulo, areaOrigMod, depreciacao, benfTotal, benfParc, benfDesc
007 Dim ramal, areaServ, areaServPorc, lMetais, forros, revestP, pisosInt, servComp, peDireito
008 
009 call abrir_conexao
010 
011 'Recupera os Dados do Formulário
012 numModulo = request("txt_numModulo")
013 idModular = request("txt_idModular")
014 'descricao = request("txt_historicoMod")
015 nomeSocio = request("txt_nomeSocio")
016 numTitulo = request("txt_numTitulo")
017 ramal = request("txt_ramal")
018 areaOrigMod = request("txt_areaOrig")
019 benfTotal = CDBL(request("txt_benfTotal"))
020 benfParc = CDBL(request("txt_benfParc"))
021 benfDesc = CDBL(request("txt_benfDesc"))
022 areaServ = CDBL(request("txt_areaServ"))
023 areaServPorc = CDBL(request("txt_vlAS"))
024 depreciacao = CDBL(request("txt_depreciacao"))
025 lMetais = CDBL(request("txt_metal"))
026 forros = CDBL(request("txt_forro"))
027 revestP = CDBL(request("txt_parede"))
028 pisosInt = CDBL(request("txt_piso"))
029 servComp = CDBL(request("txt_servico"))
030 peDireito = CDBL(request("txt_peDireito"))
031 
032 if (numModulo = "" or idModular = "0" or areaOrigMod = "" or numTitulo = "") then
033	 response.redirect("default.asp?msg=Preencha os campos corretamente!")
034 else
035	 
036	 'Cria um comand no SQL
037	 set atualizadb = Server.CreateObject("ADODB.Command")
038	 set rs = Server.CreateObject("ADODB.RecordSet")
039	 'Define a Conexao a ser usada
040	 set atualizadb.ActiveConnection = conn
041	 
042	 'Conecta a página com a Procedure proc_atualiza_dados_modulo
043	 atualizadb.CommandText = "proc_atualiza_dados_modulo"
044	 atualizadb.CommandType = 4
045	 
046	 'Passa os valores para a Procedure
047	 atualizadb.Parameters("@numModulo") = numModulo
048	 atualizadb.Parameters("@idModular") = idModular
049	 'atualizadb.Parameters("@descricao") = descricao
050	 atualizadb.Parameters("@nomeSocio") = nomeSocio
051	 atualizadb.Parameters("@numTitulo") = numTitulo
052	 atualizadb.Parameters("@ramal") = ramal
053	 atualizadb.Parameters("@areaOrigMod") = areaOrigMod
054	 atualizadb.Parameters("@benfTotal") = benfTotal
055	 atualizadb.Parameters("@benfParc") = benfParc
056	 atualizadb.Parameters("@benfDesc") = benfDesc
057	 atualizadb.Parameters("@areaServ") = areaServ
058	 atualizadb.Parameters("@areaServPorc") = areaServPorc
059 	atualizadb.Parameters("@depreciacao") = depreciacao
060	 atualizadb.Parameters("@lMetais") = lMetais
061	 atualizadb.Parameters("@forros") = forros
062	 atualizadb.Parameters("@revestP") = revestP
063	 atualizadb.Parameters("@pisosInt") = pisosInt
064	 atualizadb.Parameters("@servComp") = servComp
065	 atualizadb.Parameters("@peDireito") = peDireito
066	 
067 	atualizadb.Execute
068	 
069	 numModulo = request("txt_numModulo")
070	 
071	 sSQL = "EXEC PROC_OBTEM_DADOS_MODULO '" &numModulo& "', '" &numTitulo& "'"
072	 
073	 rs.open sSQL, conn, 3, 3
074	 
075	 if not rs.EOF then
076		 while not rs.EOF
077			 numModulo = rs("numModulo")
078			 idModular = rs("idModular")
079			 'descricao = rs("descricao")
080 			nomeSocio = rs("nomeSocio")
081 			numTitulo = rs("numTitulo")
082 			ramal = rs("ramal")
083			 areaOrigMod = rs("areaOrigMod")
084			 benfTotal = FormatNumber(rs("benfTotal"),2)
085			 benfParc = FormatNumber(rs("benfParc"),2)
086			 benfDesc = FormatNumber(rs("benfDesc"),2)
087			 areaServ = FormatNumber(rs("areaServ"),2)
088			 areaServPorc = FormatNumber(rs("areaServPorc"),2)
089 			depreciacao = FormatNumber(rs("depreciacao"),2)
090			 lMetais = FormatNumber(rs("lMetais"),2)
091			 forros = FormatNumber(rs("forros"),2)
092			 revestP = FormatNumber(rs("revestP"),2)
093			 pisosInt = FormatNumber(rs("pisosInt"),2)
094			 servComp = FormatNumber(rs("servComp"),2)
095			 peDireito = FormatNumber(rs("peDireito"),2)
096			 rs.MoveNext
097		 wend
098	 end if
099	 'Fecha a Procedure
100	 set atualizadb = nothing
101	 'response.redirect("default.asp?msg=Alterado com sucesso!&numModulo="&numModulo&"&idModular="&idModular&"&numTitulo="&numTitulo&"&nomeSocio="&nomeSocio&"&areaOrigMod="&areaOrigMod&"&benfTotal="&benfTotal&"&benfParc="&benfParc&"&benfDesc="&benfDesc&"&areaServ="&areaServ&"&areaServPorc="&areaServPorc&"&depreciacao="&depreciacao&"&lMetais="&lMetais&"&forros="&forros&"&revestP="&revestP&"&pisosInt="&pisosInt&"&servComp="&servComp&"&peDireito="&peDireito)
102	 response.write("<script> history.back(-1); alert('Alterado com sucesso!') </script>")
103	 rs.close
104	 Set rs = Nothing
105 end if
106 %>

[.::ZeroHour::. 0]

achei o problema e resolvi.

 

na linha 18:

areaOrigMod = request("txt_areaOrig")

alterado para:

areaOrigMod = CDbl(request("txt_areaOrig"))

 

Vlw.