String or binary data would be truncated. -> ???

[Sergix]

Ciao a tutti!
ho un problema su una stringa SQL che non riesco a risolvere... (dovevo continuare le vacanze... )

DATABASE: SQLSERVER
LINGUAGGIO: ASP

praticamente leggo da un file XLS i vari campi, dopodichè li importo in SQLSERVER, nella stringa sql che cicla ricevo questo errore:

--
Error Type:
Microsoft OLE DB Provider for SQL Server (0x80040E57)
String or binary data would be truncated.
/update/session/update.asp, line 126
--

sapreste percaso aiutarmi... GRAZIE COME SEMPRE!!!!

[kluster]

Stampa a video il sql e mostracelo, vediamo un po'

[Roby_72]

Uno dei campi è più piccolo del numero di caratteri che cerchi di inserirci.

Roby

[Sergix]

<%
'CREO LA STRINGA DATA -------------
Data = now()
Anno = Year(Data)
Ora = MID(now(),11,9)

Mese = Month(Data)
IF Mese < 10 THEN Mese= "0"&Mese

Giorno = Day(Data)
IF Giorno < 10 THEN Giorno= "0"&Giorno

vdatai = giorno&mese&anno
'----------------------------------
vmgprw="ssm.xls"
Set rcs00 = Server.CreateObject("ADODB.recordset")
strProvider="DRIVER=Microsoft Excel Driver (*.xls); DBQ=" & Server.MapPath ("filexls/"&vmgprw)
strsqlCSV = "SELECT * FROM [Foglio1$]"
'response.write(strsqlCSV)
'response.end
rcs00.Open strsqlCSV, strProvider
' -- -- -- -- -- -- -- -- -- -- -- -- --
DO WHILE NOT rcs00.eof

'-- INIZIO -- Genero il CODICE IDSESSION RANDOMICO ---
Dim controllo, cifra, intRange
Max = 71
Min = 48
MaxChar = 15
' differenza tra estremo sup e inf
intRange = Max - Min
For i = 1 To MaxChar
codice = 58
Randomize()
Do While (codice > 57 And codice < 65)
codice = Int((intRange * Rnd()) + Min)
Loop
vcifra = vcifra & Chr(codice)
vcifrafinale = vicifra&"sms"
Next
'-- FINE -- Genero il CODICE IDSESSION RANDOMICO ---

vserialn = rcs00("SERIALN")
vshapexls = rcs00("SHAPE")
vcolorxls = rcs00("COLOR")
vclarityxls = rcs00("CLARITY")
vlengxls = rcs00("LENG")
vwidxls = rcs00("WID")
vdepxls = rcs00("DEP")
vdeppercentagexls = rcs00("DEPP")
vtabxls = rcs00("TAB")
vculetxls = rcs00("CULET")
vfluorxls = rcs00("FLUOR")
vpolxls = rcs00("POL")
vsymxls = rcs00("SYM")
vcaratxls = rcs00("CARAT")
vrappricexls = rcs00("RAPPRICE")
vpcaratxls = rcs00("PCARAT")
vspricexls = rcs00("SPRICE")
vrapdiscxls = rcs00("RAPDISC")

'---------------------------------------------------------------------------------------------------------
IF vfluorxls <> "NONE" THEN
sqlidp1="SELECT IDP as IDP1 FROM [77d_parametri] WHERE NOMECODICE = '"&vfluorxls&"' AND IDCHIAVE = 1 "
response.write(sqlidp1&"
")
'response.end
Set rcs1=MyConn.Execute(sqlidp1)
vfluordb = rcs1("IDP1")
END IF
'----------------------------------------------
IF vclarityxls <> "NONE" THEN
sqlidp3="SELECT IDP as IDP3 FROM [77d_parametri] WHERE NOMECODICE = '"&vclarityxls&"' AND IDCHIAVE = 3 "
response.write(sqlidp3&"
")
'response.end
Set rcs3=MyConn.Execute(sqlidp3)
vclaritydb = rcs3("IDP3")
END IF
'----------------------------------------------
IF vcolorxls <> "NONE" THEN
sqlidp4="SELECT IDP as IDP4 FROM [77d_parametri] WHERE NOMECODICE = '"&vcolorxls&"' AND IDCHIAVE = 4 "
response.write(sqlidp4&"
")
'response.end
Set rcs4=MyConn.Execute(sqlidp4)
vcolordb = rcs4("IDP4")
END IF
'----------------------------------------------
IF vshapexls <> "NONE" THEN
sqlidp8="SELECT IDP as IDP8 FROM [77d_parametri] WHERE NOMECODICE = '"&vshapexls&"' AND IDCHIAVE = 8 "
response.write(sqlidp8&"
")
'response.end
Set rcs8=MyConn.Execute(sqlidp8)
vshapedb= rcs8("IDP8")
END IF
'----------------------------------------------
IF vculetxls <> "NONE" THEN
sqlidp9="SELECT IDP as IDP9 FROM [77d_parametri] WHERE NOMECODICE = '"&vculetxls&"' AND IDCHIAVE = 9 "
response.write(sqlidp9&"
")
'response.end
Set rcs9=MyConn.Execute(sqlidp9)
vculetdb= rcs9("IDP9")
END IF
'----------------------------------------------
IF vpolxls <> "NONE" THEN
sqlidp10="SELECT IDP as IDP10 FROM [77d_parametri] WHERE NOMECODICE = '"&vpolxls&"' AND IDCHIAVE = 10 "
response.write(sqlidp10&"
")
'response.end
Set rcs10=MyConn.Execute(sqlidp10)
vpoldb= rcs10("IDP10")
END IF
'----------------------------------------------
IF vsymxls <> "NONE" THEN
sqlidp11="SELECT IDP as IDP11 FROM [77d_parametri] WHERE NOMECODICE = '"&vsymxls&"' AND IDCHIAVE = 11 "
response.write(sqlidp11&"
")
'response.end
Set rcs11=MyConn.Execute(sqlidp11)
vsimmetrydb= rcs11("IDP11")
END IF
'---------------------------------------------------------------------------------------------------------

sql99="INSERT INTO [77d_prezioso] (CODE,OGGETTO,IDCODICE,COSTO,COSTOVENDITA,CARATURA ,WIDTH,LENGTH,DEPTH,DEPTHPERCENTAGE,TAVOLA,DISCOUN T,RAPPRICE,IDP01,IDP03,IDP04,IDP08,IDP09,IDP010,ID P011,STATOV,DATA_INSERT) values ('"&vserialn&"','FILEXLS','"&vcifrafinale&"',0,0,' "&vcaratxls&"','"&vwidxls&"','"&vlengxls&"','"&vde pxls&"','"&vdeppercentagexls&"','"&vtabxls&"','"&v rapdiscxls&"','"&vrappricexls&"','"&vfluordb&"','" &vclaritydb&"','"&vcolordb&"','"&vshapedb&"','"&vc uletdb&"','"&vpoldb&"','"&vsimmetrydb&"','1','"&vd atai&"') "
'response.write(sql99)
'response.end
Myconn.Execute(sql99) <<-- L'errore si presenta qui

rcs00.movenext
LOOP

[kluster]

giusto come dice Roby

[Sergix]

GRAZIE Roby E GRAZIE Kluster,

Infatti la voce FILEXLS è troppo lunga quel campo su DB ha come dimensioni '1 valore alfanumerico'.

Ragass forse è meglio se vado a farmi una penichella... inizio bene va!!!

grazie ancora...!!!!!