Ir para conteúdo

POWERED BY:

Arquivado

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

cesarhtc

Insert

Por , em ASP Clássico

Recommended Posts

cesarhtc    0

cesarhtc
Postado

Estou tentando fazer um insert em duas tabelas, só que me aparece sempre este erro.

Na linha 45 sublinhada.

 

Agradeço pela força. :huh:

 

Cesarhtc

 

 

ASP [/tr][tr]

Error Type:

Microsoft OLE DB Provider for SQL Server (0x80040E57)

String or binary data would be truncated.

/suprimentos/publicar/gravarResultado.asp, line 45

[/tr]

 

******//******

 

<html>

<head>

<title>Execução do Incluir</title>

</head>

<body style="font-family: Verdana, Arial">

<p>

<h2>Inclusão de itens de licitação</h2>

<hr>

<%

 

'Recupera do Inclu_ResultSQLnovo.asp o valor das variáveis passadas

wUF = Request.form("SG_UF")

wModal = Request.form("SG_Modalidade")

wNL = Request.form("NU_NL")

wPublicar = Request.form("DT_Publicar")

wFornecedor = Request.form("NM_Fornecedor")

wItem = Request.form("NU_Item")

wObjeto = Request.form("TE_Objeto")

wValor = Request.form("VL_Valor")

wStatus = Request.form("NM_Status")

 

 

'response.write wuf & "<BR>" & wmodal & "<BR>" & wnl & "<BR>" & wpublicar & "<BR>" & wfornecedor & "<BR>" & witem & "<BR>" & wobjeto & "<BR>" & wvalor & "<BR>" & wstatus & "<BR>"

 

' Mostra a variável de conexão

Conexao="Provider=SQLOLEDB; Data Source=10.2.9.125; Initial Catalog=Publicar; User ID=sa; Password=''"

 

'response.end

 

'Cria um objeto recordset

set rstMain = Server.CreateObject("ADODB.Recordset")

 

 

wentrada = now()

wID_Edital =wuf&wmodal&wnl

 

'MONTA A STRING SQL DE INCLUSÃO NA TABELA PUBLICAR

strSQL = "INSERT INTO resultado ( SG_UF, SG_MODALIDADE, NU_NL, DT_PUBLICAR, TE_ENTRADA, NM_STATUS, ID_EDITAL) " &_

" VALUES (' "& wuf &" ' , ' "& wmodal &" ' , ' "& wnl &" ' , ' "& wpublicar &" ' , ' " & wentrada &" ', ' " & wstatus &" ', ' " & wid_edital & " ')"

 

'response.write strSQL &"<BR>"

 

'response.end

 

rstMain.Open strSQL,conexao

 

'Cria um objeto recordset

set rstMain = Server.CreateObject("ADODB.Recordset")

 

wentrada = now()

wID_Edital =wuf&wmodal&wnl

 

'MONTA A STRING SQL DE INCLUSÃO NA TABELA PUBLICAR

strSQL = "INSERT INTO resuitem (SG_UF, SG_MODALIDADE, NU_NL, NU_ITEM, NM_FORNECEDOR,TE_OBJETO, VL_VALOR, TE_ENTRADA, NM_STATUS, ID_EDITAL) " &_

" VALUES (' "& wuf &" ', ' " & wmodal &" ', ' " & wnl &" ', ' " & witem & " ', ' "& wfornecedor & " ',' " & wobjeto &" ', ' " & wvalor & " ' , ' " & wentrada &" ', ' " & wstatus &" ', ' " & wid_edital & " ')"

 

 

'response.write strSQL

 

'response.end

 

rstMain.Open strSQL,conexao

 

%>

 

<h2>A inclusão foi efetuada.</h2>

<hr>

 

<%

'Libera a memória (destrói o objeto recordset)

Set rstMain=Nothing

%>

 

<a href="Inclu_ResultSQLnovo.asp">Deseja lançar mais algum item?</a>

<a href="home1.asp">Sair</a>

 

</p>

<!--#include file = "mostra_codigo.inc"--> </body>

</html>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

você pode estar passando um texto para inserir com comprimento maior que o especificado para o respectivo campo no bdpode ser isso, por isso ele fala em truncamento de string

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

batem os tipos de dados?

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

campo texto você insere com aspas simples antes e depois dos valoresnumericos sem aspas e tal

Compartilhar este post

Link para o post
Compartilhar em outros sites

cesarhtc    0

cesarhtc
Postado

Agradeço pela ajuda.

 

São todos campos string.

 

Veja como esta meu formulario:

 

