Databas fråga

5 svar · 211 visningar · startad av mdb 10 juli 2001

mdbMedlem sedan juli 20014 inlägg

Trådstart10 juli 2001 18:56#1

Hej alla!

Håller på och pular lite på detta scriptet. Får det inte att funka :/ Om t ex någon skriver i formuläret att hon är en kvinna så reggas hon. Men om det redan finns en kvinna i databasen så stå "Sorry, vi har redan en kvinna i teamet!"

hjälp...

<%
strSex=trim(Request.Form("sex"))

If strSex = "kvinna" Then
    SEX = "kvinna"

        Else If strSex = "man" Then
        SEX = "man"

End If

Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("databas.mdb")
SQL="SELECT * FROM tabell WHERE Sex='" & SEX & "'"
Connect.Execute(SQL)

If SEX=RecSet("Sex") Then
Response.Write "Sorry, vi har redan en "& SEX &" i teamet!"

Else
    'Kod som sparar i databasen.
    Response.Write "Välkommen, du är visst en "& SEX &"."

End If

RecSet.Close
Connect.Close

Set RecSet = Nothing
Set Connect = Nothing
%>

PaceMedlem sedan juni 20019 024 inlägg

10 juli 2001 19:17#2

Kan du inte bara kolla om EOF är sant, i så fall är det bara att lägga till i db:n, ANNARS "sorry, kvinna finns redan..."

LarsGMedlem sedan dec. 200012 464 inlägg

10 juli 2001 19:18#3

Det får alltså bara finnas en person av vardera könet i databasen? Så här kanske.

<%
SEX =Ucase(trim(Request.Form("sex")))
if  SEX <> "KVINNA" and SEX <> "MAN" then
  response.write "Ange man eller kvinna <br>"
  response.end
end if

Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("databas.mdb")
SQL="SELECT 1 FROM tabell WHERE Sex='" & SEX & "'"
set recset = Connect.Execute(SQL)

if not recset.eof then
Response.Write "Sorry, vi har redan en "& SEX &" i teamet!"
Else
'Kod som sparar i databasen.
Response.Write "Välkommen, du är visst en "& SEX &"."
End If

RecSet.Close
Connect.Close

Set RecSet = Nothing
Set Connect = Nothing
%>

Om jag har missförstått så kan du gärna förklara lite mer.

mdbMedlem sedan juli 20014 inlägg

10 juli 2001 20:45#4

Pace: Hur menar du?

LarsG: Du har förstått rätt, ska testa koden.

Edit: muppar som fan

[Redigerat av mdb den 10 jul 2001]

PaceMedlem sedan juni 20019 024 inlägg

10 juli 2001 20:51#5

Mdb: Jag menar precis som LarsG kodade under mitt inlägg! (tack för det LarsG!)

if not recset.eof then
Response.Write "Sorry, vi har redan en "& SEX &" i teamet!"
Else
'Kod som sparar i databasen.
Response.Write "Välkommen, du är visst en "& SEX &"."
End If

"Välkommen, du är visst en kvinna."

Kul välkomstmeddelande!

Förresten, glömde ju:

Välkommen mdb!

mdbMedlem sedan juli 20014 inlägg

10 juli 2001 20:57#6

Aha Pace. Förresten, tack för det varma mottagandet Tror jag stannar kvar ett tag