Opdatering af database

if session("UserLoggeIn") <> "" then

Der sker stadig ingenting!!!

Skal jeg bruge denne sætning
strSQL = "Insert into user(navn) values('" & Request.Form("navn") & "')"

if not session("UserLoggedIn") = Empty then

Ville jeg bruge i stedet

Peter: Nu får jeg denne fejl!

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

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

/test1.asp, line 173

Hvilket er
Conn.Execute(strSQL)

jep det er fordi rekord ikke findes.

Så skal du insert i stedet for update, du skriver faktisk selv svaret

nej - hvis record ikke fandtes ville den bare ikke opdatere nogen. Fejlen kan derimod skyldes at der ikke tages højde for felttyper.

Hvilke felttyper er de forskellige kolonner i tabellen?

skal du ikke requeste din session også altså Request.session("UserloggefIn")

id = autonumber
navn = tekst
efternavn = tekst
adresse = memo
telefon = tekst
e-mail = tekst
foedselsdato = memo
civil stand = memo
born = memo
arbejde = memo
password = memo

strSQL = strSQL & "civil stand= '" & request.Form("civil stand") & "', "

tænker godt den linie kan drille, brug aldrig mellemrum i tabeller.

Har du sat born til tal i access så skriv i stedet for.
strSQL = strSQL & "born= '" & cLng(request.Form("born")) & "', "

Har du sat telefon til tal i access så skriv i stedet for.
strSQL = strSQL & "telefon= '" & cLng(request.Form("telefon")) & "', "

OSV.
cLng laver dem om til en tal streng i stedet for en tekst.

Problemmet med mellemrum har jeg ikke haft, når der hentes oplysninger fra databasen...

strSQL = strSQL & "Where id='" & session("UserLoggedIn") & "'"

phuc69: Giver samme fejl

strSQL = strSQL & "Where id=" & session("UserLoggedIn")

sådan

ellers var phuc på sporet

strSQL = "Update user set"     
strSQL = strSQL & "navn= '" & request.Form("navn") & "', "
strSQL = strSQL & "efternavn= '" & request.Form("efternavn") & "', "
strSQL = strSQL & "adresse= '" & request.Form("adresse") & "', "
strSQL = strSQL & "telefon= '" & request.Form("telefon") & "', "
strSQL = strSQL & "email= '" & request.Form("email") & "', "
strSQL = strSQL & "foedselsdag= '" & request.Form("foedselsdag") & "', "
strSQL = strSQL & "[civil stand]= '" & request.Form("civil stand") & "', "
strSQL = strSQL & "born= '" & request.Form("born") & "', "
strSQL = strSQL & "password= '" & request.Form("password") & "', "
strSQL = strSQL & "Where id=" & session("UserLoggedIn")

har fjenet ' efter =

kan godt være svært at se

prøv at udskrive din sql response.write strsql

keyserzone: Det virker heller ikke...
phuc69: hvad mener du? Hvorhenne?

strSQL = "Update user set"     
strSQL = strSQL & "navn= '" & request.Form("navn") & "', "
strSQL = strSQL & "efternavn= '" & request.Form("efternavn") & "', "
strSQL = strSQL & "adresse= '" & request.Form("adresse") & "', "
strSQL = strSQL & "telefon= '" & request.Form("telefon") & "', "
strSQL = strSQL & "email= '" & request.Form("email") & "', "
strSQL = strSQL & "foedselsdag= '" & request.Form("foedselsdag") & "', "
strSQL = strSQL & "[civil stand]= '" & request.Form("civil stand") & "', "
strSQL = strSQL & "born= '" & request.Form("born") & "', "
strSQL = strSQL & "password= '" & request.Form("password") & "', "
strSQL = strSQL & "Where id=" & session("UserLoggedIn")
response.write strsql
response.end
Conn.Execute(strSQL)

der hvor keysesrsoze indsætter den. Du kan bagefter indsætte dit output i en sql forespørgelse i access det kan være den kan komme med en bedre fejlmedelse

Nu viser den

Update user setnavn= '', efternavn= '', adresse= '', telefon= '', foedselsdag= '', [civil stand]= '', born= '', password= '', Where id=true

strSQL = "Update user set "

samme resultat

så er det derfor den fejl - id er et tal (autonumber) og du forsøger at finde tallet "true" og det findes jo ikke.

Du bliver nødt til at finde id'et på den bruger der skal opdateres og indsætte det i stedet for session("UserLoggedIn")

Hvordan kan jeg så sikre mig, at når brugeren opdaterer sine oplysninger, at det virkelig er vedkomnes oplysninger der opdateres! der er ca 35 id numre i databasen...

Lad mig omformulere! Skal jeg så have 35 opdateringssider?

nej - hvis brugeren skal logge ind for at opdatere sin side så gem vedkommendes id i en session

Hvordan gør jeg det? Min session ser således ud:

<%
Response.Expires = -1000 'Makes the browser not cache this page
Response.Buffer = True 'Buffers the content so our Response.Redirect will work

Dim Error_Msg

login = Request.Form("login")
If login = "logout" Then
Session("UserLoggedIn") = ""
ShowLogin
Else
If Session("UserLoggedIn") = "true" Then
AlreadyLoggedIn
Else
If login = "true" Then
CheckLogin
Else
ShowLogin
End If
End If
End If

Sub ShowLogin
Response.Write(Error_Msg & "<br>")
%>

nej

strSQL = strSQL & "Where navn ='" & request.Form("navn") & "' and efternavn = '" & request.Form("efternavn") % "'"

fidusen her at finde en unik nøgle feks igennem din autonummerering.
Men ovennævnte kunne godt bruges hvis ingen hedder det samme....

Ups % istedet for &

strSQL = strSQL & "Where navn ='" & request.Form("navn") & "' and efternavn = '" & request.Form("efternavn") & "'"

Hvor skal det sættes ind?

strSQL = "Update user set"     
strSQL = strSQL & "navn= '" & request.Form("navn") & "', "
strSQL = strSQL & "efternavn= '" & request.Form("efternavn") & "', "
strSQL = strSQL & "adresse= '" & request.Form("adresse") & "', "
strSQL = strSQL & "telefon= '" & request.Form("telefon") & "', "
strSQL = strSQL & "email= '" & request.Form("email") & "', "
strSQL = strSQL & "foedselsdag= '" & request.Form("foedselsdag") & "', "
strSQL = strSQL & "[civil stand]= '" & request.Form("civil stand") & "', "
strSQL = strSQL & "born= '" & request.Form("born") & "', "
strSQL = strSQL & "password= '" & request.Form("password") & "', "
strSQL = strSQL & "Where navn ='" & request.Form("navn") & "' and efternavn = '" & request.Form("efternavn") & "'"

Conn.Execute(strSQL)

Virker ikke!
Hvis jeg nu vil lave 35 opdateringssider, hvordan får jeg så requested "id"
Eksempel: der er en side med brugerens oplysninger, hvorfra der linkes til denne brugers opdateringsside.
Hvordan skal det så sættes op i dette script?

<%
if request("UserLoggeIn") <> "" then
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath(".../database/databaselog.mdb")
Conn.Open DSN

strSQL = "Update user set"     
strSQL = strSQL & "navn= '" & request.Form("navn") & "', "
strSQL = strSQL & "efternavn= '" & request.Form("efternavn") & "', "
strSQL = strSQL & "adresse= '" & request.Form("adresse") & "', "
strSQL = strSQL & "telefon= '" & request.Form("telefon") & "', "
strSQL = strSQL & "email= '" & request.Form("email") & "', "
strSQL = strSQL & "foedselsdag= '" & request.Form("foedselsdag") & "', "
strSQL = strSQL & "civil stand= '" & request.Form("civil stand") & "', "
strSQL = strSQL & "born= '" & request.Form("born") & "', "
strSQL = strSQL & "password= '" & request.Form("password") & "', "
strSQL = strSQL & "Where id=" & session("UserLoggedIn")

Conn.Execute(strSQL)

Conn.Close
Set Conn = Nothing
end if
%>

<form method="post" action="test1.asp">

<input name="navn" type="text" class="body" size="30">
<input name="efternavn" type="text" class="body" size="30">
<textarea name="civil stand" cols="35" rows="4" class="body"></textarea>
<input name="telefon" type="text" class="body" size="30">
<input name="foedselsdag" type="text" class="body" size="30">
<textarea name="civil stand" cols="35" rows="4" class="body"></textarea>
<textarea name="born" cols="35" rows="4" class="body"></textarea>
<input name="password" type="password" class="body" size="30">
<input name="password2" type="password" class="body" size="30">
<input name="send" type="submit" class="body" value="Opdater">

</form>

en rigtig dårlig løsning - hvad nu hvis man ændrer navn i formfelterne så vil den jo ikke opdatere noget?

bbworld >> tjecker du slet ikke op på noget brugernavn/password når man logger ind?

Hvad mener du?
Den tjekker brugernavn og password i databasen!!!

Keysersoze:

Nu var det mest ment som et eksempel. :-)

Der hvor du checker brugernavn og password

start da en en session som du sætter lige med database id

det kan jeg ikke lige se - anyway. Det du skal er, at når du laver dit brugertjeck så hiver du samtidig id'et ud på brugeren der logger ind og lægger dette id i en session

session("userid") = rs("id")

og så kan du lave din update-sql sådan

strSQL = "Update user set"     
strSQL = strSQL & "navn= '" & request.Form("navn") & "', "
strSQL = strSQL & "efternavn= '" & request.Form("efternavn") & "', "
strSQL = strSQL & "adresse= '" & request.Form("adresse") & "', "
strSQL = strSQL & "telefon= '" & request.Form("telefon") & "', "
strSQL = strSQL & "email= '" & request.Form("email") & "', "
strSQL = strSQL & "foedselsdag= '" & request.Form("foedselsdag") & "', "
strSQL = strSQL & "[civil stand]= '" & request.Form("civil stand") & "', "
strSQL = strSQL & "born= '" & request.Form("born") & "', "
strSQL = strSQL & "password= '" & request.Form("password") & "', "
strSQL = strSQL & "Where id=" & session("userid")

Skal jeg så gøre sådan i min login session?

<%
Response.Expires = -1000 'Makes the browser not cache this page
Response.Buffer = True 'Buffers the content so our Response.Redirect will work

Dim Error_Msg

login = Request.Form("login")
If login = "logout" Then
Session("userid") = rs("id")
ShowLogin
Else
If Session("Userid") = "true" Then
AlreadyLoggedIn
Else
If login = "true" Then
CheckLogin
Else
ShowLogin
End If
End If
End If

Sub ShowLogin
Response.Write(Error_Msg & "<br>")
%>

jeg kan ikke se hvornår du slår op i databasen så jeg kan ikke se hvor du kan sætte din session

Ved ikke om dette kan hjælpe?

<%
End Sub

Sub CheckLogin
Dim Conn, cStr, sql, RS, username, password
username = Request.Form("username")
password = Request.Form("password")

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

sql = "select username from user where username = '" & LCase(username) & "'"
sql = sql & " and password = '" & LCase(password) & "'"
Set RS = Conn.Execute(sql)
If RS.BOF And RS.EOF Then
    Error_Msg = "Login Failed. Try Again."
    Response.Redirect "ikkelogind.asp"
Else
    Session("UserLoggedIn") = "true"
    Response.Redirect "minside.asp"
End If
End Sub
%>

<%
End Sub

Sub CheckLogin
Dim Conn, cStr, sql, RS, username, password
username = Request.Form("username")
password = Request.Form("password")

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

sql = "select id, username from user where username = '" & LCase(username) & "'"
sql = sql & " and password = '" & LCase(password) & "'"
Set RS = Conn.Execute(sql)
If RS.BOF And RS.EOF Then
    Error_Msg = "Login Failed. Try Again."
    Response.Redirect "ikkelogind.asp"
