Hejsan! Det finns säkert folk här som kan detta bättre än jag, men jag kör som nedan och det funkar bra. Set Conn = Server.CreateObject("ADODB.Connection")Kan inte uppdatera databasen.....
Har försökt att skriva så att man kan uppdatera databasen utan att
deleta som jag använder i koden här inunder, men får det inte att funka.
Hur kan jag ändra min kod så att man uppdaterar utan att deleta?
Jag har ett ID fält i tabellen som jag inte vill uppdatera, det ska alltså
vara samma efter uppdateringen....
/Tomas
<code>
<%
'databasconnection
SET Con = Server.CreateObject("ADODB.Connection")
Con.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath("../../data/Itsam.mdb")
Radera = "SELECT * FROM TBL_USERS WHERE ID = " & Request.QueryString("delID") & " "
SET RecSet = Server.CreateObject("ADODB.Recordset")
RecSet.Open Radera, Con, 3, 3
RecSet.Delete
RecSet.Close
Con.Close
Set RecSet=Nothing
Set Con=Nothing
SET Con = Server.CreateObject("ADODB.Connection")
Con.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath("../../data/Itsam.mdb")
On Error Resume Next
SQLStmt = "SELECT * FROM TBL_USERS"
SET RecSet = Server.CreateObject("ADODB.Recordset")
RecSet.Open SQLStmt, Con, 3, 3
'kod för att kunna lägga till en post i databasen
RecSet.AddNew
RecSet("Username") = Session("username")
RecSet("Password") = Request.Form("Password")
RecSet("E-post") = Request.Form("E-post")
RecSet("Forname") = Request.Form("Forname")
RecSet("Lastname") = Request.Form("Lastname")
RecSet("Logout_page") = Request.Form("Logout_page")
RecSet.Update
If err.Number <> 0 Then %>
<html>
<head>
<!-- Ta bort markering runt bilder när man klickar på dom -->
<script language="JavaScript">
<!--
function blured()
{
for (a in document.links) document.links[a].onfocus = document.links[a].blur;
}
if (document.all)
{
document.onmousedown = blured;
}
// -->
</script>
<STYLE TYPE="text/css">
<!--
Body {FONT-FAMILY: Verdana, Geneva, Helvetica}
A:link {Color:#000000; Text-Decoration: underline;}
A:visited {Color:#000000; Text-Decoration: underline;}
A:active {Color:#000000; Text-Decoration: underline;}
a:hover {Color: Blue; text-decoration: none;}
-->
</STYLE>
<title></title>
</head>
<body background="images/bg_lightbrown.jpg">
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" width="400">
<tr>
<td valign="middle" align="center"><img border="0" src="images/nix.jpg"></td>
</tr>
<tr>
<td align="center" valign="middle" height="55"><font SIZE="1">Användarnamnet och/eller Lösenordet du har valt är redan upptaget.
Tillbaka >></font></td>
</tr>
</table>
</center>
</div>
<%
End If
RecSet.Close
Con.Close
Set RecSet=Nothing
Set Con=Nothing
'redirectar tillbaka till start sidan.....
Response.Redirect "egna_sidan.asp"
%>
</body>
</html>
</code>Sv: Kan inte uppdatera databasen.....
<code>
SQL="UPDATE TBL_USERS SET värde1 = "&nyttvärde1&", värde2 = "&nyttvärde2&" WHERE ID LIKE " & ID
</code>Sv: Kan inte uppdatera databasen.....
Conn.Open "Driver blaha, blaha"
strSQL="Update mintabell Set Namn= '" & Request.Querystring("Namn") & '" Where Id = "' & Request.Querystring("Id") & '" & "
Conn.Execute(strSQL)
Conn.Close
Jag vet inte om koden är 100% rätt men principen är iaf så här.