Skrive i en database

vbShortName er en konstant for et format. Du kan istedet bruge eks. NOW() el. getdate() afhængig af hvilken database du anvender.

Og i øvrigt adskilles felter med komma i updates, eks.

UPDATE Tabel SET Felt1=123, Felt2='abc'

<< tmceu  >> , hvordan henter jeg "5/31/2002"  ud af "Now" ?

Hvis du vil have den indsat i en database, behøver du i mange tilfælde ikke at "hive" en dato ud i "dit" format, da now i denne sammenhæng er en databasefunkton.

Hvis du anvender Access, vil jeg tro at det rigtige SQL statement for dig er:

strSQL = "update counter set dato = now(), idag = 0"

Hvis idag er et tekstfelt, skal du i stedet anvende:

strSQL = "update counter set dato = now(), idag = '0'"

Og så skal du være opmærksom på, at ovenstående sætning ændrer alle poster i tabellen, da du ikke har nogen WHERE clause på.

hmm... jeg har lavet koden lide om, men det virker stadig ikke (undskylf jeg først skriver tilbage nu, men jeg har ikke kunne komme ind på eksperten, ved ikke om serveren har været nede?):

Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("../db/dbase.mdb")
Conn.Open DSN

strSQL = "Select * From counter"
Set rs = Conn.Execute(strSQL)
strNAVN = rs("dato")


If strNAVN <> date() then
strSQL = "update counter set dato = date(), idag = "1""
Conn.Execute(strSQL)
Else
End if

strSQL2 = "update counter set ialt=ialt+1, idag=idag+1"

Conn.Execute(strSQL2)



Conn.Close
Set Conn = Nothing



.... her har du hele koden... men den kommer stadig med en fejl,

Hvis idag er et tekst felt:

strSQL = "update counter set dato = date(), idag = '1'"

Hvis det er nummerisk:

strSQL = "update counter set dato = date(), idag = 1"

nu nulstiller den min "idag", men det gør den altid selvom det er den samme dato jeg går ind på siden? Hvis det er den samme dato, burde den +1 til min idag hver gang jeg går ind på siden. Det er som om den kører dette:

If strNAVN <> date() then
strSQL = "update counter set dato = date(), idag = "1""
Conn.Execute(strSQL)
Else
End if

...hver gang.

Jeg tror det går galt her:

strNAVN = rs("dato")

If strNAVN <> date()

Jeg forstår ikke helt navngivningen af din strNAVN, hvilket indikerer at det er en streng, som du forsøger at sammenligne med en dato ?

Prøv evt. at lave en response.write på værdierne strNAVN og date(), så vil du garanteret se en forskel i format.

Du kunne måske lave et check med datediff funktionen, men jeg er ikke sikker, da jeg ikke helt er klar over hvad du vil :-)

Du mangler måske også en WHERE clause, med mindre du bevidst vil opdatere alle poster ?

Mht. til min WHERE clause, så er det kun en post.
Jeg har lavet en reponse.write på dem begge, og de er accurat det sammen, nemlig: 6/2/2002

nå, nu virker den, og det var en fejl fra min side... jeg havde ikke sat min colonne i min tabel i min database til at være en dato-format men kun som tekst... undskyld..!

Du skal ikke undskylde overfor mig, det er jo dig der har problemet :-)