<FORM METHOD=POST ACTION="gravarResultado.asp" onsubmit="return valida(this)" ><table align= center border=0 bgcolor="#FFFF99" bordercolor="blue" cellpadding="3">  <tr>     <td><font face= "Tahoma" size="2" color="#800000"> UF: <font face= "tahoma" size="2" color="navy"><%=wuf%></font> <INPUT TYPE=HIDDEN NAME="SG_UF" VALUE="<%=wUF%>">    <font face= "tahoma" size="2" color="#800000"> Modalidade: <font face="tahoma" size="2" color="navy"><%=wmodal%></font><INPUT TYPE=HIDDEN NAME="SG_MODALIDADE" VALUE="<%=wMODAL%>">     <font face= "tahoma" size="2" color="#800000"> Nº:<font face="tahoma" size="2" color="navy"><%numero=wnlnumero="00" & numero 'põe zeros "à força" à esquerda do nº da Licitação numero = right(numero,7)parte1=left(numero,3)parte2=right(numero,4)numeroformatado=parte1 & "/" & parte2response.write numeroformatado%></font><INPUT TYPE=HIDDEN NAME="NU_NL" VALUE="<%=wNL%>"></td></tr></table><BR><BR><font face= "verdana" size="1" color="#000080"> <b>Item:</b></font><INPUT TYPE=TEXT style="font-family: verdana; color:blue; font-size=8pt; font:bold;;"   NAME="NU_ITEM" VALUE=""    SIZE=2 MAXLENGTH=2>    <font face= "verdana" size="1" color="#000080"> <b>Valor:</b></font><INPUT TYPE=TEXT style="font-family: verdana; color:blue; font-size=8pt; font:bold;;"   NAME="VL_VALOR" VALUE=""    SIZE=12 MAXLENGTH=12>    <font face= "verdana" size="1" color="#000080"> <b>Fornecedor:</b></font><INPUT TYPE=TEXT style="font-family: verdana; color:blue; font-size=8pt; font:bold;;"   NAME="NM_FORNECEDOR" VALUE=""    SIZE=50 MAXLENGTH=50>  <p>  <table border=0> <tr>    <td> <font face= "verdana" size="1" color="#000080">     <b>Objeto:</b></font> </td>    <td align=justify><TEXTAREA COLS="60" ROWS="4" NAME="TE_Objeto" style="font-family: Verdana; color:navy; font-size=8pt;" VALUE=""></TEXTAREA>    <font face= "tahoma" size= "1" color="red"><B>Digitar até 100 caracteres</B></font>    </td>  </tr></table><BR><font face= "verdana" size="1" color="#000080"> <b>Publicar dia:</b></font><INPUT TYPE=TEXT  style="font-family: verdana; color:blue; font-size=8pt; font:bold;;" NAME="DT_Publicar" VALUE=""    SIZE=11 MAXLENGTH=10 onblur="return ValidaData(this)"> <p><INPUT TYPE=HIDDEN NAME="TE_Entrada" VALUE=""     SIZE=20 MAXLENGTH=20><p> </table><font face= "verdana" size="1" color="#000080"> <b>Status da licitação:</b></font><select size="1"  style="font-family: verdana; color:blue; font-size=8pt; font:bold;;" name="NM_Status">      <option     <% IF wstatus="Normal" then response.write" SELECTED"%>    >Normal</option>    <option    <% IF wstatus="Revogada" then response.write" SELECTED"%>    >Revogada</option>    <option    <% IF wstatus="Adiada" then response.write" SELECTED"%>    >Adiada</option>    <option    <% IF wstatus="Anulada" then response.write" SELECTED"%>    >Anulada</option>    <option    <% IF wstatus="Suspensa" then response.write" SELECTED"%>    >Suspensa</option></select><BR><table align="center"  border=0 ><tr>   <td>      <INPUT TYPE=SUBMIT style="font-family:Trebuchet MS; color:800000; font-size:10pt; " VALUE="Incluir">      <INPUT TYPE=RESET style="font-family:Trebuchet MS; color:800000; font-size:10pt"; " VALUE="Limpar"><p>   </td></tr></table></FORM>

 

Estrutura das Tabelas:

 

/****** Object:  Table [dbo].[ResuItem]    Script Date: 20/10/2004 15:45:32 ******/CREATE TABLE [dbo].[ResuItem] (	[ID_Edital] [char] (20) NOT NULL ,	[SG_UF] [nvarchar] (9) NOT NULL ,	[SG_Modalidade] [nvarchar] (2) NOT NULL ,	[NU_NL] [nvarchar] (7) NOT NULL ,	[NM_Fornecedor] [nvarchar] (50) NOT NULL ,	[NU_Item] [nvarchar] (2) NOT NULL ,	[TE_Objeto] [nvarchar] (100) NOT NULL ,	[VL_Valor] [nvarchar] (50) NOT NULL ,	[TE_Entrada] [nvarchar] (20) NOT NULL ,	[NM_Status] [nvarchar] (12) NOT NULL ) ON [PRIMARY]GO/****** Object:  Table [dbo].[Resultado]    Script Date: 20/10/2004 15:45:32 ******/CREATE TABLE [dbo].[Resultado] (	[ID_Edital] [char] (20) NOT NULL ,	[SG_UF] [nvarchar] (9) NOT NULL ,	[SG_Modalidade] [nvarchar] (2) NOT NULL ,	[NU_NL] [nvarchar] (7) NOT NULL ,	[DT_Publicar] [nvarchar] (12) NOT NULL ,	[TE_Entrada] [nvarchar] (50) NOT NULL ,	[NM_Status] [nvarchar] (12) NOT NULL )GO

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