dubletter

4 svar · 261 visningar · startad av antar 27 sep. 2002

antarMedlem sedan dec. 2001289 inlägg

Frågan27 sep. 2002 13:59#1

får inte igång den den lagrar samma användarnamn till databasen endå?

Set Connect=Server.CreateObject("ADODB.Connection") 
sConnect = "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("Database/Dagbok.mdb")&"" 
Connect.Open(sConnect) 

Anvandarnamn= request.querystring("Anvandarnamn") 
id= request.querystring("ID") 

SQL="SELECT Lasare, Anvandarnamn FROM Dagbok WHERE Anvandarnamn='" & Anvandarnamn & "'" 
Connect.execute(SQL) 
Set Recset=Server.CreateObject("ADODB.Recordset") 
Recset.open SQL, Connect, 3,3 

adda=session("Anvandarnamn")&"="&now()&"¶"
happ=adda & recset("Lasare") 

if not recset("lasare") = "" then
strArray = split(recset("Lasare"),"¶")

for i = lbound(strArray) to ubound(strArray)
   if strArray(i) = session("Anvandarnamn") then
      isMatch = True
      exit for
   end if
next

if isMatch <> True then
if not recset("Anvandarnamn")=session("Anvandarnamn") then
sql="UPDATE Dagbok SET Lasare='" & happ & "' WHERE Anvandarnamn='" & Anvandarnamn &"'" 
connect.execute sql,,128
connect.close
set connect = nothing
end if
end if
else
if not recset("Anvandarnamn")=session("Anvandarnamn") then
sql="UPDATE Dagbok SET Lasare='" & happ & "' WHERE Anvandarnamn='" & Anvandarnamn &"'" 
connect.execute sql,,128
connect.close
set connect = nothing
end if
end if

fundrusseMedlem sedan jan. 2002286 inlägg

28 sep. 2002 00:51#2

Ehh ok..
Nu vet jag inte om jag förstog fråga rätt
Men om det bara är dubletter du vill kolla så använd följande kod

If RecSet.EOF Then
'Dublett finns
Else
'Dublett finns ej
End If

jboy_87Medlem sedan aug. 20011 099 inlägg

28 sep. 2002 11:33#3

testa med
if isMatch = True then

antarMedlem sedan dec. 2001289 inlägg

28 sep. 2002 11:51#4

funkar inte!! nån som vet hur man gör?

jboy_87Medlem sedan aug. 20011 099 inlägg

29 sep. 2002 12:56#5

testa detta da?

for i = lbound(strArray) to ubound(strArray)
   if instr(recset("Lasare"),session("Anvandarnamn")) then
        isMatch = True
      exit for
   end if
next

if not isMatch = True then
'update
else
'nått
end if