02. november 2003 - 17:45
Der er
9 kommentarer og 2 løsninger
Slette databaseresultater
Jeg sidder lige og roder med at slette data i en databse, men det lykkes ikke rigtigt. Jeg har lavet en slette formular der ser sådan ud. <html> <head> <meta http-equiv="Content-Language" content="da"> <title>Slet blinktekst</title> </head> <body> <% Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("../db/db.mdb") strSQL= "SELECT * FROM tblblinknyhed" Set rs = Conn.Execute(strSQL) %> <table border="1" cellspacing="1" width="100%"> <tr> <td width="9%" align="center"><font size="2">Slet</font></td> <td width="9%" align="center"><font size="2">Nyheds nr</font></td> <td width="16%" align="center"><font size="2">Tekst</font></td> </tr> <% DO WHILE NOT rs.EOF BlinkNyhednr = rs("BlinkNyhednr") BlinkTekst = rs("BlinkTekst") %> <tr> <td width="9%" align="center"><font size="2"><a href="blinktekstslet.asp?BlinkNyhednr=<%=BlinkNyhednr%>">Slet</font></td> <td width="9%" align="center"><font size="2"><%=BlinkNyhednr%> </font></td> <td width="16%" align="center"><font size="2"><%=BlinkTekst%> </font></td> </tr> <% rs.MoveNext LOOP RS.Close Response.Write "" Conn.Close Set Conn=Nothing %> </table> </body> </html> Og en slette funktion der ser sådan ud. <% Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("../db/db.mdb") strSQL= "Delete * From tblblinknyhed WHERE BlinkNyhednr="& Request("BlinkNyhednr")" Set rs = Conn.Execute(strSQL) Conn.Close Set Conn=Nothing %> Men jeg har ikke kunnet få det til at virke. Jeg har prøvet lidt af hvert hvad angår sqæ delete delen, men det er ikke værd at skrive om her. Måske nogen kan se hvad der er galt. Håber det i hvertfald
Annonceindlæg tema
Cloud & AI
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
02. november 2003 - 17:47
#1
<% Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("../db/db.mdb") strSQL= "Delete From tblblinknyhed WHERE BlinkNyhednr="& Request("BlinkNyhednr")" Set rs = Conn.Execute(strSQL) Conn.Close Set Conn=Nothing %>
02. november 2003 - 17:47
#2
DU har en " til sidst der vist ikke skal være der, men melder den fejl eller sletter den bare ikke noget?
02. november 2003 - 17:48
#3
prøver igen: <% Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("../db/db.mdb") strSQL= "Delete From tblblinknyhed WHERE BlinkNyhednr="& Request("BlinkNyhednr") Set rs = Conn.Execute(strSQL) Conn.Close Set Conn=Nothing %>
02. november 2003 - 17:52
#4
Tak. Nu dur det. Hvem vil gerne have point. Jeg kan se at i begge har bidraget med noget der kunne bruges.
02. november 2003 - 17:55
#5
50/50 ??
02. november 2003 - 18:01
#6
Hvordan ordner jeg det
02. november 2003 - 18:05
#7
MortenKjeldbjerg skal smide et svar også... Så vælger du begge navne fra listen hvor du kan acceptere svar og trykker accepter, så ordner den selv resten...
02. november 2003 - 18:06
#8
Ok Morten. Smid et svar.
02. november 2003 - 18:23
#9
Kommer her
02. november 2003 - 18:36
#10
02. november 2003 - 18:52
#11
Med hensyn til lektion21.asp kunne jeg ikke løse problemet. Så jeg må afvise svaret.
Kurser inden for grundlæggende programmering