Problema con db mySQL campo decimal

**DeR** · 19-07-2004, 14:50

Ho una form per inserire dei valori in un campo decimal, se inserisco un prezzo con il punto(.) es:23.56 nel db mi esce 2356,00 mi toglie il punto, mentre se inserisco un prezzo con la virgola(,) es:23,56 nel db mi esce 23,00 mi toglie la parte dopo la virgola.

Il mio campo e un decimal 10,2

come mai? per il prezzo posso mai usare un campo stringa?

**DeR** · 19-07-2004, 17:32

**99eros9** · 19-07-2004, 17:44

mi sembra un caso.. ma come inserisci questo valore?

**99eros9** · 19-07-2004, 17:52

un campo decimal contiene valori di tipo stringa piuttosto che di tipo in virgo mobile.

campoA = '23.56' giusto
campoA = 23.56 giusto
campoA = '23,56' Sbagliato (restituisce 23,00)
campoA = 23,56 OOOORRORE!!!!!

spero ti sia di aiuto.

**DeR** · 19-07-2004, 19:04

codice:

<%@ LANGUAGE="VBSCRIPT" %>
<% Option Explicit %>

<%
  Dim varModifica
  varModifica = request.QueryString("modifica")
  
  If varModifica = "si" Then
    
	 Dim ID, marca, modello, prezzo, prezzoRiv, img, imgGrande, categoria, catSpecifica, breveDesc, fullDesc, statoProdotto, disponibilita, promoProdotto
	 
	 ID = Trim(Request.Form("id"))
	 marca = Trim(Request.Form("marca"))
	 modello = Trim(Request.Form("modello"))
	 prezzo = Trim(Request.Form("prezzo"))
	 prezzoRiv = Trim(Request.Form("prezzoRiv"))
	 img = Trim(Request.Form("img"))
	 imgGrande = Trim(Request.Form("imgGrande"))
	 categoria = Trim(Request.Form("categoria"))
	 catSpecifica = Trim(Request.Form("catSpecifica"))
	 breveDesc = Trim(Request.Form("breveDesc"))
	 fullDesc = Trim(Request.Form("fullDesc"))
	 statoProdotto = Trim(Request.Form("statoProdotto"))
	 disponibilita = Trim(Request.Form("Disponibilita"))
	 promoProdotto = Trim(Request.Form("promoProdotto"))
	' #################################################################################
	 Dim sqlCount, varTotale
     sqlCount = "SELECT COUNT(*) AS totale FROM tbprodotti WHERE PromoProdotto = 'true'"

     Dim rsCount, errore
	 errore = false

     Set rsCount = objConn.Execute(sqlCount)
     varTotale = rsCount("totale")
     
	 'response.Write(varTotale)
     rsCount.close
	 Set rsCount = Nothing
	 
	 If varTotale < 7 Then
	    
	   If promoProdotto = "true" Then
	     
	     Dim sqlMod2

            sqlMod2 = "UPDATE tbprodotti SET MarcaProdotto = '" & marca & "', ModelloProdotto = '" & modello &"', " &_
	             "PrezzoProdotto = '" & prezzo & "',  PrezzoProdottoRiv = '" & prezzoRiv & "',  " &_ 
				 "ImgProdotto = '" & img &"', ImgGrandeProdotto = '" & imgGrande &"', " &_
				 "CategoriaProdotto = '" & categoria & "', CatSpecProdotto = '" & catSpecifica &"', " &_
				 "DescBreveProdotto = '" & breveDesc & "', DescCompProdotto = '" & fullDesc &"', " &_
				 "StatoProdotto = '" & statoProdotto & "', Disponibilita = '" & disponibilita & "', PromoProdotto = 'true' " &_
	             "WHERE IDProdotto = " & ID  
	     'Response.Write(sqlMod):response.End()			 
           objConn.Execute(sqlMod2)
	   Else
	   errore = true
	       Dim sqlMod3

            sqlMod3 = "UPDATE tbprodotti SET MarcaProdotto = '" & marca & "', ModelloProdotto = '" & modello &"', " &_
	             "PrezzoProdotto = '" & prezzo & "',  PrezzoProdottoRiv = '" & prezzoRiv & "',  " &_ 
				 "ImgProdotto = '" & img &"', ImgGrandeProdotto = '" & imgGrande &"', " &_
				 "CategoriaProdotto = '" & categoria & "', CatSpecProdotto = '" & catSpecifica &"', " &_
				 "DescBreveProdotto = '" & breveDesc & "', DescCompProdotto = '" & fullDesc &"', " &_
				 "StatoProdotto = '" & statoProdotto & "', Disponibilita = '" & disponibilita & "', PromoProdotto = 'true' " &_
	             "WHERE IDProdotto = " & ID  
	     'Response.Write(sqlMod):response.End()			 
           objConn.Execute(sqlMod3)
       End If
	
  
     Else
	 
	   Dim sqlMod

       sqlMod = "UPDATE tbprodotti SET MarcaProdotto = '" & marca & "', ModelloProdotto = '" & modello &"', " &_
	             "PrezzoProdotto = '" & prezzo & "',  PrezzoProdottoRiv = '" & prezzoRiv & "',  " &_ 
				 "ImgProdotto = '" & img &"', ImgGrandeProdotto = '" & imgGrande &"', " &_
				 "CategoriaProdotto = '" & categoria & "', CatSpecProdotto = '" & catSpecifica &"', " &_
				 "DescBreveProdotto = '" & breveDesc & "', DescCompProdotto = '" & fullDesc &"', " &_
				 "StatoProdotto = '" & statoProdotto & "', Disponibilita = '" & disponibilita & "', PromoProdotto = '" & promoProdotto &"' " &_
	             "WHERE IDProdotto = " & ID  
	  'Response.Write(sqlMod):response.End()			 
       objConn.Execute(sqlMod)
	
	End If
	 
	Dim sql2
    sql2 = "SELECT * FROM tbprodotti WHERE IDProdotto = " & ID 

    Dim rs2
    Set rs2 = objConn.Execute(sql2)

     Response.Write("<table align='center'><tr>")
     Response.Write("<td class='ScrittaRossaGrassetto'>MODIFICA PRODOTTI SEZ. INFORMATICA</td>")
     Response.Write("</tr></table>
")
	                    
     Response.Write("<form name='modulo' action='modificaProdotto.asp?modifica=si' method='post'>")
						
     Response.Write("<table align='center' width='300' border='0'>")
						
     Do While Not rs2.EOF
	    Response.Write("<input type='hidden' name='id' value='" & ID & "'>")
	    Response.Write("<tr><td class='ScrittaBlu'>ID :</td><td class='ScrittaRossaL'>" & rs2("IDProdotto") &"</td></tr>")
	    Response.Write("<tr><td class='ScrittaBlu'>Marca :</td><td><input class='ScrittaBlu' type='text' name='marca' value='" & rs2("MarcaProdotto") &"' size='30'></td></tr>")
	    Response.Write("<tr><td class='ScrittaBlu'>Modello :</td><td><input class='ScrittaBlu' type='text' name='modello' value='" & rs2("ModelloProdotto") &"' size='30'></td></tr>")
	    Response.Write("<tr><td class='ScrittaBlu'>Prezzo :</td><td><input class='ScrittaBlu' type='text' name='prezzo' value='" & rs2("PrezzoProdotto") &"' size='15'></td></tr>")
	    Response.Write("<tr><td class='ScrittaBlu'>Prezzo Rivenditore :</td><td><input class='ScrittaBlu' type='text' name='prezzoRiv' value='" & rs2("PrezzoProdottoRiv") &"' size='15'></td></tr>")
		Response.Write("<tr><td class='ScrittaBlu'>Img :</td><td><input class='ScrittaBlu' type='text' name='img' value='" & rs2("ImgProdotto") &"' size='30'></td></tr>")
		Response.Write("<tr><td class='ScrittaBlu'>Img Grande:</td><td><input class='ScrittaBlu' type='text' name='imgGrande' value='" & rs2("ImgGrandeProdotto") &"' size='30'></td></tr>")
		
		Dim cat2
		cat2 = rs2("CategoriaProdotto")
		
		Select Case cat2
		   Case "informatica"
		        Response.Write("<tr><td class='ScrittaBlu'>Categoria :</td><td><select class='ScrittaBlu' name='categoria'>"&_
		                                "<option class='scrittaBlu' value='informatica' selected>Informatica</option>"&_
								        "<option class='scrittaBlu' value='console'>Console</option>"&_
										"<option class='scrittaBlu' value='fotoVideo'>Foto-Video</option>"&_
	                                    "<option class='scrittaBlu' value='satellitare'>Satellitare</option></select></td></tr>")
		   Case "console"
		        Response.Write("<tr><td class='ScrittaBlu'>Categoria :</td><td><select class='ScrittaBlu' name='categoria'>"&_
		                                "<option class='scrittaBlu' value='informatica'>Informatica</option>"&_
								        "<option class='scrittaBlu' value='console' selected>Console</option>"&_
										"<option class='scrittaBlu' value='fotoVideo'>Foto-Video</option>"&_
	                                    "<option class='scrittaBlu' value='satellitare'>Satellitare</option></select></td></tr>")
		   Case "fotoVideo"
		        Response.Write("<tr><td class='ScrittaBlu'>Categoria :</td><td><select class='ScrittaBlu' name='categoria'>"&_
		                                "<option class='scrittaBlu' value='informatica'>Informatica</option>"&_
								        "<option class='scrittaBlu' value='console'>Console</option>"&_
										"<option class='scrittaBlu' value='fotoVideo' selected>Foto-Video</option>"&_
	                                    "<option class='scrittaBlu' value='satellitare'>Satellitare</option></select></td></tr>")
		  Case "satellitare"
		        Response.Write("<tr><td class='ScrittaBlu'>Categoria :</td><td><select class='ScrittaBlu' name='categoria'>"&_
		                                "<option class='scrittaBlu' value='informatica'>Informatica</option>"&_
								        "<option class='scrittaBlu' value='console'>Console</option>"&_
										"<option class='scrittaBlu' value='fotoVideo'>Foto-Video</option>"&_
	                                    "<option class='scrittaBlu' value='satellitare' selected>Satellitare</option></select></td></tr>") 
		End Select
		
	    Response.Write("<tr><td class='ScrittaBlu'>Cat. Specifica :</td><td><input class='ScrittaBlu' type='text' name='catSpecifica' value='" & rs2("CatSpecProdotto") &"' size='15'></td></tr>")
		Response.Write("<tr><td class='ScrittaBlu'>Breve Descrizione Prodotto(Max 150 Car.) :</td><td><textarea class='scrittaBlu' rows='6' cols='30' name='breveDesc'>" & rs2("DescBreveProdotto") &"</textarea></td></tr>")
		Response.Write("<tr><td class='ScrittaBlu'>Descrizione Completa Prodotto :</td><td><textarea class='scrittaBlu' rows='6' cols='30' name='fullDesc'>" & rs2("DescCompProdotto") &"</textarea></td></tr>")
	    
		If rs2("StatoProdotto") = "true" Then
		   Response.Write("<tr><td class='ScrittaBlu'>Prodotto :</td>"&_
						"<td><select class='scrittaBlu' name='statoProdotto'>"&_
	                    "<option class='scrittaBlu' value='true' selected>Disponibile</option>"&_
	                    "<option class='scrittaBlu' value='false'>NON Disponibile</option></select></td></tr>")
	    Else
		   Response.Write("<tr><td class='ScrittaBlu'>Prodotto :</td>"&_
						"<td><select class='scrittaBlu' name='statoProdotto'>"&_
	                    "<option class='scrittaBlu' value='true'>Disponibile</option>"&_
	                    "<option class='scrittaBlu' value='false' selected>NON Disponibile</option></select></td></tr>")
	    End If
		
		Response.Write("<tr><td class='ScrittaBlu'>Disponibilita :</td><td><input class='ScrittaBlu' type='text' name='disponibilita' value='" & rs2("Disponibilita") &"' size='15'></td></tr>")
		
		If rs2("PromoProdotto") = "true" Then
		   Response.Write("<tr><td class='ScrittaBlu'>Prodotto :</td>"&_
						"<td><select class='scrittaBlu' name='promoProdotto'>"&_
	                    "<option class='scrittaBlu' value='true' selected>IN Promozione</option>"&_
	                    "<option class='scrittaBlu' value='false'>NON in Promozione</option></select></td></tr>")
	    Else
		   Response.Write("<tr><td class='ScrittaBlu'>Prodotto :</td>"&_
						"<td><select class='scrittaBlu' name='promoProdotto'>"&_
	                    "<option class='scrittaBlu' value='true'>IN Promozione</option>"&_
	                    "<option class='scrittaBlu' value='false' selected>NON in Promozione</option></select></td></tr>")
	    End If
						    
	    
						  
        rs2.MoveNext
  
     Loop
    
     Response.Write("</table>
")
						
     Response.Write("<table align='center'><tr>")
     Response.Write("<td><input class='TestoBottoni' type='submit' name='invia' value='Invia'></td>")
     Response.Write("</tr></table>")
						
     Response.Write("</form>")
	 If errore Then
	  
	   Response.Write("<table align='center'>")
	   Response.Write("<tr><td class='ScrittaRossa'>IMPOSSIBILE MODIFICARE LO STATO PROMO!</td></tr>")
	   Response.Write("<tr><td class='ScrittaRossa'>I PRODOTTI IN PROMO, DEVONO ESSERE ALMENO 6!</td></tr>")
	   Response.Write("</table>")
	  
	 Else
	 
	   Response.Write("<table align='center'><tr>")
       Response.Write("<td class='scrittaRossa'>MODIFICHE AVVENUTE CON SUCCESSO!</td>")
       Response.Write("</tr></table>")
  
     End If
  
  rs2.Close
  Set rs2 = Nothing

Questa e una parte della mia pag

**DeR** · 19-07-2004, 19:23

Per inserire il prezzo di un prodotto ke campo dovrei usare?

**DeR** · 19-07-2004, 20:14

Ho notato ke quando inserisco un prezzo con il punto, nel db loscrive bene, pero mi cambia il punto in virgola, poi se lo rimodifico lasciando i numeri appena prelevati, siccome contengono la virgola si mangia la parte decimale.

**99eros9** · 19-07-2004, 20:24

conviene fare un replace

**DeR** · 19-07-2004, 20:36

var=Replace(var,",", ".")

Va bene, potresti aiutarmi?Per quanto riguarda:

Per inserire il prezzo di un prodotto ke campo dovrei usare?

**************************
Hai controllato come inserisco nel db? va bene?

prezzo = Trim(Request.Form("prezzo"))

oppure

prezzo = CDbl(Trim(Request.Form("prezzo")))

**99eros9** · 19-07-2004, 20:44

per quanto riguarda le valute, ii tipo di dato indicato è quello decimal. Questo valore lo devi inserire con la virgola decimale ovvero il punto.
Come ti dicevo, il tipo di dato decimal lavora in un certo senso sia su valori in virgola mobile che su valori di tipo stringa, quanto meno in mysql proprio per mantenere la precisione decimale dei valori memorizzati.
Per quanto mi riguarda, il modo in cui inserisci il dato è giusto.. hai solo dei dubbi o la cosa continua a non funzionare?

prezzo = Trim(Request.Form("prezzo"))

questo va bene, magari fai subito un replace proprio lì

Discussione: Problema con db mySQL campo decimal

Strumenti discussione

Ricerca discussione

Visualizza

Problema con db mySQL campo decimal

Permessi di invio