asp - Fejl i update ! hvor ? ;S - Udvikleren.dk - Programmering, webdesign og grafik

Tags: asp

<< < 1 2 3 > >>

Bruger #7209 @ 26.06.05 21:33

Nogle der kan se hvad der er galt her:

Kode

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

[Microsoft][ODBC Microsoft Access Driver] Data type mismatch in criteria expression.

/community/rediger-profil.asp, line 20

linje 20:

Kode

Conn.Execute(strSQL)

Rediger-profil.asp

Kode

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

strSQL = "update Brugere set "
strSQL = strSQL & "navn= '" & request.form("navn") & "', "
strSQL = strSQL & "born= '" & request.form("born") & "', "
strSQL = strSQL & "bosted= '" & request.form("bosted") & "', "
strSQL = strSQL & "brugernavn= '" & request.form("brugernavn") & "', "
strSQL = strSQL & "adgangskode= '" & request.form("adgangskode") & "' "
strSQL = strSQL & " Where Id = " & request.Querystring("id") & ""

' SQL sætning eksekveres 
Conn.Execute(strSQL)

%>
<form method="post" action="rediger-profil.asp?id=<%=request.Querystring("id")%>">
<table>
<tr>
<td>Navn:</td><td><input type="text" value="<%=rs("navn")%>" name="navn"></td>
</tr>
<tr>
<td>Navn:</td><td><input type="text" value="<%=rs("born")%>" name="born"></td>
</tr>
<tr>
<td>Navn:</td><td><input type="text" value="<%=rs("bosted")%>" name="bosted"></td>
</tr>
<tr>
<td>Navn:</td><td><input type="text" value="<%=rs("brugernavn")%>" name="brugernavn"></td>
</tr>
<tr>
<td>Navn:</td><td><input type="text" value="<%=rs("adgangskode")%>" name="adgangskode"></td>
</tr>
<tr>
<td></td><td><input type="submit" value="Gem" name="Submit"></td>
</tr>
</table>
<%
' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
%>
</body>
</html>

29 svar postet i denne tråd vises herunder
0 indlæg har modtaget i alt 0 karma

Sorter efter stemmer Sorter efter dato

Bruger #7753 @ 26.06.05 22:23

Kode

strUpdate = "Update Brugere set navn = '" & request.form("navn") & "', bosted = '" & request.form("bosted") & "', brugernavn = '" & request.form("brugernavn") & "', adgangskode = '" & request.form("adgangskode") & "' where id = '" & request.Querystring("id") & "'"

strSQL = "Select * From Brugere"

Conn.Execute(strUpdate)
rs = Conn.Execute(strSQL)

ChristofferB ::.

[Redigeret d. 26/06-05 22:30:17 af ChristofferB]

Bruger #7209 @ 26.06.05 22:26

Virker heller ikke

Bruger #7753 @ 26.06.05 22:29

Kode

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

strUpdate = "Update Brugere set navn = '" & request.form("navn") & "', bosted = '" & request.form("bosted") & "', brugernavn = '" & request.form("brugernavn") & "', adgangskode = '" & request.form("adgangskode") & "' where id = '" & request.Querystring("id") & "'"

strSQL = "Select * From Brugere"

Conn.Execute(strUpdate)
rs = Conn.Execute(strSQL)

%>
<form method="post" action="rediger-profil.asp?id=<%response.write request.Querystring("id")%>">
<table>
<tr>
<td>Navn:</td><td><input type="text" value="<%response.write rs("navn")%>" name="navn"></td>
</tr>
<tr>
<td>Navn:</td><td><input type="text" value="<%response.write rs("bosted")%>" name="bosted"></td>
</tr>
<tr>
<td>Navn:</td><td><input type="text" value="<%response.write rs("brugernavn")%>" name="brugernavn"></td>
</tr>
<tr>
<td>Navn:</td><td><input type="text" value="<%response.write rs("adgangskode")%>" name="adgangskode"></td>
</tr>
<tr>
<td></td><td><input type="submit" value="Gem" name="Submit"></td>
</tr>
</table>
<%
' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
%>
</body>
</html>

Hvad med det her

ChristofferB ::.

Bruger #7209 @ 26.06.05 22:33

Den virker heller ikke ..

Kode

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

strSQL = "update Brugere set "
strSQL = strSQL & "navn= '" & request.form("navn") & "', "
strSQL = strSQL & "bosted= '" & request.form("bosted") & "', "
strSQL = strSQL & "brugernavn= '" & request.form("brugernavn") & "', "
strSQL = strSQL & "adgangskode= '" & request.form("adgangskode") & "' "
strSQL = strSQL & " Where Id = " & request.Querystring("id") & ""

