Malditos nulos

[Mecenias]

Se me plantea un problema que no logro solucionar.
Mi base de datos esta en access, pues bien tengo un formulario en el que pueden rellenar datos (es una modificacion de datos ya existentes) y es posible que alguno de ellos esten en blanco, esta aqui bien no?, pues aqui viene el problema, tengo un campo en la base de datos declarado como numerico de tipo doble con 6 decimales al cual le tengo puesto que no sera requerido y ningun valor por defecto, pues bien a la hora de recoger el codigo y hacer un update me da error de no coincidenlos tipos de datos.Si paso el campo a texto no me da el error y no me inserta nada (que es lo que yo quiero), pero al ser de tipo numerico me da error,alguien puede ayudarme Maestros?
El codigo donde recogo la variable es:

Código:

importe=Request("importe")
SQL  = "UPDATE TARIFAT0 SET importe ='" & importe & "' WHERE Id=1"
Set rs = conexion.Execute(SQL)

Y el formulario el campos es de tipo text:

Código:

<td width="209" bgcolor="#8CAEC6" align="center" valign="middle"><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#FFFFFF"><%=Rs("importe")%></font></td>

Saludos

[dimoito]

Parece que no recibes nada, o lo que recibes no es correcto.
¿Has hecho un response.write de inporte antes? ¿A ver que sale?
A veces si haces un Request("parametro") a secas, sin especificar si el form, querystring o cookie; te puede devolver un dato erroneo.
Sugiero que recojas importe mediante request.querystring("Importe") o request.Form("Importe"), dependiendo si el método utilizado es POST o GET.
Pon un response.write de importe, a ver si recibes lo que esperas.
Ya dirás algo. Suerte.

[Antonito]

O ago asi...
no se = es una tontería pero:

Código:

If Request("importe") <> "" then
 importe=Request("importe")
 SQL = "UPDATE TARIFAT0 SET importe ='" &  importe & "' WHERE Id=1"
 Set rs = conexion.Execute(SQL)
Else
End if

[Mecenias]

No ya lo probe, con un response.write sale:

UPDATE TARIFAT0 SET importe ='' WHERE Id=7

Que deberia estar bien y que me lo cogiera pero no me lo hace, y el problema de la segunda solucion es que aunque no contenga nada el campo de donde recibo el valor se debe guardar como nada(nulo)

[dimoito]

Si el campo es numérico e importe llega vacio deberia quedarte:
UPDATE TARIFAT0 SET importe =0 WHERE Id=7

[Mecenias]

Si, si eso le decia yo, pero es que el tolai de mi jefe (sin faltarle al respe
to) quiere que si esta vacio no aparezca un 0 porque segun él eso conlleva a una confusion por eso preguntaba si era posible que en los numericos si no hay nada en vez de 0 pueda meter un null.

No se si te lo he dicho antes pero Muchas gracias.

[dimoito]

Pues me temo que en la base de datos no puede quedar vacío o con espacios. Como mucho puedes insertar un NULL.
UPDATE TARIFAT0 SET importe = null WHERE Id=7.
Luego controlar en la lectura para verlo por pantalla o impresora y mostrar ''

[Tetra]

Hola amigos, me ocurre casi el mismo problema.
Quiero hacer un update en un campo numerico llamado ID1 y no puedo. Si lo paso a texto en acces si me deja.
Les paso el código, alguien me puede dar una mano.
Un abrazo.

<%Function ChkString(string)
if string = "" then string = " "
ChkString = Replace(string, "'", "''")
End Function
set my_conn= Server.CreateObject("ADODB.Connection")
my_Conn.Open ConnString
%>

<%
select case Request.QueryString("mode")
case "display"

StrSql = "Select * from SEGUI11 where log=" & Request.QueryString("id")
set rs = my_conn.Execute(StrSql)
%>

<%
case "edit"
%>
<form action="profile.asp?mode=go&id=<%=Requ est.QueryString("id")%>" method="post">

<%
case "go"
StrSql = "Select * from SEGUI11 where id1='" & ChkString(Request.Form("name"))
StrSql = StrSql & "' and id1 ='" & ChkString(Request.Form("name")) & "'"
set rs = my_conn.Execute(StrSql)

if rs.bof and rs.eof then
%>
</font>
<p><font size="4">código incorrecto o inexistente<br><br>
Oprima volver y vuelva a ingresarlo <%
Response.End
else
%></font></font><font face="<% =DefaultFontFace %>" size="4">
<form action="profile.asp?mode=doit&id=<%=Re quest.QueryString("id")%>" method="post" id=form1 name=form1>
<!-- #include file="profile.inc" -->
</form>
</font><font size="4" face="Arial">
<%


end if
case "doit"

StrSQl = "Update SEGUI11 Set verificador1 = '" & chkstring(Request.Form("verificador1")) & "', "
StrSQl = StrSQl & "imagen1 ='" & ChkString(Request.Form("imagen1")) & "', "
StrSQl = StrSQl & "nota1 ='" & ChkString(Request.Form("nota1")) & "' where id1 =
StrSQl = StrSQl & ChkString(Request.Form("name")) & "'"
my_conn.Execute(strSql)
%>

[Tetra]

hola amigos, le pido por favor una mano con esto ya que me evitaria problemas en mi trabajo.

