[ASP] Database invoer bestaat al

[Verwijderd]

Hoi.

Als ik een dubbele waarde probeer in te voeren in een database tabel via asp, krijg ik een lelijke serverfoutmelding. ALs ik die foutmelding krijg wil ik redirecten naar een andere page, waarin ik dan schrijf dat die input al bestaat

Als er geen input is, gebuik ik deze code:
<%
'Controleren of de bezoeker voorkomt. Zoniet, foutmelding weergeven
If (uitvoer.BOF) or (uitvoer.EOF) then
response.redirect "bezoekeropvragennietgevonden.asp"
end if
%>

Maar hoe doe je dit voor een dubbele waarde die je probeert in te voeren?

Soort fout:
Microsoft JET Database Engine (0x80004005)
De opgegeven wijzigingen aan de tabel zijn niet aangebracht omdat zij dubbele waarden zouden opleveren voor de index, primaire sleutel of relatie. Wijzig de gegevens in het veld of de velden die dubbele gegevens bevatten of definieer de index opnieuw.
/pashouderaanmelden.asp, line 15

[ Voor 26% gewijzigd door Verwijderd op 20-01-2005 16:41 ]

[Tinoo]

Het eenvoudigst lijkt mij door een recordset te maken waarin de te schrijven waarde wordt opgevraagd, bestaat deze al ga dan naar die foutmelding, anders de waarde toevoegen.

Zoiets:

Visual Basic:

strSQL ="SELECT * FROM TABEL WHERE kolom=" & 1
rs.Open(strSQL)
if Not (rs.BOF and rs.EOF) Then
 document.redirect "Foutmelding.asp"
else
rs.Addnew
etc.

.

[Verwijderd]

mmm. volges mij checkt ie nu toch alleen of er uberhaupt een input is? niet of het een dubbele wordt...

[mulder]

beetje 1 + 1 = 2 ofniet?

als er al 1 is kun je dus dubbele verwachten

[Verwijderd]

ja, en dubbele kan ie niet maken, dus als ie n fout geeft, wil ik n andere page..

Hoe doe je dat.

[bigbeng]

De oplossing van Tinoo is wat je nodig hebt.
Even een beetje creatief zijn, hij geeft nu een globale oplossingsrichting aan, de rest is up to you.

Een andere oplossing is voor het uitvoeren van de insert de volgende regel opnemen:

VBScript:

On Error Resume Next

En na de insert zet je neer:

VBScript:

If Err.Number = <het errornummer voor jouw fout> Then
   Response.Redirect "Jouwfoutpagina.asp"
End If
'En niet te vergeten de zeer belangrijke regel:
On Error Goto 0 'hiermee zet je de On Error Resume Next weer uit

De zaken die tussen <> staan moet je zelf uitzoeken/aanpassen. Succes

[Dutch_guy]

Die oplossing van Tinoo gebruik ik ook altijd, werkt perfect en is precies wat je nodig hebt.

In combinatie met een stukje javascript kan je mooi meteen doorgeven aan de gebruiker dat de invoer al bestaat.

[Verwijderd]

owja, ik begrijp die van tinoo nu...

[Verwijderd]

Hoe moet ik m nu invoegen op dit script??

<%@ Language = VBscript %>
<%

'Haal de variabelen uit de querystring
barcode = Request.Form("barcode")

'Voer de gegevens van de persoon die we willen toevoegen in in de database
SQLTOEVOEGEN="INSERT INTO Aangemeld (Barcode"
SQLTOEVOEGEN=SQLTOEVOEGEN & ") VALUES ("
SQLTOEVOEGEN=SQLTOEVOEGEN & "'" & barcode & "')"

'Maak verbinding met de database
set verbinding = server.createobject("ADODB.Connection")
verbinding.open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=C:\Inetpub\wwwroot\discotheek.mdb"
verbinding.Execute SQLTOEVOEGEN

response.redirect "menu2.asp"

%>

[Dutch_guy]

Verwijderd schreef op donderdag 20 januari 2005 @ 17:57:
Hoe moet ik m nu invoegen op dit script??

<%@ Language = VBscript %>
<%

'Haal de variabelen uit de querystring
barcode = Request.Form("barcode")

'Voer de gegevens van de persoon die we willen toevoegen in in de database
SQLTOEVOEGEN="INSERT INTO Aangemeld (Barcode"
SQLTOEVOEGEN=SQLTOEVOEGEN & ") VALUES ("
SQLTOEVOEGEN=SQLTOEVOEGEN & "'" & barcode & "')"

'Maak verbinding met de database
set verbinding = server.createobject("ADODB.Connection")
verbinding.open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=C:\Inetpub\wwwroot\discotheek.mdb"
verbinding.Execute SQLTOEVOEGEN

response.redirect "menu2.asp"

%>

Je moet eerst even e.e.a. in de goede volgorde zetten, je doet nu een select en vervolgens ga je de connectie maken.

En je commentaar bij het ophalen van de barcode klopt niet, je haalt niets op uit de querystring.

In de post van Tinoo staat het bijna letterlijk wat je moet doen.

[gorgi_19]

Ik gok dat je er met bovenstaande hints wel uit moet kunnen komen Eerst controleren of een invoer bestaat, dan pas gaan invoeren