Los Foros de ASPTutor.com
Home | Perfil | Registrarse | Temas Activos | Miembros | Buscar | FAQ
Usuario:
Password:
 Todos los Foros
 ASP
 Microsoft JET Database Engine (0x80040E10)
 Foro Bloqueado  Tema Bloqueado


Autor Temas
verdi200
Starting Member

España
9 Posts
Mensajes - 02 Jul 2008 :  22:05:59  Ver Perfil  Enviar Email
Buenas a todos tengo un problema con un gestor de contenidos que me da este error al grabar un arxivo nuevo, pero no me lo da al modificarlo. He oido por diferentes fuentes que puede ser un tema de comillas en un insert, pero no ser yo diria que esta bien , os adjunto el codigo y si alguien me puede decir algo le estaria agradecido:

if strID<>"" AND strID<>"0"  then
strsql="UPDATE cms_t_menus SET " & _
"Title='" & SQLSafeString(strTitle) & _
"',descrip='" & SQLSafeString(strHyperLink) & _
"',Active='" & SQLSafeString(strActive) & _
"',foto=" & SQLSafeString(strSequence)

strsql=strsql & " WHERE ID=" & SQLSafeString(strID)
'Response.Write strsql
'Response.write "<BR>" & strHouseType1
call conclass.ExecuteDML (strsql,strErrorMessages)
IF strErrorMessages<>"" THEN
strErrorMessages = "Could not update the menu information. " & strErrorMessages
END IF
else

strsql= "INSERT INTO cms_t_menus(Title,descrip,Active,foto"
strTemp= " VALUES('" & SQLSafeString(strTitle) & "','" & SQLSafeString(strHyperLink) & "','" & _
SQLSafeString(strActive) & "'," & strSequence
strsql=strsql & ") " & strtemp & ")"
'Response.Write strsql
'Response.write "<BR>" & strHouseType1
call conclass.ExecuteDML (strsql,strErrorMessages)
IF strErrorMessages<>"" THEN
strErrorMessages = "Could not add the menu. <BR>" & strErrorMessages
END IF

end if
end if
if strErrorMessages="" then
Response.Redirect "List.asp?View=" & strView
end if

DonGato
Moderator

España
263 Posts
Posted - 03 Jul 2008 :  00:26:07  Ver perfil  Enviar e-mail  Visit DonGato's Homepage
A ver, a simple vista el error que veo en el insert es que te falta cerrar el parentesis de los campos a parte que lo cierras mal más adeltante:
EL insert debería ser así:

strsql= "INSERT INTO cms_t_menus(Title, descrip, Active, foto) values ('"& SQLSafeString(strTitle) &"', '"& SQLSafeString(strHyperLink) &"','"& _SQLSafeString(strActive) &"','"&strSequence&"') "

Edited by - DonGato on 03 Jul 2008 00:27:36Inicio Pagina

verdi200
Starting Member

España
9 Posts
Posted - 03 Jul 2008 :  07:57:37  Ver perfil  Enviar e-mail
Por fin gracias por la ayuda !!!
Al final era un tema de comillas en el codigo [codi] strsql=strsql & ") " & strtemp & "')"[/codi]


Inicio Pagina

verdi200
Starting Member

España
9 Posts
Posted - 03 Jul 2008 :  11:29:18  Ver perfil  Enviar e-mail
Bueno creia que lo habia logrado, pero ahora me da el error al reves, me deja entrar registros nuevos pero al realizar una modificacion cuando modifico los registros i pulso modificar me sale el error:0x80040E10 , ya no ser que hacer

A ver tengo dos programas en asp que controlan la entrada y modificación de registros.
Uno se llama AddModifydelete.asp y el codigo es:

<%@ Language=VBScript %>
<%option explicit%>
<!-- #INCLUDE file="../../Includes/PortalConection.asp"-->
<!-- #INCLUDE file="../../Includes/Database.asp"-->
<%
strRootpath= "../../"
%>

<!-- #INCLUDE file="../../Includes/validsession.asp"-->

<%
dim conclass,rst,strsql, strID,strTitle,strSequence
dim strTemp, strTemp2,strErrorMessages,strHyperLink
dim straction,strActive,strView

straction=QuerySafeString(TRIM(Request.QueryString("action")))
set conclass =new ClsDataBase
conclass.getconnectionstring = PortalConnectString
strErrorMessages=""

if strAction="DEL" then
strID= QuerySafeString(TRIM(Request.QueryString("ID")))
strView= QuerySafeString(TRIM(Request.QueryString("View")))
if strID<>"" AND strID<>"0" then
strsql="DELETE FROM cms_t_menus "
strsql=strsql & " WHERE ID=" & SQLSafeString(strID)
'Response.Write strsql
'Response.write "<BR>" & strHouseType1
call conclass.ExecuteDML (strsql,strErrorMessages)
IF strErrorMessages<>"" THEN
strErrorMessages = "Could not delete the menu information. " & strErrorMessages
END IF
END IF

else

