Avatar billede bredan1977 Nybegynder
20. oktober 2004 - 11:15 Der er 6 kommentarer og
1 løsning

Jeg kan ikke UPDATE min DB?

Hvordan kan det værer at jeg får fejl på denne her:

<%@ Language=VBScript %>
<!--#INCLUDE VIRTUAL="islogin.asp"-->
<html>

<head>
<meta http-equiv="Content-Language" content="da">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Ny side 1</title>
</head>

<body>
<%
Session("Nummer") = Session("Nummer")
Session("LeveringsAdresse") = Request.form("Adresser")

Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../cgi-data/database.mdb")
Conn.Open DSN

Dim CustomerText
Dim LeveringsadresserNavnText
Dim Leveringsadresser1Text
Dim Leveringsadresser2Text
Dim LeveringsadresserPostnummerText
Dim LeveringsadresserByText
Dim LeveringsadresserLandText
Dim LeveringsadresserNotatText

CustomerText = Session("Customer")
LeveringsadresserNavnText = Request.form("AdresseNavn")
Leveringsadresser1Text = Request.form("Adresse1")
Leveringsadresser2Text = Request.form("Adresse2")
LeveringsadresserPostnummerText = Request.form("AdressePostnummer")
LeveringsadresserByText = Request.form("AdresseBy")
LeveringsadresserLandText = Request.form("AdresseLand")
LeveringsadresserNotatText = Request.form("AdresseNotat")

strSQL = "Update adresse set ("

strSQL = strSQL & "Customer, "
strSQL = strSQL & "AdresseNavn, "
strSQL = strSQL & "Adresse1, "
strSQL = strSQL & "Adresse2, "
strSQL = strSQL & "AdressePostnummer, "
strSQL = strSQL & "AdresseBy, "
strSQL = strSQL & "AdresseLand, "
strSQL = strSQL & "AdresseNote) "

strSQL = strSQL & "values( "

strSQL = strSQL & CustomerText & ", "
strSQL = strSQL & "'" & LeveringsadresserNavnText &"', "
strSQL = strSQL & "'" & Leveringsadresser1Text &"', "
strSQL = strSQL & "'" & Leveringsadresser2Text &"', "
strSQL = strSQL & "'" & LeveringsadresserPostnummerText &"', "
strSQL = strSQL & "'" & LeveringsadresserByText &"', "
strSQL = strSQL & "'" & LeveringsadresserLandText &"', "
strSQL = strSQL & "'" & LeveringsadresserNotatText &"')"
strSQL = strSQL & "WHERE ID = "& Session("Nummer")
response.write strSQL

Conn.Execute(strSQL)

set rsCreateOrder = Nothing
set Conn = Nothing
Response.Redirect "adresseliste.asp"
%>
</body>

</html>
Avatar billede bredan1977 Nybegynder
20. oktober 2004 - 11:17 #1
Fejlen lyder:

Update adresse set (Customer, AdresseNavn, Adresse1, Adresse2, AdressePostnummer, AdresseBy, AdresseLand, AdresseNote) values( 50050, 'EH', 'Et eller andet sted', 'Jepper', '7600', 'Linde', 'Andre', '')WHERE ID = 1

Microsoft OLE DB Provider for ODBC Drivers error '80040e14'

[Microsoft][ODBC Microsoft Access Driver] Syntax error in UPDATE statement.

/adresseeditting.asp, line 64
Avatar billede mini-me Nybegynder
20. oktober 2004 - 11:18 #2
prøv at skriv response.write(strSQL) og post den her... så er det nemmere at se det igennem
Avatar billede Jman Praktikant
20. oktober 2004 - 11:19 #3
Det er fordi du har "genbrugt din "insert"-sql.. Det er ikke det samme med "update"

En update ser således ud:
Update tabelnavn Set kolonne = 'værdi' Where betingelse

Se evt. her: http://www.html.dk/tutorials/asp/lektion22.asp
Avatar billede Jman Praktikant
20. oktober 2004 - 11:22 #4
Eksempel på din SQL.. (kun starten - færdiggør selv resten c",)

strSQL = "Update adresse set Customer = "& CustomerText &", AdresseNavn = "& AdresseNavn &",  o.s.v. where id = " & Session("Nummer")
Avatar billede bredan1977 Nybegynder
20. oktober 2004 - 11:25 #5
strSQL = "Update adresse set "

strSQL = strSQL & "Customer= CustomerText, "
strSQL = strSQL & "AdresseNavn= '" & LeveringsadresserNavnText &"', "
strSQL = strSQL & "Adresse1= '" & Leveringsadresser1Text &"', "
strSQL = strSQL & "Adresse2= '" & Leveringsadresser2Text &"', "
strSQL = strSQL & "AdressePostnummer= '" & LeveringsadresserPostnummerText &"', "
strSQL = strSQL & "AdresseBy= '" & LeveringsadresserByText &"', "
strSQL = strSQL & "AdresseLand= '" & LeveringsadresserLandText &"', "
strSQL = strSQL & "AdresseNote= '" & LeveringsadresserNotatText &"' "
strSQL = strSQL & "WHERE ID = "& Session("Nummer")

response.write strSQL
Avatar billede bredan1977 Nybegynder
20. oktober 2004 - 11:27 #6
Her er den:

strSQL = "Update adresse set "

strSQL = strSQL & "Customer= '" & CustomerText & "', "
strSQL = strSQL & "AdresseNavn= '" & LeveringsadresserNavnText &"', "
strSQL = strSQL & "Adresse1= '" & Leveringsadresser1Text &"', "
strSQL = strSQL & "Adresse2= '" & Leveringsadresser2Text &"', "
strSQL = strSQL & "AdressePostnummer= '" & LeveringsadresserPostnummerText &"', "
strSQL = strSQL & "AdresseBy= '" & LeveringsadresserByText &"', "
strSQL = strSQL & "AdresseLand= '" & LeveringsadresserLandText &"', "
strSQL = strSQL & "AdresseNote= '" & LeveringsadresserNotatText &"' "
strSQL = strSQL & "WHERE ID = "& Session("Nummer")

Takker
Avatar billede Jman Praktikant
20. oktober 2004 - 11:29 #7
selv tak :o)
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester