Erro no Execute

[vinycius 0]

A mensagem de erro é esta:Microsoft OLE DB Provider for ODBC Drivers error '80004005' [Microsoft][ODBC Microsoft Access Driver] Operation must use an updateable query. /DUclassified41/admin/inc_cats.asp, line 162 A linha do erro contém isto:MM_editCmd.ExecutePor favor me ajudem estes erros acontecem no DUclassifiedsNão sei mais o que fazer.Obs.: Sou iniciante em ASP, mas preciso disso para um trabalho.

[Salgado 4]

Verifique se as pastas estão com permissão de escrita, bem como o arquivo do banco de dados.

[rockbilly 0]

Tente colocar um pedaço do código (principalmente o que envolve o erro) para nós darmos uma olhada!

[vinycius 0]

Esta é uma parte de um dos arquivo onde dá o erro: If (Not MM_abortEdit) Then ' execute the insert Set MM_editCmd = Server.CreateObject("ADODB.Command") MM_editCmd.ActiveConnection = MM_editConnection MM_editCmd.CommandText = MM_editQuery MM_editCmd.Execute MM_editCmd.ActiveConnection.Close

[vinycius 0]

Por favor alguem poderia me ajudar nessa situação, pois preciso muito disto.Agradeço quem puder me orientar..

[WebASP 0]

Verifique se as pastas estão com permissão de escrita, bem como o arquivo do banco de dados.

Você verificou se as pastas tem permissão de gravação pois o erro"Operation must use an updateable query"e quando o banco de dados esta numa pasta que nao tem permissao ou esta apenas leitura

[vinycius 0]

Web ASP já olhei as propriedades das pastas e do banco de dados, o BD está como arquivo e as pastas não tem nada selecionado, estou fazendo isso pelo Windows Explorer, mas estou trabalhando com os arquivos no Dreamwaver, existe alguma maneira de ver isso no dreamwaver???Obrigado pela atenção.

[vinycius 0]

Alguem poderia me ajudar em relação ao meu problema???

[JucaMaster 0]

Bom dia vinycius, Cara você tem que fazer o seguinte. Vai na pasta onde está o seu bd e clica com o botão direito do seu mouse. Clique em propriedades/segurança/permissões/adicionar. Lá você vai selecionar os usuários que vão ter permissão de escrita no seu bd. Se você quizer dar permissão à todos os usuários, é só você clicar em todos (este é padrão do windows) e dê as permissões de escrita e leitura. Se você adicionar um usuário tb, dê as permissões de escrita e leitura. QQ dúvida posta aí kra!! Valew JucaMaster

[vinycius 0]

Kra eu devo estar ficando meio burro ou completamente, desculpe a minha ignorância, mas não consigo achar o caminho que você me falou, fui no windows explorer, no access, no dreamwaver e não acho isso em lugar nenhum, bom estou usando o Windows 98 e o access é do pacote officce XP.O que eu faço???Me desculpem, mas como expliquei sou cabaç neste assunto. E preciso de ajuda...

[JucaMaster 0]

Kra eu devo estar ficando meio burro ou completamente, desculpe a minha ignorância, mas não consigo achar o caminho que você me falou, fui no windows explorer, no access, no dreamwaver e não acho isso em lugar nenhum, bom estou usando o Windows 98 e o access é do pacote officce XP.O que eu faço???Me desculpem, mas como expliquei sou cabaç neste assunto. E preciso de ajuda...

você tem que clicar com o botão direito do mouse em cima do seu banco de dados!!. Vai na pasta que está seu bd e clica com o botão direito

[vinycius 0]

Isso eu fiz no windows explorer só que na opção de propriedades eu não tenho a opção de segurança, sou burro mas nem tanto.... rs..rs.........rs......rs....

[Marhault 1]

Desculpa, isso naum tem nada a ver com pastas o erro diz que a query "MM_editQuery" dever ser de atualização, do tipo UPDATE ok?

[vinycius 0]

você diz no lugar de execute eu colocar update???É isso??

[Marhault 1]

naum amigo... posta aki essa Query: MM_editQuery, ou entaum posta o código inteiro q eu te explico, ok?

[vinycius 0]

