"Automatisk" Delete av post

10 svar · 313 visningar · startad av Method 27 apr. 2001

MethodMedlem sedan apr. 2001357 inlägg

Trådstart27 apr. 2001 09:13#1

Jag har en sida som det ligger jobb på.
När man lägger till ett jobb så skriver man ett sista ansökningsdatum, detta datum vill jag även använda för att senare ta bort jobbet från databasen.

Jag vill att jobbet ligger kvar 3 dagar efter sista ansökningsdatumet.

Använder mig av en Access databas (om det hjälper att Ni vet)

jag har tittat runt på forumet och hittat en

Dim datum
datum = Date()
strSQL = "DELETE * FROM jobb WHERE datum < #datum#"
Set objRS = objConn.Execute(strSQL)

jag får inte denna att fungera.
(Känns som att jag måste ha något mer till denna kod.)

Kan nån ge en grundlig förklaring hur jag löser detta?

Tack på förhand

@ndersMedlem sedan juni 200032 967 inlägg

27 apr. 2001 09:16#2

strSQL = "DELETE * FROM jobb WHERE datum < #" & datum & "#"

MethodMedlem sedan apr. 2001357 inlägg

27 apr. 2001 09:42#3

Jag lägger väl koden på den sida där alla jobb visas ur databasen?

För jag får det inte att fungera med din kod.

Finns det nån annan kod som är bättre?

mvh

@ndersMedlem sedan juni 200032 967 inlägg

27 apr. 2001 10:32#4

felmeddelanden?
hur ser resten av koden ut?

heter ditt datumfält verkligen datum? du måste du klamra fältnamnet om din access är av svensk version:

strSQL = "DELETE * FROM jobb WHERE [datum] < #" & datum & "#"

du måste ge oss en bättre beskrivning på vad det är som inte funkar, om vi ska kunna hjälpa dig.

MethodMedlem sedan apr. 2001357 inlägg

27 apr. 2001 10:47#5

Detta är felmedelandet

Microsoft VBScript runtime error '800a01a8'

Object required: ''

Detta är min [KOD]
<%
Dim datum
datum = Date()
strSQL = "DELETE * FROM jobb WHERE [datum] < #" & datum & "#"
Set objRS = objConn.Execute(strSQL)
%>
[KOD]

Jag lägger väl koden där alla jobb visas ur databasen?

Behöver du hela HTML koden??

mvh

@ndersMedlem sedan juni 200032 967 inlägg

27 apr. 2001 10:52#6

var skapas objConn någonstans?
du skall inte skapa något recordset för att köra en delete-fråga, utan bara dra den genom .execute på ditt connectionobjekt.

stämmer fältnamnen i frågan överens med fältnamnen du använt i tabellen?

<%
Dim datum
datum = Date()
strSQL = "DELETE * FROM jobb WHERE [datum] < #" & datum & "#"
objConn.Execute(strSQL)
%>

felmeddelandet du får beror sannolikt på att du inte skapat något connection-objekt, och om du gjort det, hur du inte kallat det för objConn.

MethodMedlem sedan apr. 2001357 inlägg

27 apr. 2001 11:03#7

Nej jag har inga av de saker du nämner
har ingen conn-obj

jag vet inte hur man skall göra

har du lust att visa?

Fältnamnen stämmer.

@ndersMedlem sedan juni 200032 967 inlägg

27 apr. 2001 11:09#8

Jag lägger väl koden på den sida där alla jobb visas ur databasen?

huh? då måste du ju ha ett connectionobjekt eller missförstår jag dig totalt? du kan (och bör) alltså använda samma connectionobjekt för all databaskommunikation på sidan.

exempel på hur du kan göra för att skapa ett connectionobjekt:

set objConn = Server.CreateObject ("ADODB.Connection")
objConn.Provider = "Microsoft.Jet.OLEDB.4.0"
objConn.ConnectionString = "Data Source=" & Server.MapPath ("../db/databas.mdb")

ändra sökvägen till din databas...

@ndersMedlem sedan juni 200032 967 inlägg

27 apr. 2001 11:10#9

i din andra tråd (dropdownmenyer) har du ju skapat ett connectionobjekt.

varför inte använda det

MethodMedlem sedan apr. 2001357 inlägg

27 apr. 2001 11:20#10

Ok jag har tänk fel.

Nu är jag med vad du menar jag hadde tänkt helt fel på den koden.

tack för hjälpen

@ndersMedlem sedan juni 200032 967 inlägg

27 apr. 2001 11:30#11

okidoki, vassego!