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 #6372 @ 26.06.05 21:38

er din "Born" kollone i databasen en dato? ... eller er nogle af de andre ikke strings?
Det er der den er gal vil jeg mene.

Bruger #7209 @ 26.06.05 21:42

ja, det er en dato ..

Bruger #7209 @ 26.06.05 21:45

Men nu for jeg det her:

http://www.xsound.dk/community/fejl.jpg

Bruger #7209 @ 26.06.05 21:52

det hele ser nu sådan ud:

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>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>

Bruger #6372 @ 26.06.05 21:58

<%=rs("navn")%>

Din database forbindelse hedder ikke "rs" men "Conn" i dette tilfælde.

Bruger #7209 @ 26.06.05 22:01

Kan du skrive min fil, så den virker, som jeg vil have den til ?

Bruger #7753 @ 26.06.05 22:08

det hele ser nu sådan ud:

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>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>

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)

strSQL = "Select * From Brugere"
rs = 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("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>

Ved ikke om det virker!

ChristofferB ::.

Bruger #7209 @ 26.06.05 22:11

ChristofferB, det virker ikke ..

Bruger #6372 @ 26.06.05 22:14

Jeg vil tro du skal lukke databasen helt og så åbne den igen med denne kode:

Kode

Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM Brugere WHERE ID = " & request.Querystring("id")
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&Server.MapPath("community.mdb")
rs.Open strSQL, strDSN, 1

Bruger #7209 @ 26.06.05 22:15

Det forstå jeg ikke helt, kan du ikke skrive en færdig kode ?
Please

<< < 1 2 3 > >>

Fejl i update ! hvor ? ;S

Karma barometer (30 dage)

Modtaget

Givet

Favorit hos
Forum tråde
Artikler