registros en access

[darb]

Lanza este error al tratar de ver la pagina:

Error Type:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E21)
Multiple-step OLE DB operation generated errors. Check each OLE DB status value, if available. No work was done


y ese error es en esta parte del codigo:


<% if (Request.Form+"."!="undefined")
{
Ob_Conn=new ActiveXObject("ADODB.Connection")
Ob_RNuevo=new ActiveXObject("ADODB.RecordSet")
Ob_Conn.Open("CISAP2039")
Ob_RNuevo.Open("LISTOTAL",Ob_Conn,adOpenStatic,adC mdTable)
Ob_RNuevo.AddNew()
Ob_RNuevo("PROY")=Request.Form("proyecto")
Ob_RNuevo("SITEM")=Request.Form("fase")
Ob_RNuevo("TIPDOC")=Request.Form("Tipo")
----------
----------
----------
----------
----------
Ob_RNuevo("FECHA_RESPUESTA")=Request.Form("") ERROR

si me pudiesen ayudar por favor. Gracias. El problema es k tengo k insertar un registro pero no todos sus campos, por lo k estoy tratando de k los k no hay k llenar sean blancos

[Myakire]

Obiamente esta sintaxis esta mal: Request.Form(""). Ahora, recuerdo que ya habías posteado este mensaje y ta habían aconsejado ir formando el INSERT desde SQL. Lo cual es lo mejor para lo que necesitas. Aunque puedes hacer lo siguiente como alternativa:

Código:

<%
{
Ob_Conn=new ActiveXObject("ADODB.Connection")
Ob_RNuevo=new ActiveXObject("ADODB.RecordSet")
Ob_Conn.Open("CISAP2039")
Ob_RNuevo.Open("LISTOTAL",Ob_Conn,adOpenStatic,adCmdTable)
Ob_RNuevo.AddNew()
if (Request.Form("proyecto") != "") 
   Ob_RNuevo("PROY")=Request.Form("proyecto")
if (Request.Form("fase") != "") 
   Ob_RNuevo("SITEM")=Request.Form("fase")
if (Request.Form("Tipo") != "") 
   Ob_RNuevo("TIPDOC")=Request.Form("Tipo")

Si el diferente no te funciona, verifica por la longitud, por si es nulo o por cualgo que te haga saber si el request respectivo viene vacio o no

Saludos

[darb]

pero esto me sirve en el caso k no necesito guardar todos los campos de un registro??????, pork me anza este error:
"Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][ODBC Microsoft Access Driver]Error in row "
al momento de realizar el
Ob_RNuevo.Update()

[Myakire]

No entendí con "esto", te refieres al INSERT o a los if del AddNew.

Con los if asignas los valores a los campos que tengas y luego puedes mandar blancos o ceros a los campos que quieras se quedan vacios.

o puedes usar un var de vectores, uno para los campos y otro para los valores respectivos:

<%
varfields=Array("NomProducto","Precio","Cantidad")
varvalues=Array("Llanta","19","24-12 oz botellas")
rs.AddNew varfields,varvalues
%>

[darb]

al momento de realizar el OB_Nuevo.Update(), es necesario tener todos los campos??????????
pork no necesito insertar valores en todos los campos y eso es lo k me complica

[Myakire]

No.

Lo que hayas cambiado se cambiará, lo que no........., pues no.

Puedes hasta definir los campos a ser cambiados: objRecordset.Update fields,values

Donde fields y values pueden ser vectores.