webForumDet fria alternativet

vipen dubblas inte

8 svar · 688 visningar · startad av akke

akkeMedlem sedan aug. 200827 inlägg
#1

SQL = "UPDATE turkweb_medlem SET typ='vip', viptime = '"& DateAdd("m",1,Date) &"' where anvnamn = '"& fixbug(anvnamn) &"'"

när man redan har vip o köper igen så dubblas inte vipen, den börjar på nytt igen, någon som vet vad som är fel o kan hjälpa mig? jag har provat med case det gick inte bra.

LarsGMedlem sedan dec. 200012 464 inlägg
#2

Vilken databashanterare använder du? Du kan lösa detta direkt i SQL då i princip alla DBMS har funktioner för datumaritmetik.

Förmodligen gillar den inte det format du får från dateadd.

Flyttas från ASP.

akkeMedlem sedan aug. 200827 inlägg
#3

mmm

LarsG skrev:

Vilken databashanterare använder du? Du kan lösa detta direkt i SQL då i princip alla DBMS har funktioner för datumaritmetik.

Förmodligen gillar den inte det format du får från dateadd.

Flyttas från ASP.

ja använder mysql phpadmin fattar int riktigt hur ska man göra me databasen :q

LarsGMedlem sedan dec. 200012 464 inlägg
#4
sql = "UPDATE turkweb_medlem " & _
  "SET typ='vip', viptime = current_date + interval 1 month " & _
  " where anvnamn = '" & fixbug(anvnamn) & "'"
akkeMedlem sedan aug. 200827 inlägg
#5

LarsG skrev:

sql = "UPDATE turkweb_medlem " & _
  "SET typ='vip', viptime = current_date + interval 1 month " & _
  " where anvnamn = '" & fixbug(anvnamn) & "'"

tack för hjälpen har löst en annan set.

@ndersMedlem sedan juni 200032 969 inlägg
#6

Vad löste du det på för annat sätt då?

akkeMedlem sedan aug. 200827 inlägg
#7

@nders skrev:

Vad löste du det på för annat sätt då?

strSQL = "Select * From tbl_medlem where anvnamn = '"& fixbug(anvnamn) &"'"
Set ObjRS = ObjConn.Execute(strSQL)
IF ObjRS.eof then

Else

If ObjRS("typ")="medlem" then

SQL = "UPDATE tbl_medlem SET typ='vip', viptime ='"& DateAdd("m",1,now)&"' where anvnamn = '"& fixbug(anvnamn) &"'"
Objconn.Execute(SQL)

Else

SQL = "UPDATE tbl_medlem SET typ='vip', viptime ='"& DateAdd("m",1,ObjRS("viptime"))&"' where anvnamn = '"& fixbug(anvnamn) &"'"
Objconn.Execute(SQL)

såhär:P

LedelMedlem sedan dec. 2004736 inlägg
#8

Jag rekommenderar dig att använda LarsGs lösning... Din är inte helt snäll mot databasen, då du hämtar ut ALLT från tabellen och behandlar med if-satser och liknande, medan LarsG gör allt i en enda SQL-sats.

Edit: Eller, om du vill använda din lösning, bara hämtar "typ" och "viptime".

akkeMedlem sedan aug. 200827 inlägg
#9

ska kolla om det gör nåt problem ja kan byta:) annars det ä bra sådär:D

128 ms totalt · 3 externa anrop · v20260731065814-full.30151723
0 ms — hämta forumlista (cache)
0 ms — hämta statistik (cache)
125 ms — hämta tråd, inlägg och bilagor (db)