%><%' *** Edit Operations: declare variablesDim MM_editActionDim MM_abortEditDim MM_editQueryDim MM_editCmdDim MM_editConnectionDim MM_editTableDim MM_editRedirectUrlDim MM_editColumnDim MM_recordIdDim MM_fieldsStrDim MM_columnsStrDim MM_fieldsDim MM_columnsDim MM_typeArrayDim MM_formValDim MM_delimDim MM_altValDim MM_emptyValDim MM_iMM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME"))If (Request.QueryString <> "") Then  MM_editAction = MM_editAction & "?" & Request.QueryStringEnd If' boolean to abort record editMM_abortEdit = false' query string to executeMM_editQuery = ""%><%' *** Insert Record: set variablesIf (CStr(Request("MM_insert")) = "cat") Then  MM_editConnection = MM_connDUclassified_STRING  MM_editTable = "TYPES"  MM_editRedirectUrl = "cats.asp"  MM_fieldsStr  = "TYPE_NAME|value|TYPE_DESCRIPTION|value"  MM_columnsStr = "TYPE_NAME|',none,''|TYPE_DESCRIPTION|',none,''"  ' create the MM_fields and MM_columns arrays  MM_fields = Split(MM_fieldsStr, "|")  MM_columns = Split(MM_columnsStr, "|")    ' set the form values  For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2    MM_fields(MM_i+1) = CStr(Request.Form(MM_fields(MM_i)))  Next  ' append the query string to the redirect URL  If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then    If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then      MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString    Else      MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString    End If  End IfEnd If%><%' *** Delete Record: declare variablesif (CStr(Request("MM_delete")) = "form1" And CStr(Request("MM_recordId")) <> "") Then  MM_editConnection = MM_connDUclassified_STRING  MM_editTable = "TYPES"  MM_editColumn = "TYPE_ID"  MM_recordId = "" + Request.Form("MM_recordId") + ""  MM_editRedirectUrl = "cats.asp"  ' append the query string to the redirect URL  If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then    If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then      MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString    Else      MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString    End If  End If  End If%><%' *** Insert Record: construct a sql insert statement and execute itDim MM_tableValuesDim MM_dbValuesIf (CStr(Request("MM_insert")) <> "") Then  ' create the sql insert statement  MM_tableValues = ""  MM_dbValues = ""  For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2    MM_formVal = MM_fields(MM_i+1)    MM_typeArray = Split(MM_columns(MM_i+1),",")    MM_delim = MM_typeArray(0)    If (MM_delim = "none") Then MM_delim = ""    MM_altVal = MM_typeArray(1)    If (MM_altVal = "none") Then MM_altVal = ""    MM_emptyVal = MM_typeArray(2)    If (MM_emptyVal = "none") Then MM_emptyVal = ""    If (MM_formVal = "") Then      MM_formVal = MM_emptyVal    Else      If (MM_altVal <> "") Then        MM_formVal = MM_altVal      ElseIf (MM_delim = "'") Then  ' escape quotes        MM_formVal = "'" & Replace(MM_formVal,"'","''") & "'"      Else        MM_formVal = MM_delim + MM_formVal + MM_delim      End If    End If    If (MM_i <> LBound(MM_fields)) Then      MM_tableValues = MM_tableValues & ","      MM_dbValues = MM_dbValues & ","    End If    MM_tableValues = MM_tableValues & MM_columns(MM_i)    MM_dbValues = MM_dbValues & MM_formVal  Next  MM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues & ") values (" & MM_dbValues & ")"  If (Not MM_abortEdit) Then    ' execute the insert    Set MM_editCmd = Server.CreateObject("ADODB.Command")    MM_editCmd.ActiveConnection = MM_editConnection    MM_editCmd.CommandText = MM_editQuery    MM_editCmd.Execute    MM_editCmd.ActiveConnection.Close    If (MM_editRedirectUrl <> "") Then      Response.Redirect(MM_editRedirectUrl)    End If  End IfEnd If%><%' *** Delete Record: construct a sql delete statement and execute itIf (CStr(Request("MM_delete")) <> "" And CStr(Request("MM_recordId")) <> "") Then  ' create the sql delete statement  MM_editQuery = "delete from " & MM_editTable & " where " & MM_editColumn & " = " & MM_recordId  If (Not MM_abortEdit) Then    ' execute the delete    Set MM_editCmd = Server.CreateObject("ADODB.Command")    MM_editCmd.ActiveConnection = MM_editConnection    MM_editCmd.CommandText = MM_editQuery    MM_editCmd.Execute    MM_editCmd.ActiveConnection.Close    If (MM_editRedirectUrl <> "") Then      Response.Redirect(MM_editRedirectUrl)    End If  End IfEnd If%><%set rsCat = Server.CreateObject("ADODB.Recordset")rsCat.ActiveConnection = MM_connDUclassified_STRINGrsCat.Source = "SELECT *, (SELECT COUNT (*)  FROM ADS  WHERE AD_TYPE = TYPE_ID AND AD_APPROVED = 1 AND AD_EXPIRED > DATE()) AS TOTAL  FROM TYPES  ORDER BY TYPE_NAME ASC"rsCat.CursorType = 0rsCat.CursorLocation = 2rsCat.LockType = 3rsCat.Open()rsCat_numRows = 0%>

Ai está este é um dos arquivos em que dá o erro sempre na linha onde contém a palavra Execute.

 

Obrigado se puder me ajudar.

[JucaMaster 0]

Eu não falo mais nada.

[vinycius 0]

Não juca eu estou fazendo o que me dizem quando você me ajudou eu fui fiz o que você me falou. só que quando eu clico com o botão direito no BD ou na pasta na propriedades eu não tenho a opção de segurança, gostaria muito que me ajuda-se. não fique bravo eu apenas escuto e tento conseguir uma resposta para o meu problema. Obrigado

[JucaMaster 0]

Eu num estou bravo com você naum mano. É esse carinha aí "Marhault", todo post que estou dando ele fala que está errado e tals. Isso chatea a gente pois somos umacomunidade neh!! Eu vou dar uma olhada em casa como funciona no win98, pq aqui no 2000 é assim com o botão direito... Mas quando este erro foi gerado aqui comigo eu resolvi assim. Deve ter alguma propriedade de permissões no 98 não é possível!!! Vou dar uma olhada em casa fica frio!!! Naum tem nada a ver com a sua função!! Falow Valew brother!!!! :)

[vinycius 0]

Tudo bem, fico no aguardo ansioso de sua resposta.Obrigado pela atenção.Eu tenho esse problema com linguagem porque minha área é design, mexer com corel e photoshop, mas no momento necessito dessas informações para realizar um projeto.