strID= QuerySafeString(ucase(TRIM(Request.Form("txtID"))))
strTitle= QuerySafeString(TRIM(Request.Form("txtTitle")))
strHyperLink= QuerySafeString(TRIM(Request.Form("txtHyperlink")))

'Response.Write strHyperLink
'Response.End
strSequence=QuerySafeString(TRIM(Request.Form("txtSequence")))
strActive=QuerySafeString(TRIM(Request.Form("txtActive")))
strView= QuerySafeString(TRIM(Request.Form("txtView")))

if strActive="" then strActive="N"


if strID<>"" AND strID<>"0" then
strsql="UPDATE cms_t_menus SET " & _
"Title='" & SQLSafeString(strTitle) & _
"',descrip='" & SQLSafeString(strHyperLink) & _
"',Active='" & SQLSafeString(strActive) & _
"',foto=" & SQLSafeString(strSequence)

strsql=strsql & " WHERE ID=" & SQLSafeString(strID)
'Response.Write strsql
'Response.write "<BR>" & strHouseType1
call conclass.ExecuteDML (strsql,strErrorMessages)
IF strErrorMessages<>"" THEN
strErrorMessages = "Could not update the menu information. " & strErrorMessages
END IF
else


strsql= "INSERT INTO cms_t_menus(Title, descrip, Active, foto"
strTemp= " VALUES('" & SQLSafeString(strTitle) & "', '" & SQLSafeString(strHyperLink) & "','" & _
SQLSafeString(strActive) & "','" & strSequence
strsql=strsql & ") " & strtemp & "')"
'Response.Write strsql
'Response.write "<BR>" & strHouseType1
call conclass.ExecuteDML (strsql,strErrorMessages)
IF strErrorMessages<>"" THEN
strErrorMessages = "Could not add the menu. <BR>" & strErrorMessages
END IF

end if
end if
if strErrorMessages="" then
Response.Redirect "List.asp?View=" & strView
end if
%>
<HTML>
<HEAD>
<!-- #INCLUDE file="../../Includes/Styles.asp"-->

</HEAD>
<BODY>
<%=strErrorMessages%>
<P>&nbsp;</P>
<A HREF="../../Admin/Menus/List.asp?View=<%=strView%>"> Back to List</A>
</BODY>
</HTML>

y el otro que se llama AddModifyInput y el codigo es:


<%@ Language=VBScript %>
<%option explicit%>
<!-- #INCLUDE file="../../Includes/PortalConection.asp"-->
<!-- #INCLUDE file="../../Includes/Database.asp"-->
<%
strRootpath= "../../"
%>

<!-- #INCLUDE file="../../Includes/validsession.asp"-->

<%
function FileListOption(pstrFilePath,pstrFileTypeNeeded,pstrRelativefolderpath,pstrDefaultValue)
dim strTemp,intCounter,strTemp1
dim f,f1,fso,fc,s
set fso=CreateObject("Scripting.FileSystemObject")

set f=fso.GetFolder(pstrFilePath)
strTemp=""

for each f1 in f.Files
if (f1.type = pstrFileTypeNeeded) then
strTemp1= pstrRelativefolderpath & f1.name
if pstrDefaultValue="" then
strTemp= strTemp & "<OPTION value ='" & strTemp1 & "' >" & f1.name & "</OPTION>"
elseif pstrDefaultValue = strTemp1 then
strTemp= strTemp & "<OPTION value ='" & strTemp1 & "' selected>" & f1.name & "</OPTION>"
else
strTemp= strTemp & "<OPTION value ='" & strTemp1 & "' >" & f1.name & "</OPTION>"
end if
end if
next
FileListOption=strTemp

end function

dim strTable


dim conclass,rst,strsql, strID,strTitle
dim strTemp, strTemp2,strErrorMessages,strHyperLinkText,strHyperLinkCombo
dim strSequence,strActive,strView,strError

strID= QuerySafeString(TRIM(Request.QueryString("ID")))
strView=QuerySafeString(TRIM(Request.QueryString("View")))
set conclass =new ClsDataBase
conclass.getconnectionstring = PortalConnectString

if strID<>"" AND strID<>"0" then

strsql = "SELECT *" & _
" FROM cms_t_menus" & _
" WHERE ID=" & strID
'Response.write strsql
'aa=true
'Response.end
set rst= conclass.Execute (strsql,strError)
if strError<>"" then
else
if NOT (rst.eof and rst.bof) then
strID=rst.Fields("ID")
strTitle=rst.Fields("Title")
strHyperLinkCombo=rst.Fields("descrip")
strActive=rst.Fields("Active")
strSequence=rst.Fields("foto")
end if
end if

if instr(ucase(strHyperLinkCombo),"HTTP")>0 then
strTable = FileListOption( fileuploadpath,"HTML Document","HTMLFiles/","")
strHyperLinkText=strHyperLinkCombo
else
strTable = FileListOption( fileuploadpath,"HTML Document","HTMLFiles/",strHyperLinkCombo)
end if
else
strTable = FileListOption( fileuploadpath,"HTML Document","HTMLFiles/","")
end if
%>
<HTML>
<HEAD>
<TITLE>
<%if strID<>"" then
Response.Write "Menu - " & strTitle
else
Response.Write "Add new menu"
end if
%>

