rs.addnew

javihb · #1 (**permalink**) 20/12/2004, 13:58

Hola vereis tengo una duda...es posible dejar un campo sin contenido al inserta con rs.addnew, me explico tengo un formulario y quiero que todos los campos sean opcionales osea que se pueden o no meter es posible???

Trulala de cordoba · #2 (**permalink**) 20/12/2004, 14:51

Hola:

Si en la base de dato el campo es opcional si podes. Fijate en la base de datos que el los campos tengan el "Permitir longitud cero" en "Sí".
Suerte

dobled · #3 (**permalink**) 20/12/2004, 14:51

si se puede. por que lo preguntas te da algun error?

javihb · #4 (**permalink**) 20/12/2004, 16:02

pues si que me da problemas vereis tengo esto para insertar en la db

Código:

If fileSize > 0 Then
    
      Dim connStr
        connStr = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="
        connStr = connStr & Server.MapPath("bromur.mdb")
    
      Dim rs
	  
        Set rs = Server.CreateObject("ADODB.Recordset")
        
        rs.Open "productos", connStr, 2, 2
       
          rs.AddNew
		  rs("familia") = famiInput
		  rs("codigo") = codigoInput
		  rs("foto").AppendChunk fileData
                            rs("nombre_fichero") = fileName
                            rs("tamano_fichero") = fileSize
                            rs("tipo_fichero") = contentType
		  rs("descripcion") = descInput
		  rs("altura") = alturaInput
		  rs("diametro") = diametroInput
		  rs("bombillas") = bombInput
		  rs("tipo") = tipoInput
		  rs("potencia") = potenciaInput 
		  rs("precio") = precioInput 
        rs.Update
        
        rs.Close
        Set rs = Nothing
        
      Response.Write "<center><font color=""red"">El Producto ha sido guardado correctamente...</center>"
      Response.Write "</font>"
    Else
      Response.Write "<font color=""red""><center>No has seleccionado ning&uacute;na foto para guardar"
      Response.Write "...</center> </font>"
    End If
      
      
    If Err.number <> 0 Then
      Response.Write "<br><font color=""red"">mmm... algo ha ido mal..."
      Response.Write "</font>"
    End If
  %>

y en la base de datos los campos de texto tengo "Permitir longitud cero" en "Sí". y en los numericos requerido=no y si dejo algun campo vacio me salta el fallo "Tipo Incorrecto" en la linea donde añado el campo que dejo vacio ó me da este fallo Instrucción SQL no válida; se esperaba 'DELETE', 'INSERT', 'PROCEDURE', 'SELECT' o 'UPDATE'.

PMP · #5 (**permalink**) 21/12/2004, 05:20

Es correcto.
Cuando haces rs.AddNew, no puedes dejar ningun campo vacío porque fijate como quedaría.

Código PHP:

  rs.AddNew

rs(campo1) = "valor1"

rs(campo2) = "valor2"

rs(campo3) =

rs(campo4) = "valor4"

......

En cambio lo que sí puedes hacer si en ejemplo anterior no tienes el "valor3", es lo siguiente:

Código PHP:

  rs.AddNew

rs(campo1) = "valor1"

rs(campo2) = "valor2"

rs(campo4) = "valor4"

......

Si lo quieres hacer con una sentencia SQL, lo prodrías hacer de la siguiente forma.

Código PHP:

  Dim varCant       'Tipo de dato int'

Dim varNombre     'Tipo de dato varchar'

Dim varApellido   'Tipo de dato varchar'

Dim strSQL

 
varCant  = Cint("0" & Request.Form("frmCant"))

varNombre = Request.Form("frmNombre")

varApellido = Request.Form("frmApellido")

 
strSQL = "INSERT INTO tabla (cantidad, nombre, apellido) " &_

         "VALUES (" & varCant & ", '" & varNombre & "', '" & varApellido & "')"

Se entiende? y si estoy equivocado que alguien me lo haga saber por favor.