1. Danke, dass du mir immer noch hilfst. Ich weiss ich bin manchmal echt kompliziert.
2. Sorry tut mir echt leid, dass du wegen mir den Überblick verloren hast.

3. Nochmal von vorn:

Ich hab ein Print Screen gemacht, dass es übersichtlicher wird.

Als erste werden die Unterlagen, welche schon dem Kurs zugeordnet sind aufgelistet. Danach kommt das Formular, wo man weitere Unterlagen hinzufügen kann. Das Problem ist, das Unterlagen doppelt vorkommen können, was ich verhindern möchte.

Fügt man eine Unterlage hinzu, werden KursID und UnterlagenID in die Datenbanktabelle Kursunterlagen hinzugefügt, welche folgende Attribute enthält: KursunterlagenID (wird automatisch vergeben), KursID und UnterlagenID. Dieser Insert funktioniert!

Code :

1	Set rs = KPLcon.Execute("INSERT INTO Kursunterlagen (KursID, UnterlagenID) VALUES (" & Request.Form("KursID") & ", " & Request.Form("sUnter") & ")")

Nun zum überprüfen ob eine Unterlage schon zugeordnet ist:

Mit diesem Code frage ich die Tabelle Kursunterlagen ab ob scho ein Eintrag vorhanden ist.

Code :

1 2	sql= "SELECT * FROM Kursunterlagen WHERE KursID = " & Request("KursID") & " AND UnterlagenID = " & Request.Form("UnterlagenID") Set rs = KPLcon.Execute(sql)

Jetzt habe ich genau diesen Code abgeändert:

Code :

1 2	sql= "SELECT * FROM Kursunterlagen WHERE KursID = " & Request("KursID") & " AND UnterlagenID = " & Request.Form("[COLOR=Red]sUnter[/COLOR]") Set rs = KPLcon.Execute(sql)

Dieser löst keine Fehlermeldung mehr aus.

Ich vermute dass es so funktioniert, bin mir aber nicht sicher. War dies der Fehler?

Ich hoffe, dass du jetzt wieder einen Überblick hast. Wenn nicht, was bereitet dir noch Probleme?

Lg Meitli

Hi

so ein Screenshot bringt absolut nix.

Ich weiss, wie das Formular aussieht.

Die Abfrage lautet im Select auf Kursid and UnterlagenID, das heißt, wenn es keinen Datensatz gibt, der beide Werte explizit enthält, wird er lt. Deiner Abfrage immer einen neuen Datensatz anlegen.

Ob Du jetzt über die Listbox den Wert, den Du ursprünglich haben willst, richtig übergibst, und ob es der ist, den Du überhaupt willst, das weisst nur Du.

Lass Dir einfach mal das SQL-Statement auf dem Bildschirm anzeigen, dann siehst Du, was übergeben wird oder nicht

sql = "SELECT * FROM Kursunterlagen WHERE KursID = " & Request("KursID") & " AND UnterlagenID = " & Request.Form("sUnter")
'Set rs = KPLcon.Execute(sql)
Response.write sql
Response.end

Das mit dem Screen Shot merke ich mir.

Mit deinem Code, konnte ich das SQL-Statement ausgeben. Es funktioniert

Danke für deine Hilfe Ich wünsch dir noch einen schönen Tag

Hi

nicht falsch verstehen, das ist nur übliche Ausgabe eines Statements, um zu sehen, was da falsch ist. Der Scriptcode wird in dem Fall NICHT ausgeführt, also es passiert nix.

Es ist lediglich nur eine Möglichkeit der Fehlersuche.

Wenn Du es ausführen möchtest, musst Du es wieder rückgängig machen

sql = "SELECT * FROM Kursunterlagen WHERE KursID = " & Request("KursID") & " AND UnterlagenID = " & Request.Form("sUnter")
Set rs = KPLcon.Execute(sql)
' --- Response.write sql
' --- Response.end

Ich weiss, dass das nur eine Möglichkeit zum Fehlerüberprüfen ist!

Aber ich habe das ganze natürlich getestet, und jetzt werden keine doppelten Einträge mehr gemacht, es kommt die vorgesehene Meldung!

Lg Meitli