Else
    Session("UserLoggedIn") = "true"
    Session("userid") = rs("id")   
    Response.Redirect "minside.asp"
End If
End Sub
%>

herefter kan du så bruge session("userid") for at skelne de forskellige brugere fra hinanden

Tror det er tæt på det virker!
Får dog denne fejl:

Microsoft VBScript compilation error '800a0400'

Expected statement

/test1.asp, line 184

end if
^

fjern den end if

Får denne fejl!

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

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

/test1.asp, line 180


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

strSQL = "Update user set"     
strSQL = strSQL & "navn= '" & request.Form("navn") & "', "
strSQL = strSQL & "efternavn= '" & request.Form("efternavn") & "', "
strSQL = strSQL & "adresse= '" & request.Form("adresse") & "', "
strSQL = strSQL & "telefon= '" & request.Form("telefon") & "', "
strSQL = strSQL & "foedselsdag= '" & request.Form("foedselsdag") & "', "
strSQL = strSQL & "[civil stand]= '" & request.Form("civil stand") & "', "
strSQL = strSQL & "born= '" & request.Form("born") & "', "
strSQL = strSQL & "password= '" & request.Form("password") & "', "
strSQL = strSQL & "Where id=" & session("userid")

Conn.Execute(strSQL)- fejl her

Conn.Close
Set Conn = Nothing
%>

prøv at uskive sql sætning igen

Skal jeg have noget før:

altså en if sætning eller lign. her
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath(".../database/databaselog.mdb")
Conn.Open DSN

Får igen dette: men den finder den rigtige id

Update user set navn= '', efternavn= '', adresse= '', telefon= '', foedselsdag= '', [civil stand]= '', born= '', password= '', Where id=16

prøv at poste hele fil i stedet samt komplet sti til både fil og database

<%
if request("UserLoggeIn") <> "" then
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("www.service2004.dk/database/databaselog.mdb")
Conn.Open DSN

strSQL = "Update user set"     
strSQL = strSQL & "fornavn= '" & request.Form("navn") & "', "
strSQL = strSQL & "efternavn= '" & request.Form("efternavn") & "', "
strSQL = strSQL & "adresse= '" & request.Form("adresse") & "', "
strSQL = strSQL & "telefon= '" & request.Form("telefon") & "', "
strSQL = strSQL & "foedselsdag= '" & request.Form("foedselsdag") & "', "
strSQL = strSQL & "civil stand= '" & request.Form("civil stand") & "', "
strSQL = strSQL & "born= '" & request.Form("born") & "', "
strSQL = strSQL & "password= '" & request.Form("password") & "', "
strSQL = strSQL & "Where id=" & session("userid")

Conn.Execute(strSQL)

Conn.Close
Set Conn = Nothing
end if
%>

<form method="post" action="test1.asp">

<input name="navn" type="text" class="body" size="30">
<input name="efternavn" type="text" class="body" size="30">
<textarea name="civil stand" cols="35" rows="4" class="body"></textarea>
<input name="telefon" type="text" class="body" size="30">
<input name="foedselsdag" type="text" class="body" size="30">
<textarea name="civil stand" cols="35" rows="4" class="body"></textarea>
<textarea name="born" cols="35" rows="4" class="body"></textarea>
<input name="password" type="password" class="body" size="30">
<input name="password2" type="password" class="body" size="30">
<input name="send" type="submit" class="body" value="Opdater">

</form>

www.bruger.service2004.dk/test1.asp

det var stien til database der var forkert
<%
if request("UserLoggeIn") <> "" then
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("./database/databaselog.mdb")
Conn.Open DSN