</TITLE>
<!-- #INCLUDE file="../../Includes/Styles.asp"-->

<SCRIPT LANGUAGE=javascript>
<!--
function SaveData() {
var vfrmForm = document.frmForm;
var objControl;
var strTemp;
objControl=vfrmForm.txtTitle ;
strTemp=objControl.value;
if (!strTemp ) {
alert('Please enter title');
objControl.focus();
return;
}
objControl=vfrmForm.txtHyperlink ;
strTemp=objControl.value;
if (!strTemp ) {

alert('Please enter URL');
objControl.focus();
return;

}
objControl=vfrmForm.txtSequence ;
strTemp=objControl.value;
if (!strTemp ) {
alert('Please enter display sequence');
objControl.focus();
return;
}
objControl=vfrmForm.chkActive ;
vfrmForm.txtActive.value = 'N';
if (objControl.checked==true) {
vfrmForm.txtActive.value = 'Y';
}

vfrmForm.submit();
}
function AbortChanges() {
location.replace('List.asp?View=<%=strView%>');
}

//-->
</SCRIPT>
</HEAD>
<BODY>
<h3>Set Menu Item</h3>

<FORM action="../../Admin/Menus/AddModifyDelete.asp" method=POST id=frmForm name=frmForm>
<table border="2" cellspacing="0" cellpadding="6" bordercolor="#C0C0C0" style="font-size: smaller;">
<TR>
<%IF (strID="" or strID="0") then%>
<%else%>
<TD><strong>Menu ID</strong></TD>
<TD><%=strID%></TD>

<%end if%>

</TR>
<TR>
<TD><strong>Title</strong></TD>
<TD><INPUT type="text" id=txtTitle name=txtTitle value='<%=strTitle%>' maxlength=100></TD>
</TR>
<TR>
<TD><strong>URL</strong></TD>
<TD>
Enter Path<br>
<textarea id=txtHyperlink name=txtHyperlink ></textarea><%=strHyperLinkText%> </textarea>

</TD>
</TR>
<TR>
<TD><strong>Display Sequence</strong></TD>
<TD>
<INPUT type="Text" id=txtSequence name=txtSequence value='<%=strSequence%>' maxlength=35></TD>
</TR>
<TR>
<TD><strong>Active</strong></TD>
<TD>
<INPUT type="checkbox" id=chkActive name=chkActive value='<%=stractive%>' <% if strActive="Y" then Response.Write "checked"%> >
</TD>
</TR>


<TR bordercolor=White>
<TD style="border:none">&nbsp;
</TD>
<TD align=center style="border:none">
<TABLE> <TR>
<TD><INPUT type="button" value="<%if strid="" or strid="0" then
Response.Write "Add"
else
Response.Write "Modify"
end if %>" id=cmdOK name=cmdOK onclick = "SaveData();">
</TD>
<TD><INPUT type="button" value="Cancel" id=cmdCancel name=cmdCancel onclick = "AbortChanges();">
</TD>
</TR>
<TABLE>
</TD>
</TR>

</TABLE>
<INPUT type="hidden" id=txtID name=txtID value="<%=strID%>">
<INPUT type="hidden" id=txtActive name=txtActive value=''>
<INPUT type="hidden" id=txtView name=txtView value="<%=strView%>">

</FORM>

<P>&nbsp;</P>

</BODY>
</HTML>

El error es Microsoft JET Database Engine (0x80040E10)Faltan especificar parametos requeridos

Yo ya no ser que hacer !!!

Gracias

Inicio Pagina

verdi200
Starting Member

España
9 Posts
Posted - 03 Jul 2008 :  14:39:29  Ver perfil  Enviar e-mail
He observado que si entro los registros desde access, luego la aplicacion en asp funciona de maravillas, encambio si entro los registros a través de ASP, la aplicación falla cuando quiero guardar un registro modificado


Inicio Pagina

DonGato
Moderator

España
263 Posts
Posted - 03 Jul 2008 :  22:18:53  Ver perfil  Enviar e-mail  Visit DonGato's Homepage
vale, mucho codigo para verlo en un momento.
dejame verlo con calma a ver si te puedo ayudar.
PD: que mania se usar bbdd access.

Inicio Pagina

   
 Foro Bloqueado  Tema Bloqueado
Ir a:
Los Foros de ASPTutor.com Los Foros de ASPTutor.com
Ir al principio de la Página

 Imprimir Tema
 

Descargas de manuales¦ Ejemplos de código ¦ Artículos mas visitados ¦ Envía tu articulo ¦ Foros ¦
  Libro de visitas ¦Crea un enlace con ASPTutor 
 

    © 2001-Hasta hoy  Pedro Rufo Martín  contactar