3 svar · 233 visningar · startad av LearningASP
JAg kör en Access 2000 DB och då undrar jag hur man ska få användarnamnet unikt så att inga dubletter kan skapas (när nån registrerar sig, för så som jag har det nu kan nån registrera Johan och johan osv, hur gör man för att ta sig förbi detta?
Tack på förhand
query = "insert into users(name) select distinct '" & _
newName & "' from users where not exists (select 1 from " & _
" users where ucase(name) = '" & newName & "')"
connect.execute query,new,128
if new = 0 then
response.write "Det namnet finns redan <br>"
end if
Du kan också lägga till att kolumnen bara får innehålla unika värden.
jag provade att ändra i koden efter min Db och då fick jag fram detta resultat
query = "insert into userinfo(usr_namn) select distinct '" & _
" '" & strAlias & "' from userinfo where not exists (select 1 from " & _
" userinfo where ucase(usr_namn) = '" & strAlias & "')"
objConn.execute query,new,128
if new = 0 then
response.write "Det namnet finns redan <br>"
end if
men jag får följande felkod:
Microsoft VBScript compilation error '800a03f2'
Expected identifier
/pump/exclude/registrera/reg_ok.asp, line 76
objConn.execute query,new,128
-------------------------^
sen undrar jag hur man kollar att inte email adressen är upptagen
tack på förhand
New är inget bra variabelnamn i vb.
objConn.execute query,rows,128
if rows = 0 then
Om du vill kontrollera om en post finns i databasen
set rs = connec.execute( "select 1 from userinfo where email = '" & email & "'")
if rs.eof then
'posten finns inte
else
'posten finns
end if