strSQL = "Update user set"     
strSQL = strSQL & "fornavn= '" & request.Form("navn") & "', "
strSQL = strSQL & "efternavn= '" & request.Form("efternavn") & "', "
strSQL = strSQL & "adresse= '" & request.Form("adresse") & "', "
strSQL = strSQL & "telefon= '" & request.Form("telefon") & "', "
strSQL = strSQL & "foedselsdag= '" & request.Form("foedselsdag") & "', "
strSQL = strSQL & "civil stand= '" & request.Form("civil stand") & "', "
strSQL = strSQL & "born= '" & request.Form("born") & "', "
strSQL = strSQL & "password= '" & request.Form("password") & "', "
strSQL = strSQL & "Where id=" & session("userid")

Conn.Execute(strSQL)

Conn.Close
Set Conn = Nothing
end if
%>

<form method="post" action="test1.asp">

<input name="navn" type="text" class="body" size="30">
<input name="efternavn" type="text" class="body" size="30">
<textarea name="civil stand" cols="35" rows="4" class="body"></textarea>
<input name="telefon" type="text" class="body" size="30">
<input name="foedselsdag" type="text" class="body" size="30">
<textarea name="civil stand" cols="35" rows="4" class="body"></textarea>
<textarea name="born" cols="35" rows="4" class="body"></textarea>
<input name="password" type="password" class="body" size="30">
<input name="password2" type="password" class="body" size="30">
<input name="send" type="submit" class="body" value="Opdater">

</form>

www.bruger.service2004.dk/test1.asp

Får denne fejl

Microsoft OLE DB Provider for ODBC Drivers error '80004005'

[Microsoft][ODBC Microsoft Access Driver]General error Unable to open registry key 'Temporary (volatile) Jet DSN for process 0xae8 Thread 0x6d0 DBC 0x9d9c00c Jet'.

/test1.asp, line 167

Vil se noget fodbold! Vender tilbage efter kampen...

strSQL = "Update user set"     
strSQL = strSQL & "navn= '" & request.Form("navn") & "', "
strSQL = strSQL & "efternavn= '" & request.Form("efternavn") & "', "
strSQL = strSQL & "adresse= '" & request.Form("adresse") & "', "
strSQL = strSQL & "telefon= '" & request.Form("telefon") & "', "
strSQL = strSQL & "foedselsdag= '" & request.Form("foedselsdag") & "', "
strSQL = strSQL & "[civil stand]= '" & request.Form("civil stand") & "', "
strSQL = strSQL & "born= '" & request.Form("born") & "', "
strSQL = strSQL & "password= '" & request.Form("password") & "' "
strSQL = strSQL & "Where id=" & session("userid")

Jeg fatter simpelthen ikke, hvorfor det ikke virker! Skal der være skrevet noget i alle form felter?

kun hvis databasen er sat op til det - og så ville fejlen også være en anden.

ovenstående fejl skyldes somregel at databasen ikke findes hvor angivet

Gider ikke bøvle med det mere!
Smid et svar peter hansen og keysersoze, som tak for jeres ihærdige indsats...

lidt for hurtigt at give op syntes jeg... oppe i toppen angiver du stien til databasen til at være

DSN = DSN & "DBQ=" & Server.MapPath(".../database/databaselog.mdb")

længere nede ændrer du den til

DSN = DSN & "DBQ=" & Server.MapPath("www.service2004.dk/database/databaselog.mdb")

og samtidig angiver peter_hansen den til

DSN = DSN & "DBQ=" & Server.MapPath("./database/databaselog.mdb")

Der er altså meget stor forskel på hvordan stien ser ud - så sørg for at den ser rigtigt ud! derefter så det ud som om din sql også var på rette vej

Stien som virker når, jeg trækker informationerne fra databasen er:
DSN = DSN & "DBQ=" & Server.MapPath(".../database/databaselog.mdb")
og det virker fint...
Så det er også sådan den sat op i dette script...

Beklager jeg lige smed dig på vildspor med database så ikke du kørte med subdomain i farten.

Pinligt...

(".../database/databaselog.mdb") er selvfølgelig den rigtige.

send det hele til mig via mail, så skal jeg rette det til for dig, og smide kommentare, er kørt lidt fast.

Kan nemmelig ikke umiddelbart se, hvor fejl er ud fra de nuværende oplysninger.

lukketid eller?