Sletning af alt data i en database

den hedder bare "DELETE FROM nyhedder"...

Jah.... det virker ikke! Har jeg prøvet :P

Hejsa!

Du kan ikke bruge * i en DELETE-statement! Du kan evt. sige:

strSQL = "DELETE FROM nyheder WHERE ID > '0'"

Det skulle virke!

Med venlig hilsen,

Thomas Regin.

Hvor ID naturligvis er din Primær-nøgle/Identity felt. ;)

Thomas.

virker ikke... desværre...

Skal der ikke en Loop While Not rs.EOF ????

eller noget i den stil :P
jeg er rimlig newbie....

Hvis du vil slette alt i tabellen "Nyheder", så ER det:

"delete from Nyheder"

Men du snakker om at slette alt i en database. Det er jo noget lidt andet

Jeg skal have slettet alle Columns og Rows inde i databasen!
Det er et nyhedsscript hvor jeg skal slette alt...

Thufir!

Lad mig se noget kode! Der skal ikke være et loop for at slette alt, men der skal naturligvis være en funktion, der eksekverer SQL-sætningen!

F.eks:

strSQL = "DELETE FROM NYHEDER WHERE ID > '0'"
myConn.execute(strSQL)

Hvis dette ikke virker, så har din database muligvis et problem. Der kan godt opstå nogle problemer ved sletning af meget store databaser på den måde, hvis der skal slettes flere hundrede tusinde records..

Med venlig hilsen,

Thomas Regin.

min kode ser sådan her ud:

<%
' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("../../database/nyheder.mdb")
Conn.Open DSN

strSQL = "DELETE FROM nyheder WHERE ID > '0'"

' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
%>

MVH
Søren Juhl Nielsen (ThuFiR)

Thufir!

Du mangler at eksekvere!

<%
' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("../../database/nyheder.mdb")
Conn.Open DSN

strSQL = "DELETE FROM nyheder WHERE ID > '0'"
Conn.execute(strSQL)

' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
%>

Thomas.

Virker ikke.... Får en fejl....

Nu er jeg mere vant til MySQL, men der skal da ikke ' omkring nullet:

strSQL = "DELETE FROM nyheder WHERE ID > 0"

Har du overhovedet et ID-felt ?

Microsoft OLE DB Provider for ODBC Drivers (0x80040E07)
[Microsoft][ODBC Microsoft Access-driver] Datatyperne stemmer ikke overens i kriterieudtrykket.
/admin/start.asp, line 79

Thufir,

Okay.. Så gør som rbl siger, og fjern nullet helt, således at der står:

strSQL = "DELETE FROM nyheder"
Conn.execute(strSQL)

Det er jo ikke sikkert, at du har et ID-felt! ;)

Thomas.

Ja jeg har...... Og det er Primær nøgle!

SÅ!! nu sker der noget!...

Well hvad skal man så gøre for at den skriver at der ingen nyheder er....... hehe... er det ikke bare ELSE?

Hvis jeg kører den fil der viser indholdet.. Så kommer der en fejl om at databasen er tom... Hvordan får jeg den til at skrive at den er tom?

Thufir,

Hvis du skal ha' den til at skrive, at der ingen nyheder er, må du først vælge noget fra databasen:

<%
'Find ud af om der er nyheder eller ej.
strSQL = "SELECT * FROM Nyheder"
set rs = Conn.execute(strSQL)

if rs.EOF then
Response.WRite "Der er ingen nyheder.. Øv!"
Else
Response.WRite "Her er nyhederne<br>"
do while not rs.EOF
Response.WRite rs("Nyhed")
rs.Movenext
Loop
End If
%>

okay!!! hmm jeg ved ikke hvem der skal have poinsne.. :( er har begge to hjulpet.... Jeg synz bare det er thomas der har hjulpet mest...

<%
' SQL Forespørgsel
strSQL = "Select * from nyheder order by id DESC"

'Udfør forespørgsel (rs indeholder nu resultatet)
Set rs = Conn.Execute(strSQL)

if rs.EOF then
Response.WRite "<a>Der er ingen nyheder.. Øv!</a>"

Do

Response.Write "<div style=""width:500"">"
Response.Write "<hr width=""500""><a>Nyhed nummer: " & rs("ID") & "</a><br>"
Response.Write "<br><b><h2> " & rs("navn") & "</h2><b><br>"
Response.Write "<a> " & rs("nyhed") & "</a><br><br>"
Response.Write "<b><a><i>Oprettet af " & rs("opretter") & "</a><br><hr width=""500"">"
Response.Write "</div>"

rs.MoveNext

Loop While Not rs.EOF


%>

Det virker ik!

Thufir,

Du mangler et END IF i bunden!

/Thomas.

Og du mangler også ELSE!..

Prøv dette istedet:

<%
' SQL Forespørgsel
strSQL = "Select * from nyheder order by id DESC"

'Udfør forespørgsel (rs indeholder nu resultatet)
Set rs = Conn.Execute(strSQL)

if rs.EOF then
Response.WRite "<a>Der er ingen nyheder.. Øv!</a>"

Else

Do while not rs.EOF

Response.Write "<div style=""width:500"">"
Response.Write "<hr width=""500""><a>Nyhed nummer: " & rs("ID") & "</a><br>"
Response.Write "<br><b><h2> " & rs("navn") & "</h2><b><br>"
Response.Write "<a> " & rs("nyhed") & "</a><br><br>"
Response.Write "<b><a><i>Oprettet af " & rs("opretter") & "</a><br><hr width=""500"">"
Response.Write "</div>"

rs.MoveNext

Loop

End If


%>

Nååh... hehe

Kører det?

Jepper!

Herligt!! :)

Tak for pointene!

Thomas.

Bare iorden!