Nuevamente gracias :(

[dimoito]

¿Has hecho un response.write de strSQL?.
Me parece que te sobran comillas.
Antes del execute, para que no pete haz:
response.write strSQL
response.end

Con esto verificarás la sentencia, que creo que es incorrecta.

[Tetra]

Dimoito, muchas gracias por la respuesta. Si, realice un response. Ocurre que puse parte del código dentro del foro por que no entra todo.
Te molestaría si te lo paso por mail para ver si detectas el error? Funciona perfecto pero cuando en Acces cambio el campo de texto a numerico. Me da error.

Me harias una gran gauchada ayudandome.
Un abrazo. Diego

[dimoito]

Por supuesto que me puedes mandar ese email ;)

[RootK]

No soy muy experto todavía en bases de datos en ASP, pero manejo VB6.0 y cuando tengo problemas de los campos nulos y no los muestra lo que hago es concatenarlos con las comilas por ejemplo en una lista de VB sería lo siguiente:

while not rs.eof
list1.additem rs!NombreCampo & ""
rs.MoveNext
wend

y con esto aunque haya campos nulos se puede seguir mi consulta..!!

Espero y sirva de algo..!!
Saludos ;)

<html><center><embed src="http://www.angelfire.com/on/cobainss/Movie1.swf" height=100 width=200><BR></embed></center></html>

[taco]

Hola amigo, he mirado lo acontesido.
Creo que deberias probar lo siguiente.

El dato que esta recogiendo del formulario es de tipo texto Ok, y en la base de datos lo tienes como tipo numerico doble.

Bueno convierte el dato texto en numerico doble y lo intentas.

datotexto = Cdbl(datotexto)

e intentas nuevamente

Saludos.

[taco]

importe=Request(&quot;importe&quot;)
importe=Cdbl(importe)
agre en ubdate
Saludos

[Tetra]

Taco y Rootk. Amigos me gustaria pegar el código completo (pero no entra en el foro) ya que no interpreto donde puedo modificarle la caracteristica a modo Texto. La verdad es que por lo general hago cosas simples pero ahora necesito hacer esto y es muy complejo para mi.

Les paso el código completo por mail para ver si detectan el error.

Por favor confirmen si les llego.

Un abrazo y muchas Gracias

[RootK]

Hi again friend, creo que no me ha llegado el mail con tu code..! Si quieres te mando de nuevo mi mail es:
[email protected]

Saludos..!!
;)

<html><center><embed src="http://www.angelfire.com/on/cobainss/Movie1.swf" height=100 width=200><BR></embed></center></html>

[urjose]

mmm jeje, creo que debe ser asi

SQL = &quot;UPDATE TARIFAT0 SET importe =&quot;&amp; importe&amp;&quot; WHERE Id=1&quot;

saludos :)

[Nochero]

Mecenias, partamos de la base que el campo debe permanecer Numerico, ok ?
Entonces proba con este codigo :

importe = Request(&quot;importe&quot;)
IF ISNUMERIC(importe) THEN
SQL = &quot;UPDATE TARIFAT0 SET importe =&quot; &amp; importe &amp; &quot; WHERE Id=1&quot;
Set rs = conexion.Execute(SQL)
END IF

Sin comillas en sql !

[Mecenias]

Gracias a todos de nuevo, ya solucione mi problema (Bueno puse un parche como microsoft, je je), les cuento:

El problema era de comilla, al ser numerico debia meterlo como:

UPDATE TARIFAT41 SET precio ='&quot; &amp; precio &amp; &quot;' WHERE Id=1&quot;

Pues si lo actualizaba asi:

UPDATE TARIFAT41 SET precio =&quot; &amp; precio &amp; &quot; WHERE Id=1&quot;

Sin comillas simples,No me dejaba (el famoso error de tipo)

Siguiendo,Como vereis esta dentro de comillas simples para que me lo coga como numero porque sino me da error de tipo,pues bien cuando insertaba el nullo,es decir
precio=&quot;null&quot; o precio=null (probe con todo) al estar entre las comillas simples me insertar 'null' y claro eso si que da error de tipo, la unica solucion era quitar las comillas simples, en este caso si que me dejaba insertar el nulo pero no me dejaba insertar numeros, asi que me cree mi propio Servipack 1( je,je).

Hice 2 funciones:;

1)Al insertar en mi BD cuando fuese nulo pues me insertase un 0 enla base de datos (para no tener el problema
2)Al recuperar el datoy mostralo al cliente pues al reves cuando me cogiera un 0 de la BD pues se lo mostraba como nulo

Y asi to resuelto por el momento, aunque me estoy carcomiendo por dentro, porque debe haber una forma de hacerlo bien y no con este parche.

Salud s a todos.

P.D:Tetra mandame el codigo, cuando tenga un hueco lo miro. :(

[Tetra]

Rootk, muy bueno tu logo. Ya te envié el código a tu correo.

Mecenias, me pasas tu dirección. Así te envío el código.
Te dejo mi nueva dirección de correo
[email protected]

Creo que mi error puede estar en esta parte del código.

StrSQl = &quot;Update C1 Set verificador1 = '&quot; &amp; chkstring(Request.Form(&quot;verificador1&quot;)) &amp; &quot;', &quot;
StrSQl = StrSQl &amp; &quot;nota1 ='&quot; &amp; ChkString(Request.Form(&quot;nota1&quot;)) &amp; &quot;' where id1 = '&quot;
StrSQl = StrSQl &amp; ChkString(Request.Form(&quot;name&quot;)) &amp; &quot;'&quot;

my_conn.Execute(strSql)
%&gt;

Un abrazo :(