Förbättra och få bort en RecSet i SQL satsen

3 svar · 243 visningar · startad av pRob3 22 okt. 2003

pRob3Medlem sedan maj 2003151 inlägg

Frågan22 okt. 2003 19:13#1

Fick lysande hjäp innan idag när jag ville göra om nedanstånde kod så den skulle passa till Access (kör MySQL). Men då fick ni in bort RecSet (Rs33) in i SQL satsen genom att använda IN direkt i sql satsen.
Skulle uppskatta om någon skulle vilja optimera koden nedan lite.

strSQL = "select count( * ) from  inloggningar where slaf = '" & vem & "'"
intLogs = Connect.execute( strSQL )( 0 )
if intLogs <= 15 then
  strSQL = "insert into inloggningar(slaf, datum, status, ip) values('" & vem & "','"& NOW() &"','1','"& Request.ServerVariables("REMOTE_ADDR") &"')"
else
  strSQL = "select id from inloggningar where slaf ='" & vem & "' order by datum LIMIT 1"
  set Rs33 = Connect.execute( strSQL )
  strSQL  = "update inloggningar set datum = '"& NOW() &"' where id = " & rs33( "id" )
  Rs33.Close : Set Rs33=Nothing
end if
Connect.execute( strSQL )

pRob3Medlem sedan maj 2003151 inlägg

22 okt. 2003 20:38#2

strSQL = "UPDATE inloggningar SET datum = '" & NOW() & "' WHERE slaf IN (SELECT slaf FROM inloggningar WHERE slaf = '" & vem & "' ORDER BY datum ASC LIMIT 1)"

Funkar inte...

@ndersMedlem sedan juni 200032 967 inlägg

23 okt. 2003 03:52#3

I SPiNs inlägg i din förra tråd, kan du notera att man inte skriver LIMIT 1 i Access, utan SELECT TOP 1 ....

"Funkar inte" är dessutom ingen bra felbeskrivning. Ge oss felmeddelande, alltid.

cyprysMedlem sedan dec. 20003 563 inlägg

23 okt. 2003 05:11#4

Du måste ha mySQL 4.1 för att kunna köra subquerys.