' SQL sætning eksekveres 
Conn.Execute(strSQL)
%>
<form method="post" action="rediger-profil.asp?id=<%=request.Querystring("id")%>">
<table>
<tr>
<td>Navn:</td><td><input type="text" value="<%=rs("navn")%>" name="navn"></td>
</tr>
<tr>
<td>By:</td><td><input type="text" value="<%=rs("bosted")%>" name="bosted"></td>
</tr>
<tr>
<td>Brugernavn:</td><td><input type="text" value="<%=rs("brugernavn")%>" name="brugernavn"></td>
</tr>
<tr>
<td>Kode:</td><td><input type="password" value="<%=rs("adgangskode")%>" name="adgangskode"></td>
</tr>
<tr>
<td></td><td><input type="submit" value="Gem" name="Submit"></td>
</tr>
</table>
<%
' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
%>
</body>
</html>

^Det er sådan det ser ud indtil videre

Bruger #7753 @ 26.06.05 22:34

Den virker heller ikke ..

Kode

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

strSQL = "update Brugere set "
strSQL = strSQL & "navn= '" & request.form("navn") & "', "
strSQL = strSQL & "bosted= '" & request.form("bosted") & "', "
strSQL = strSQL & "brugernavn= '" & request.form("brugernavn") & "', "
strSQL = strSQL & "adgangskode= '" & request.form("adgangskode") & "' "
strSQL = strSQL & " Where Id = " & request.Querystring("id") & ""

' SQL sætning eksekveres 
Conn.Execute(strSQL)
%>
<form method="post" action="rediger-profil.asp?id=<%=request.Querystring("id")%>">
<table>
<tr>
<td>Navn:</td><td><input type="text" value="<%=rs("navn")%>" name="navn"></td>
</tr>
<tr>
<td>By:</td><td><input type="text" value="<%=rs("bosted")%>" name="bosted"></td>
</tr>
<tr>
<td>Brugernavn:</td><td><input type="text" value="<%=rs("brugernavn")%>" name="brugernavn"></td>
</tr>
<tr>
<td>Kode:</td><td><input type="password" value="<%=rs("adgangskode")%>" name="adgangskode"></td>
</tr>
<tr>
<td></td><td><input type="submit" value="Gem" name="Submit"></td>
</tr>
</table>
<%
' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
%>
</body>
</html>

^Det er sådan det ser ud indtil videre

WTF mener du? men prøver lige atlave det i 2 filer. Kan være det er bedre!!

ChristofferB ::.

Bruger #7209 @ 26.06.05 22:35

hvad mener du ?
Det du har kommet med indtil videre har ikke hjulpet ..

Bruger #7753 @ 26.06.05 22:39

rediger-profil.asp

Kode

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

strSQL = "Select * From Brugere where id = '" & request.querystring("id")
rs = Conn.Execute(strSQL)

%>
<form method="post" action="rediger-update.asp?id=<%response.write request.Querystring("id")%>">
<table>
<tr>
<td>Navn:</td><td><input type="text" value="<%response.write rs("navn")%>" name="navn"></td>
</tr>
<tr>
<td>Navn:</td><td><input type="text" value="<%response.write rs("bosted")%>" name="bosted"></td>
</tr>
<tr>
<td>Navn:</td><td><input type="text" value="<%response.write rs("brugernavn")%>" name="brugernavn"></td>
</tr>
<tr>
<td>Navn:</td><td><input type="text" value="<%response.write rs("adgangskode")%>" name="adgangskode"></td>
</tr>
<tr>
<td></td><td><input type="submit" value="Gem" name="Submit"></td>
</tr>
</table>
<%
' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
%>
</body>
</html>

update-profil.asp

Kode

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

strSQL = "Update Brugere set navn = '" & request.form("navn") & "', bosted = '" & request.form("bosted") & "', brugernavn = '" & request.form("brugernavn") & "', adgangskode = '" & request.form("adgangskode") & "' where id = '" & request.Querystring("id") & "'"

Conn.Execute(strSQL)

Conn.Close
Set Conn = Nothing
Response.redirect "rediger-profil.asp?id=" & request.querystring("id")
%>

Virker det her?

ChristofferB ::.

[Redigeret d. 26/06-05 22:42:24 af ChristofferB]

Bruger #7209 @ 26.06.05 22:44

Nææ .. Men har en anden løsning.. lad bar vær med at prøv, måske kan peter.. Hvis han ikke kan, kan jeg selv, på jordens MEST bøvlede metode ..

Bruger #7753 @ 26.06.05 22:45

Nææ .. Men har en anden løsning.. lad bar vær med at prøv, måske kan peter.. Hvis han ikke kan, kan jeg selv, på jordens MEST bøvlede metode ..

Nej vil godt prøve. Hvad er fejlmeddelsen?

ChristofferB ::.

Bruger #7209 @ 26.06.05 22:45

kommer ingen fejlmeddelser

<< < 1 2 3 > >>

Fejl i update ! hvor ? ;S

Karma barometer (30 dage)

Modtaget

Givet

Favorit hos
Forum tråde
Artikler