Tema: rs.addnew
Ver Mensaje Individual
  #4 (permalink)  
Antiguo 20/12/2004, 16:02
javihb
 
Fecha de Ingreso: octubre-2004
Mensajes: 230
Antigüedad: 20 años, 8 meses
Puntos: 0
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'.