---
title: "updateable query."
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/12766-updateable-query"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "larsson"
published: "2001-11-22T11:09:00.000Z"
updated: "2001-11-22T12:22:00.000Z"
replies: 2
views: 138
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/12766-updateable-query"
---

# updateable query.

## #1 — larsson, 2001-11-22T11:09Z

Halloj !!

varför får jag detta felmeddalende ?

> insert into Kontakt (Lognamn,Losen,Anvandare,Adress,Postnummer,Ort,TelArbete,TelefonBostad,Mobiltelefon,Fax,Epost,Anteckningar) values ('test','test','test','test','test','test','test','test','test','test','test','test') 
> Microsoft OLE DB Provider for ODBC Drivers error '80004005' 
>
> \[Microsoft\]\[ODBC Microsoft Access Driver\] Operation must use an updateable query. 
>
> /nyhet/anvandare.asp, line 91

Rad 91 är med fet stil.

\<%@LANGUAGE="VBSCRIPT"%\>
\<!--#include file="../Connections/svbsf.asp" --\>
\<%
' \*\*\* Edit Operations: declare variables

MM_editAction = CStr(Request("URL"))
If (Request.QueryString \<\> "") Then
  MM_editAction = MM_editAction & "?" & Request.QueryString
End If

' boolean to abort record edit
MM_abortEdit = false

' query string to execute
MM_editQuery = ""
%\>
\<%
' \*\*\* Insert Record: set variables

If (CStr(Request("MM_insert")) \<\> "") Then

  MM_editConnection = MM_svbsf_STRING
  MM_editTable = "Kontakt"
  MM_editRedirectUrl = "finns.asp"
  MM_fieldsStr  = "Lognamn&#0124;value&#0124;Losen&#0124;value&#0124;Anvandare&#0124;value&#0124;Adress&#0124;value&#0124;Postnummer&#0124;value&#0124;Ort&#0124;value&#0124;TelArbete&#0124;value&#0124;TelefonBostad&#0124;value&#0124;Mobiltelefon&#0124;value&#0124;Fax&#0124;value&#0124;Epost&#0124;value&#0124;Anteckningar&#0124;value"
  MM_columnsStr = "Lognamn&#0124;',none,''&#0124;Losen&#0124;',none,''&#0124;Anvandare&#0124;',none,''&#0124;Adress&#0124;',none,''&#0124;Postnummer&#0124;',none,''&#0124;Ort&#0124;',none,''&#0124;TelArbete&#0124;',none,''&#0124;TelefonBostad&#0124;',none,''&#0124;Mobiltelefon&#0124;',none,''&#0124;Fax&#0124;',none,''&#0124;Epost&#0124;',none,''&#0124;Anteckningar&#0124;',n one,''"

  ' create the MM_fields and MM_columns arrays
  MM_fields = Split(MM_fieldsStr, "&#0124;")
  MM_columns = Split(MM_columnsStr, "&#0124;")
  
  ' set the form values
  For i = LBound(MM_fields) To UBound(MM_fields) Step 2
    MM_fields(i+1) = CStr(Request.Form(MM_fields(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 If

End If
%\>
\<%
' \*\*\* Insert Record: construct a sql insert statement and execute it

If (CStr(Request("MM_insert")) \<\> "") Then

  ' create the sql insert statement
  MM_tableValues = ""
  MM_dbValues = ""
  For i = LBound(MM_fields) To UBound(MM_fields) Step 2
    FormVal = MM_fields(i+1)
    MM_typeArray = Split(MM_columns(i+1),",")
    Delim = MM_typeArray(0)
    If (Delim = "none") Then Delim = ""
    AltVal = MM_typeArray(1)
    If (AltVal = "none") Then AltVal = ""
    EmptyVal = MM_typeArray(2)
    If (EmptyVal = "none") Then EmptyVal = ""
    If (FormVal = "") Then
      FormVal = EmptyVal
    Else
      If (AltVal \<\> "") Then
        FormVal = AltVal
      ElseIf (Delim = "'") Then  ' escape quotes
        FormVal = "'" & Replace(FormVal,"'","''") & "'"
      Else
        FormVal = Delim + FormVal + Delim
      End If
    End If
    If (i \<\> LBound(MM_fields)) Then
      MM_tableValues = MM_tableValues & ","
      MM_dbValues = MM_dbValues & ","
    End if
    MM_tableValues = MM_tableValues & MM_columns(i)
    MM_dbValues = MM_dbValues & 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 If

End If
%\>

Permalänk: https://www.webforum.nu/p/12766

## #2 — @nders, 2001-11-22T11:37Z

Här på wF finns en eminent sökfunktion uppe till höger. Om du använder den så hittar du massor om detta.

Mvh,

Permalänk: https://www.webforum.nu/p/295380

## #3 — larsson, 2001-11-22T12:22Z

Tack, får maila till webbhotelet att dom lägger till det.
Ändå så sa dom att det inte skulle vara några problem, bara att köra ;)

Permalänk: https://www.webforum.nu/p/295381

---

Tråden på webben: https://www.webforum.nu/amne/asp/12766-updateable-query