Hallå! Efter att du har skapat en connection med databasen kan du skriva så: Textruta? Det var ingen vidare snygg design. Jag föreslår en kryssruta påvarje rad. Typ skapa Listan på följande Sätt: Vill börja med och tacka Er så hemskt mycket för att Ni ställer upp och hjälper till! value=" & &rs("IDFält").Value & " Japp, det funkar nu..Nu är felmeddelandet borta! Nu träder delete knappen fram. Hmmm....kollar igenom koden igen...skumt, det enda som kommer fram är Delete-knappen... Undvik att använda å,ä och ö så mycket som det går, skriv Idfalt i stället för Idfält etc.. Men det löser nog inte problemet, ska kolla lite närmre.. Koden jag använder för att visa innehållet i databasen, är följande:Ta bort rad ur Access databas, Asp
Har en sida där man listar alla rader i en databas, på sidan finns även en textruta där man anger vilket Id på raden man vill ta bort har. Hur ska själva "ta bort" funktionen se ut, fattar att detta ska ske genom en SQL- fråga. Men hur ska denna se ut? Hoppas att nån kan hjälpa mig med detta. Har tittat runt på nätet efter olika lösningar, men jag får inte till det. Databasen heter "databas".Sv: Ta bort rad ur Access databas, Asp
Sql = "Delete * from Dintabell where ID = ' " & Request("ID") & " ' "
db.exucute sql
db.Close
Set db = nothing
Förutsättningar:
Din connection till databasen heter "db"
Din textruta hete "ID"
PS.Om du använder en SQL-databas ta bort * i sql satsen.Sv: Ta bort rad ur Access databas, Asp
<code>
<form method=post>
<table>
<%
Dim Con
Dim Rs
Dim Field
Set Con = Server.CreateObject("ADODB.Connection")
Con.Open "<<<Connection sträng>>>"
If Request.Form("action") = "delete" Then
If Len(Request.Form("id")) > 0 Then
Con.Execute "DELETE * FROM TabellNamn WHERE IDFält IN (" & Request.Form("id") & ")"
Else
Response.Write "Du har inte markerat några poster!"
End
End If
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.Open "SELECT * FROM TabellNamn ORDER BY IDFält"
Response.Write "<tr>"
For Each Field In Rs.Fields
Response.Write "<td>" & Field.Name & "</td>"
Next
Response.Write "<td></td></tr>"
Do Until Rs.EOF
Response.Write "<tr>"
For Each Field In Rs.Fields
Response.Write "<td>" & Field.Value & " </td>"
Next
Response.Write "<td><input type=checkbox name=id value=" & &rs("IDFält").Value & "></td></tr>" & vbCrLf
Loop
%>
</table>
<input type=submit name=action value=delete>
</form>
</code>
Formuläret postar informationen tikl sig själv. Tar bort poster och visar de som finns kvar.Sv: Ta bort rad ur Access databas, Asp
Har dock ett problem med följande:
Error Type:
Microsoft VBScript compilation (0x800A03EA)
Syntax error
/test.asp, line 41, column 59
Response.Write "<td><input type=checkbox name=id value=" & &rs("IDFält").Value & "></td></tr>" & vbCrLf
----------------------------------------------------------^
Markerar jag bort den raden så kommer det inte upp något felmeddelande utan bara "delete" knappen. så kopplingen mot databasen verkar fungera.
Tack än en gång!Sv: Ta bort rad ur Access databas, Asp
Ta bort en & för rs. Vi får se om det funkarSv: Ta bort rad ur Access databas, Asp
Andreas: Koden du skrev ovanför, är det meningen att all info om det som finns lagrat i databasen ska komma fram på samma sida? eller? Känner mig helt "lost" i skallen idag! :-/Sv: Ta bort rad ur Access databas, Asp
Sv: Ta bort rad ur Access databas, Asp
Sv: Ta bort rad ur Access databas, Asp
Tabellen heter, Tabell
----------------------------------------
<%
Set db = Server.CreateObject("ADODB.Connection")
db.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath ("databas.mdb")
SQL = "SELECT * From Databas ORDER BY Datum DESC"
Set rs = db.Execute(SQL)
%>
<head>
<title> Adressbok</title>
</head>
<%
Do Until rs.EOF
%>
<tr>
<td width="100%">
<DIV>
<table width="400">
<tr>
<td width="100"><b>Id:</b></td> <td width="300"><%=rs("Id")%>
<tr>
<td width="100"><b>Namn:</b></td> <td width="300"><%=rs("namn")%></td>
</tr>
<%If Not rs("adress")="" Then%>
<tr>
<td><b>Adress:</b></td> <td><%=rs("adress")%></td>
</tr>
<%End IF%>
<%If Not rs("postnr")="" Then%>
<tr>
<td><b>Postnummer:</b></td> <td><%=rs("postnr")%></td>
</tr>
<%End IF%>
<%If Not rs("postort")="" Then%>
<tr>
<td><b>Postort:</b></td> <td><%=rs("postort")%></td>
</tr>
<%End IF%>
<%If Not rs("tfn")="" Then%>
<tr>
<td><b>Tfn-nummer:</b></td> <td><%=rs("tfn")%></td>
</tr>
<%End IF%>
<%If Not rs("mobiltfn")="" Then%>
<tr>
<td><b>Mobil-tfn:</b></td> <td><%=rs("mobiltfn")%></td>
</tr>
<%End IF%>
<%If Not rs("email")="" Then%>
<tr>
<td><b>E-mail:</b></td> <td>"><%=rs("email")%></td>
</tr>
<%End IF%>
<%If Not rs("ovrigt")="" Then%>
<tr>
<td><b>Övrigt:</b></td> <td><%=rs("ovrigt")%></td>
</tr>
<td>Registrerad: <%=rs("datum")%></td>
<tr>
<%End IF%>
</table>
</DIV>
</td>
</tr>
<tr><td><hr size="1" color="black"</td></tr>
<%
rs.MoveNext
Loop
%>
</table>