Validering før insert

Kan du ikke bare starte med at lave en SELECT, der henter uge, spillerunde, aar og medlem fra databasen, udfra de angivne værdier; hvis du får noget tilbage, ER der en i basen, og du kan udskrive din \"Fejl\"...

/CS

Sikkert, men hvordan? Et eksempel er velkomment!

<%

Const adOpenKeyset = 1
Const adLockOptimistic = 3
Dim output

Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"/oddsrus/baser/odds-db.mdb\")

Set rs = Server.CreateObject(\"ADODB.RecordSet\")
strSQL = \"Select * From kuponer_ind WHERE uge = \" & Request.form(\"uge\") & \" AND spillerunde = \" & Request.form(\"spillerunde\")
strSQL = \"  AND aar = \" & Request.form(\"aar\") & \" AND medlem = \'\" & session(\"logind\") & \"\'\"
rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic

if( NOT rs.EOF OR rs.BOF ) then
  output = \"Data eksisterer!!\"
else
 
    strSQL = \"Select * From kuponer_ind\"
    rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic
   
    rs.AddNew
    rs(\"uge\") = Request.form(\"uge\")
    rs(\"spillerunde\") = Request.form(\"spillerunde\")
    rs(\"aar\") = Request.form(\"aar\")
    rs(\"medlem\") = Session(\"loginid\")
    rs(\"dato_insert\") = Date()
    rs(\"dato_update\") = Date()
    rs(\"gevinst\") = 0
    rs(\"kuponstatus\") = \"A\"
    rs(\"pengestatus\") = \"A\"
    rs(\"k1n\") = Request.form(\"k1n\")
    rs(\"k1b\") = Request.form(\"k1b\")
    rs(\"k1t\") = Request.form(\"k1t\")
    rs(\"k1o\") = Request.form(\"k1o\")
    rs(\"k1u\") = \"\"
    rs(\"k2n\") = Request.form(\"k2n\")
    rs(\"k2b\") = Request.form(\"k2b\")
    rs(\"k2t\") = Request.form(\"k2t\")
    rs(\"k2o\") = Request.form(\"k2o\")
    rs(\"k2u\") = \"\"
    rs(\"k3n\") = Request.form(\"k3n\")
    rs(\"k3b\") = Request.form(\"k3b\")
    rs(\"k3t\") = Request.form(\"k3t\")
    rs(\"k3o\") = Request.form(\"k3o\")
    rs(\"k3u\") = \"\"
    rs(\"k4n\") = Request.form(\"k4n\")
    rs(\"k4b\") = Request.form(\"k4b\")
    rs(\"k4t\") = Request.form(\"k4t\")
    rs(\"k4o\") = Request.form(\"k4o\")
    rs(\"k4u\") = \"\"
    rs(\"k5n\") = Request.form(\"k5n\")
    rs(\"k5b\") = Request.form(\"k5b\")
    rs(\"k5t\") = Request.form(\"k5t\")
    rs(\"k5o\") = Request.form(\"k5o\")
    rs(\"k5u\") = \"\"
    rs(\"k6n\") = Request.form(\"k6n\")
    rs(\"k6b\") = Request.form(\"k6b\")
    rs(\"k6t\") = Request.form(\"k6t\")
    rs(\"k6o\") = Request.form(\"k6o\")
    rs(\"k6u\") = \"\"
    rs(\"k7n\") = Request.form(\"k7n\")
    rs(\"k7b\") = Request.form(\"k7b\")
    rs(\"k7t\") = Request.form(\"k7t\")
    rs(\"k7o\") = Request.form(\"k7o\")
    rs(\"k7u\") = \"\"
    rs(\"k8n\") = Request.form(\"k8n\")
    rs(\"k8b\") = Request.form(\"k8b\")
    rs(\"k8t\") = Request.form(\"k8t\")
    rs(\"k8o\") = Request.form(\"k8o\")
    rs(\"k8u\") = \"\"
    rs.Update
    output = \"Kuponen er nu tilføjet!\"
end if
rs.Close
Set rs = Nothing

Conn.Close
set Conn = Nothing
response.redirect (\"kupon_oversigt.asp\")
%>

<html>

<head>
<title>Kupon (insert)</title>
<link rel=\"stylesheet\" type=\"text/css\" href=\"layout/1.css\">
</head>

<body topmargin=\"10\" leftmargin=\"0\" rightmargin=\"0\">
<center>
<%= output %>

</body>
</html>

men du bør bruke en INSERT SQL istedenfor AddNew metoden....

Hmm...først brokkede den sig over, at der manglede et end if, det tilføjede jeg så som det sidste.

Nu brokker den sig over linje 13....

Fejltype:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
[Microsoft][ODBC Microsoft Access-driver] Der er en ugyldig SQL-sætning. \"DELETE\", \"INSERT\", \"PROCEDURE\",\"SELECT\" eller \"UPDATE\" var ventet.
/oddsrus/kupon_insert.asp, line 13

Hvorfor bør jeg i øvrigt bruge INSERT SQL, som du skriver?

- Linje 13 skal starte sådan her:

strSQL = strSQL & \"  AND aar = \" & Request.......

/CS

ahhh....sorry....bytt ut disse to linjer

strSQL = \"Select * From kuponer_ind WHERE uge = \" & Request.form(\"uge\") & \" AND spillerunde = \" & Request.form(\"spillerunde\")
strSQL = \"  AND aar = \" & Request.form(\"aar\") & \" AND medlem = \'\" & session(\"logind\") & \"\'\"

med disse:


strSQL = \"Select * From kuponer_ind WHERE uge = \" & Request.form(\"uge\") & \" AND spillerunde = \" & Request.form(\"spillerunde\")
strSQL = strSQL & \" AND aar = \" & Request.form(\"aar\") & \" AND medlem = \'\" & session(\"logind\") & \"\'\"

du bør bruke en INSERT sql fordi SQL er standard språk for å kommunisere med databaser. Denne \'addnew\' tingen er noe MicroSoft har funnet på for å hjelpe mennesker som ikke gidder å lære seg det som normallt kreves for å kode opp mot databaser....det er grimt.

en annen ting er at hvis du fx på et tidpunkt finner ut av at du vil overføre din kode til fx PHP, så er du nødt til å omskrive hele din innsettings prosedyre, istedenfor bare å forandremåten du kaller databasen...

meeeen....du gjør det du føler deg komfortabel med...

/nute

Det virker nu ikke så godt!

Der er faktisk bare \'blank\' skærm, når jeg prøver at tilføje noget.

Er du sikker på \" i strSQL - jeg er ikke ekspert, men det ser umiddelbart lidt forkert ud.

Og den der Dim Output - kan man ikke bare lave en Response.Write i stedet?

I øvrigt...hvis du kan omskrive koden fra AddNew til INSERT sql, er du selvfølgelig velkommen. Hvis det er tilfældet, er der ekstra 20 point at hente.

Koden som den ser ud lige nu...

<%

Const adOpenKeyset = 1
Const adLockOptimistic = 3
Dim output

Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"/oddsrus/baser/odds-db.mdb\")

Set rs = Server.CreateObject(\"ADODB.RecordSet\")
strSQL = \"Select * From kuponer_ind WHERE uge = \" & Request.form(\"uge\") & \" AND spillerunde = \" & Request.form(\"spillerunde\")
strSQL = strSQL & \" AND aar = \" & Request.form(\"aar\") & \" AND medlem = \'\" & session(\"loginid\") & \"\'\"

rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic

if( NOT rs.EOF OR rs.BOF ) then
  output = \"Data eksisterer!!\"

else

strSQL = \"Select * From kuponer_ind\"
rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic

rs.AddNew
rs(\"uge\") = Request.form(\"uge\")
rs(\"spillerunde\") = Request.form(\"spillerunde\")
rs(\"aar\") = Request.form(\"aar\")
rs(\"medlem\") = Session(\"loginid\")
rs(\"dato_insert\") = Date()
rs(\"dato_update\") = Date()
rs(\"gevinst\") = 0
rs(\"kuponstatus\") = \"A\"
rs(\"pengestatus\") = \"A\"
rs(\"k1n\") = Request.form(\"k1n\")
rs(\"k1b\") = Request.form(\"k1b\")
rs(\"k1t\") = Request.form(\"k1t\")
rs(\"k1o\") = Request.form(\"k1o\")
rs(\"k1u\") = \"\"
rs(\"k2n\") = Request.form(\"k2n\")
rs(\"k2b\") = Request.form(\"k2b\")
rs(\"k2t\") = Request.form(\"k2t\")
rs(\"k2o\") = Request.form(\"k2o\")
rs(\"k2u\") = \"\"
rs(\"k3n\") = Request.form(\"k3n\")
rs(\"k3b\") = Request.form(\"k3b\")
rs(\"k3t\") = Request.form(\"k3t\")
rs(\"k3o\") = Request.form(\"k3o\")
rs(\"k3u\") = \"\"
rs(\"k4n\") = Request.form(\"k4n\")
rs(\"k4b\") = Request.form(\"k4b\")
rs(\"k4t\") = Request.form(\"k4t\")
rs(\"k4o\") = Request.form(\"k4o\")
rs(\"k4u\") = \"\"
rs(\"k5n\") = Request.form(\"k5n\")
rs(\"k5b\") = Request.form(\"k5b\")
rs(\"k5t\") = Request.form(\"k5t\")
rs(\"k5o\") = Request.form(\"k5o\")
rs(\"k5u\") = \"\"
rs(\"k6n\") = Request.form(\"k6n\")
rs(\"k6b\") = Request.form(\"k6b\")
rs(\"k6t\") = Request.form(\"k6t\")
rs(\"k6o\") = Request.form(\"k6o\")
rs(\"k6u\") = \"\"
rs(\"k7n\") = Request.form(\"k7n\")
rs(\"k7b\") = Request.form(\"k7b\")
rs(\"k7t\") = Request.form(\"k7t\")
rs(\"k7o\") = Request.form(\"k7o\")
rs(\"k7u\") = \"\"
rs(\"k8n\") = Request.form(\"k8n\")
rs(\"k8b\") = Request.form(\"k8b\")
rs(\"k8t\") = Request.form(\"k8t\")
rs(\"k8o\") = Request.form(\"k8o\")
rs(\"k8u\") = \"\"
rs.Update

rs.Close
Set rs = Nothing

Conn.Close
set Conn = Nothing
Response.redirect (\"kupon_oversigt.asp\")
end if
%>

<html>

<head>
<title>Kupon (insert)</title>
<link rel=\"stylesheet\" type=\"text/css\" href=\"layout/1.css\">
</head>
<body>
</body>
</html>

\"Der er faktisk bare \'blank\' skærm, når jeg prøver at tilføje noget.\"...har du sett i databasen om posten har blitt lagt til ??

\"Er du sikker på \" i strSQL - jeg er ikke ekspert, men det ser umiddelbart lidt forkert ud\"...tja...du skrev vel svaret selv \"jeg er ikke ekspert\".  hva mener du med at \" i strSQL ser galt ut ?

\"Og den der Dim Output - kan man ikke bare lave en Response.Write i stedet?\"...jo

1) Jeps - der er IKKE tilføjet nogen ny post.
2) Hæ, hæ. Den er sikkert god nok. Synes bare, at der var for få \"\'er
3) Det gør jeg så i stedet.

du kan prøve å kjøre dette:

<%

Const adOpenKeyset = 1
Const adLockOptimistic = 3
Dim output

Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"/oddsrus/baser/odds-db.mdb\")

Set rs = Server.CreateObject(\"ADODB.RecordSet\")
strSQL = \"Select * From kuponer_ind WHERE uge = \" & Request.form(\"uge\") & \" AND spillerunde = \" & Request.form(\"spillerunde\")
strSQL = strSQL & \" AND aar = \" & Request.form(\"aar\") & \" AND medlem = \'\" & session(\"loginid\") & \"\'\"

rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic

if( NOT rs.EOF OR rs.BOF ) then
  output = \"Data eksisterer!!\"

else

SQL = \"INSERT INTO kuponer_ind SET \"
SQL = SQL & \"( uge, spillerunde, aar, medlem, dato_insert, dato_update, gevinst, kuponstatus, pengestatus, \"
SQL = SQL & \"k1n, k1b, k1t, k1o, k1u, \"
SQL = SQL & \"k2n, k2b, k2t, k2o, k2u, \"
SQL = SQL & \"k3n, k3b, k3t, k3o, k3u, \"
SQL = SQL & \"k4n, k4b, k4t, k4o, k4u, \"
SQL = SQL & \"k5n, k5b, k5t, k5o, k5u, \"
SQL = SQL & \"k6n, k6b, k6t, k6o, k6u, \"
SQL = SQL & \"k7n, k7b, k7t, k7o, k7u, \"
SQL = SQL & \"k8n, k8b, k8t, k8o, k8u ) VALUES \"
SQL = SQL & \"(\" & Request.form(\"uge\") & \", \" & Request.form(\"spillerunde\") & \", \" & Request.form(\"aar\") & \", \'\" & Session(\"loginid\") & \"\'\"
SQL = SQL & \", \" & Date() & \", \" & Date() & \", 0, \'A\', \'A\',\"
SQL = SQL & \"\'\" & request.form(\"k1n\") & \"\', \'\" & request.form(\"k1b\") & \"\', \'\" & request.form(\"k1t\") & \"\', \'\" & request.form(\"k1u\") & \"\', \'\" & request.form(\"k1o\") & \"\'\"
SQL = SQL & \", \'\" & request.form(\"k2n\") & \"\', \'\" & request.form(\"k2b\") & \"\', \'\" & request.form(\"k2t\") & \"\', \'\" & request.form(\"k2u\") & \"\', \'\" & request.form(\"k2o\") & \"\'\"
SQL = SQL & \",\'\" & request.form(\"k3n\") & \"\', \'\" & request.form(\"k3b\") & \"\', \'\" & request.form(\"k3t\") & \"\', \'\" & request.form(\"k3u\") & \"\', \'\" & request.form(\"k3o\") & \"\'\"
SQL = SQL & \",\'\" & request.form(\"k4n\") & \"\', \'\" & request.form(\"k4b\") & \"\', \'\" & request.form(\"k4t\") & \"\', \'\" & request.form(\"k4u\") & \"\', \'\" & request.form(\"k4o\") & \"\'\"
SQL = SQL & \",\'\" & request.form(\"k5n\") & \"\', \'\" & request.form(\"k5b\") & \"\', \'\" & request.form(\"k5t\") & \"\', \'\" & request.form(\"k5u\") & \"\', \'\" & request.form(\"k5o\") & \"\'\"
SQL = SQL & \",\'\" & request.form(\"k6n\") & \"\', \'\" & request.form(\"k6b\") & \"\', \'\" & request.form(\"k6t\") & \"\', \'\" & request.form(\"k6u\") & \"\', \'\" & request.form(\"k6o\") & \"\'\"
SQL = SQL & \",\'\" & request.form(\"k7n\") & \"\', \'\" & request.form(\"k7b\") & \"\', \'\" & request.form(\"k7t\") & \"\', \'\" & request.form(\"k7u\") & \"\', \'\" & request.form(\"k7o\") & \"\'\"
SQL = SQL & \",\'\" & request.form(\"k8n\") & \"\', \'\" & request.form(\"k8b\") & \"\', \'\" & request.form(\"k8t\") & \"\', \'\" & request.form(\"k8u\") & \"\', \'\" & request.form(\"k8o\") & \"\')\"

Conn.Execute( strSQL )
rs.Close
Set rs = Nothing

Conn.Close
set Conn = Nothing
Response.redirect (\"kupon_oversigt.asp\")
end if
%>

<html>

<head>
<title>Kupon (insert)</title>
<link rel=\"stylesheet\" type=\"text/css\" href=\"layout/1.css\">
</head>
<body>
</body>
</html>


jeg må ærlig innrømme at det er en grim database du har liggende under dette her. tabell med 49 (!!!!!!!) kolonner ?!?!?!?! hold da opp...

Der er stadig et eller andet galt! Jeg får stadig \'blank\' skærm. Det virker ikke som om, at der sker noget som helst. Ingen poster tilføjet i DB!

49 kolonner = grim database? Der er ikke en eneste kolonne, som jeg kan undvære!

jeg er sikker på at det ikke er en eneste kolonne du ikke kan unnvære, men det er normalt å spre sine data ut over flere tabeller. hele poenget er å bygge det som kalles en relasjonel database; en rekke tabeller som inneholder fraksjoner av relasjonelle data. med dette oppnår man å designe små tabeller som ikke inneholder mer informasjon enn overhodet nødvendig og man blir kvitt redundans...

nå...jeg kan ikke hjelpe hvis jeg ikke får mer å arbeide med enn \"det virker ikke\". jeg har sett koden, meeeen...uten noe mer å arbeide med, kan jeg ikke hjelpe.... :-|

Jeg undlod at lave det som en relations-database, eftersom jeg mente, at det blot ville gøre det endnu sværere for mig, når jeg skulle til at i gang med ASP.

Du kan sagtens få mere at arbejde med. Hvad vil du have...formular + database? Hvis ja, så skriv din mail-adresse.

hmmm....så har du misforstått en smule. relasjonelle databaser gjør tingene nemlig enklere å arbeide med ;-)

min mail står inne på min profil...send det til meg, så skal jeg se om jeg ikke kan finne ut av det...

Øh...Hvordan finder jeg din profil? Jeg klikkede på dit navn, men jeg kan kun se, hvilke spørgsmål du har oprettet/besvaret.

hvis du klikker på mitt navn, så står det adressen til et website og min mailadresse helt øverst...

men hvis du ikke kan finne ut av det...

knut@xperimentum.com

jeg har kommet fram til at dette skal kunne fungere. problemet er at jeg ikke har access innstallert på min maskin, så jeg kan ikke se hvilke datatyper de ulike kolonnene har, så dette er så langt jeg kommer ved å kikke på scriptet.

<%

Const adOpenKeyset = 1
Const adLockOptimistic = 3
Dim output

Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"/oddsrus/baser/odds-db.mdb\")



Set rs = Server.CreateObject(\"ADODB.RecordSet\")
strSQL = \"Select COUNT(*) AS tot From kuponer_ind WHERE uge = \" & Request.form(\"uge\") & \" AND spillerunde = \" & Request.form(\"spillerunde\")
strSQL = strSQL & \" AND aar = \" & Request.form(\"aar\") & \" AND medlem = \'\" & session(\"loginid\") & \"\'\"

rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic

if( rs(\"tot\") <> \"0\" ) then
  output = \"Data eksisterer!!\"
else

SQL = \"INSERT INTO kuponer_ind \"
SQL = SQL & \"( uge, spillerunde, aar, medlem, dato_insert, dato_update, gevinst, kuponstatus, pengestatus, \"
SQL = SQL & \"k1n, k1b, k1t, k1o, k1u, \"
SQL = SQL & \"k2n, k2b, k2t, k2o, k2u, \"
SQL = SQL & \"k3n, k3b, k3t, k3o, k3u, \"
SQL = SQL & \"k4n, k4b, k4t, k4o, k4u, \"
SQL = SQL & \"k5n, k5b, k5t, k5o, k5u, \"
SQL = SQL & \"k6n, k6b, k6t, k6o, k6u, \"
SQL = SQL & \"k7n, k7b, k7t, k7o, k7u, \"
SQL = SQL & \"k8n, k8b, k8t, k8o, k8u ) VALUES \"
SQL = SQL & \"(\'\" & Request.form(\"uge\") & \"\', \'\" & Request.form(\"spillerunde\") & \"\', \'\" & Request.form(\"aar\") & \"\', \'\" & session(\"loginid\") & \"\'\"
SQL = SQL & \", #\" & Date() & \"#, #\" & Date() & \"#, 0, \'A\', \'A\',\"
SQL = SQL & \"\'\" & request.form(\"k1n\") & \"\', \'\" & request.form(\"k1b\") & \"\', \'\" & request.form(\"k1t\") & \"\', \'\" & request.form(\"k1u\") & \"\', \'\" & request.form(\"k1o\") & \"\'\"
SQL = SQL & \", \'\" & request.form(\"k2n\") & \"\', \'\" & request.form(\"k2b\") & \"\', \'\" & request.form(\"k2t\") & \"\', \'\" & request.form(\"k2u\") & \"\', \'\" & request.form(\"k2o\") & \"\'\"
SQL = SQL & \",\'\" & request.form(\"k3n\") & \"\', \'\" & request.form(\"k3b\") & \"\', \'\" & request.form(\"k3t\") & \"\', \'\" & request.form(\"k3u\") & \"\', \'\" & request.form(\"k3o\") & \"\'\"
SQL = SQL & \",\'\" & request.form(\"k4n\") & \"\', \'\" & request.form(\"k4b\") & \"\', \'\" & request.form(\"k4t\") & \"\', \'\" & request.form(\"k4u\") & \"\', \'\" & request.form(\"k4o\") & \"\'\"
SQL = SQL & \",\'\" & request.form(\"k5n\") & \"\', \'\" & request.form(\"k5b\") & \"\', \'\" & request.form(\"k5t\") & \"\', \'\" & request.form(\"k5u\") & \"\', \'\" & request.form(\"k5o\") & \"\'\"
SQL = SQL & \",\'\" & request.form(\"k6n\") & \"\', \'\" & request.form(\"k6b\") & \"\', \'\" & request.form(\"k6t\") & \"\', \'\" & request.form(\"k6u\") & \"\', \'\" & request.form(\"k6o\") & \"\'\"
SQL = SQL & \",\'\" & request.form(\"k7n\") & \"\', \'\" & request.form(\"k7b\") & \"\', \'\" & request.form(\"k7t\") & \"\', \'\" & request.form(\"k7u\") & \"\', \'\" & request.form(\"k7o\") & \"\'\"
SQL = SQL & \",\'\" & request.form(\"k8n\") & \"\', \'\" & request.form(\"k8b\") & \"\', \'\" & request.form(\"k8t\") & \"\', \'\" & request.form(\"k8u\") & \"\', \'\" & request.form(\"k8o\") & \"\')\"

Conn.Execute( SQL )
rs.Close
Set rs = Nothing

Conn.Close
set Conn = Nothing
Response.redirect (\"kupon_oversigt.asp\")

end if
%>

<html>

<head>
<title>Kupon (insert)</title>
<link rel=\"stylesheet\" type=\"text/css\" href=\"layout/1.css\">
</head>
<body>
<%= output %>
</body>
</html>


/nute

Umiddelbart virkede nutes forslag ikke, men alligevel hentede jeg megen inspiration hér, hvorfor han får 50 point.

Tak for hjælpen.