mm jag förstår =) men e det inte bättre och göra som jag gör eller?
Senastebesökare
38 svar · 647 visningar · startad av antar · sida 2 av 2
Frågan, av antar
Har ett fält med namnet Senastebesökare och inne i fältet står det Pelle,Gustav,Erik,Bannan undrar hur man gör för att få det se ut så här: Pelle,Erik,Bannan dvs ta bort en medlem i innehållet!
Läs frågan i sin helhet →nån som vet hur man gör det blir samma värden på alla medlemmarnas senastebesökare?
mm jag förstår =) men e det inte bättre och göra som jag gör eller?
Nej du förstår tydligen inte. :D
Det är inte bättre att göra så som du säger. Gör om funktionen, annars kommer du ha problem med det där resten av tiden du jobbar med applikationen. ;)
men jag vill inte hålla på och ändra i databasen och sånt!
Nehe.
Då blev det helt plötsligt svårt igen :x
det är en admin funktion så jag vill få igång!
tar bort ett ord i fält som ser ut så här Gustav,pelle,antar !!
Ok, då gör vi väl så då:
1. Du kan inte skriva ett UPDATE-statement utan en WHERE i, då uppdateras alla poster precis som du skriver.
2. Testa det här:
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("../Database/Medlemmar.mdb")&""
set recset = server.createobject("Adodb.recordset")
sql = "select * from medlemmar"
recset.open sql,connect,3,3
arr = Split(recset("Senastebesokare"),",")
For i = 0 To Ubound(arr)
If lcase(arr(i)) <> lcase(recset("Senastebesokare")) Then
newstr = newstr & arr(i) & ","
End If
Next
Connect.Execute("UPDATE Medlemmar SET Senastebesokare = '"& newstr &"' [red]WHERE kolumn = '" & nån_variabel & "'[/red] ")
connect.close
set connect = nothing
solbulle skrev:
Du får i din sqlfråga lägga till en "Where-sats" så att du bara plockar ut en viss persons besökare, eller loopa dig igenom hela databasen.
...
Får se om han lyssnar nu då. :e
nope funkar inte?
arr = Split(recset("Senastebesokare"),",")
For i = 0 To Ubound(arr)
If lcase(arr(i)) <> lcase(recset("Senastebesokare")) Then
newstr = newstr & arr(i) & ","
End If
Next
Connect.Execute("UPDATE Medlemmar SET Senastebesokare = '"& newstr &"' where not Senastebesokare='"&request.form("Anvandarnamn")&"'")
connect.close
set connect = nothing
Vad funkar inte? Vad händer? Felmeddelande?
inga felmeddelande men blir samma värde i alla fält? och extra ,,,
Släng in lite testutskrifter:
arr = Split(recset("Senastebesokare"),",")
response.write (recset("Senastebesokare") & "<p>"
For i = 0 To Ubound(arr)
If lcase(arr(i)) <> lcase(recset("Senastebesokare")) Then
newstr = newstr & arr(i) & ","
End If
Next
response.write newstr & "<p>"
response.end
Connect.Execute("UPDATE Medlemmar SET Senastebesokare = '"& newstr &"' where not Senastebesokare='"&request.form("Anvandarnamn")&"'")
connect.close
set connect = nothing
Vad får du ut?
nu blir det så här
pelle,gustav,antar,,,,,
visa alla utskrifter:
response.write (recset("Senastebesokare") & "<p>"
samt
response.write newstr & "<p>"
Kanske kan man göra något likt detta för att få bort de tomm posterna, finns säkert bättre sätt:
arr = Split(recset("Senastebesokare"),",")
For i = 0 To Ubound(arr)
If lcase(arr(i)) <> lcase(recset("Senastebesokare")) Then
If len(arr(i)) > 2 then
newstr = newstr & arr(i) & ","
End If
End If
Next
solbulle> nu hänger jag inte med vilken kod ska jag välja?
gustav går fortfarande inte bort!