[Resolvido] UPDATE com erro

[rd111072 1]

Bom dia moçada,

 

estou tentando fazer um UPDATE numa tabela do SQL Server, mas dá o seguinte rro:

 

Microsoft OLE DB Provider for SQL Server error '80040e57'

 

String or binary data would be truncated.

 

/adm_r/atualizar_ponto2.asp, line 28

 

pesquisei na web e alguns dizem que esse erro se deve ao número de caracteres que stou tentanto inserir ser diferente do definido na tabela, para as colunas.

 

Só que acho que não é isso, pois estou inserindo o mesmo número de caracteres.

 

os campos na tabela estão definidos assim:

Name Data Type Size Nulls

data datetime 8

hora1 varchar 5 ok

hora2 varchar 5 ok

hora3 varchar 5 ok

hora4 varchar 5 ok

 

página 1:

 

CODE

<table width="780" height="620" border="0" align="center" cellpadding="0" cellspacing="2" bgcolor="#FFFFFF">

<tr>

<td><table width="400" height="300" align="center" cellpadding="4" cellspacing="2">

<tr bgcolor="#FFFFFF">

<td style="font-family:Arial, Helvetica, sans-serif; font-size:12px; font-weight:normal; color:#000066" bgcolor="#F0F5FF" align="center">

<!-- conteudo -->

<h3 style="font-family:Arial, Helvetica, sans-serif; font-size:14px; font-weight:bold; color:#000066">Atualizar um registro:</h3>

 

<!-- conteudo -->

<FORM METHOD="POST" onMouseOver="window.status='';return true" ACTION="atualizar_ponto2.asp">

data

<br>

<%

SQL="Select * From tb_Pontos where id_usuario = '259' Order By data DESC"

set RS = Conn.Execute(SQL)

%>

<INPUT TYPE="TEXT" NAME="hora1" value="<%=RS("id_usuario")%>"><br>

<br>

 

<INPUT TYPE="TEXT" NAME="data" maxlength="8">

 

<br>

h1-chegada<br>

<INPUT TYPE="TEXT" NAME="hora1" maxlength="5"><br>

h2-almoço<br>

<INPUT TYPE="TEXT" NAME="hora2" maxlength="5"><br>

h3-volta<br>

<INPUT TYPE="TEXT" NAME="hora3" maxlength="5"><br>

h4-saida<br>

<INPUT TYPE="TEXT" NAME="hora4" maxlength="5"><br>

<br>

<INPUT TYPE="SUBMIT" value="Atualizar">

</FORM>

 

<br>

</td>

</table>

 

</td>

</tr>

</table>

 

página 2:

 

CODE

<%

id_usuario=Request.Form("id_usuario")

data=Request.Form("data")

hora1= Request.Form("hora1")

hora2=Request.Form("hora2")

hora3= Request.Form("hora3")

hora4= Request.Form("hora4")

'mtotal= Request.Form("mtotal")

'htotal_calc= Request.Form("htotal_calc")

%>

 

'conexão

 

<%

SQL="Update tb_Pontos Set hora1='" & hora1 & "', hora2='" & hora2 & "', hora3='" & hora3 & "', hora4='" & hora4 & "' Where id_usuario='" & id_usuario & "' and data='" & data & "'"

 

set RS = Conn.Execute(SQL)

 

'Retornar para a principal e dar uma mensagem de alterações realizadas

response.write("<script>location = 'listar_ponto.asp';alert('As configurações foram alteradas corretamente.')</script>")

 

%>

 

Alguém pode me ajudar?

[sr.silva 1]

antes dessa linha

 

set RS = Conn.Execute(SQL)

coloque isso:

 

Response.Write(SQL)

deixando assim:

<%
SQL="Update tb_Pontos Set hora1='" & hora1 & "', hora2='" & hora2 & "', hora3='" & hora3 & "', hora4='" & hora4 & "' Where id_usuario='" & id_usuario & "' and data='" & data & "'"

Response.Write( SQL ) 

'set RS = Conn.Execute(SQL)

'Retornar para a principal e dar uma mensagem de alterações realizadas
'response.write("<script>location = 'listar_ponto.asp';alert('As configurações foram alteradas corretamente.')</script>")

%>

[rd111072 1]

Silva,

 

deu certo!

 

Obrigado.

[sr.silva 1]

:lol: certo, que não falei nada...mas tudo bem.. ^_^

 

coloque a solução aqui, pra galera ver.. ;)