Avatar billede kkd Nybegynder
03. april 2003 - 17:07 Der er 7 kommentarer og
1 løsning

Tjekke for duplikater i access-database

Hej...

Jeg har følgende kode, til at indsætte data i en database:
<%
' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("/db/mailliste.mdb")
Conn.Open DSN

strSQL = "Insert into mailliste (Navn,Email) values('" & Request.Form("navn") & "','" & Request.Form("email") & "')"
Conn.Execute(strSQL)

'Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
%>
Feltet Email er sat til ikke at acceptere duplikater. Hvis man så prøver at sætte en værdi ind, der allerede findes, får man en ikke særlig fiks fejlmeddelelse. Hvordan laves det om, så man i stedet for at vide, at e-mail allerede findes?

/kkd :oD
Avatar billede peterkopi Nybegynder
03. april 2003 - 17:35 #1
Avatar billede kkd Nybegynder
03. april 2003 - 17:45 #2
Det er mig selv, der har oprettet 336097 (!), men jeg kan ikke finde ud af at konvertere funktionen til det den skal bruges til her. Kan du ikke give et "kode-eksempel"
Avatar billede peterkopi Nybegynder
03. april 2003 - 17:58 #3
Hov, ja! 336097 var søreme dig selv :-)

Prøv at se dette her. Det ligger i mit eget script - det virker. Men jeg har ikke selv skrevet det! Det er downloadet og oversat til dansk...

<% Sub rsSubscribe()
Dim rsEmail
On Error Resume Next
Set rsEmail = Server.CreateObject("ADODB.Recordset")
    rsEmail.open "email", conn, 3, 3
    If err <> "0" Then mailerror() End If
    rsEmail.Find "email LIKE '"& email &"'"
If rsEmail.EOF Then
    Response.Redirect("add.asp?subscribe="& email)
    Else
Response.Write"<p></p><b>" & listname & " Status: Email Found. </b>"&_
"<br>The Email Address <font color='#FF0000'>" & email & "</font> is already"&_
"<br>in our " & listname & " List."&_
"<br><br><a href='java script:self.history.go(-1)'>Please go Back</a><p>&nbsp;</p>"
End If

        rsEmail.Close
        Set    rsEmail = Nothing
       
End Sub %>
Avatar billede peterkopi Nybegynder
03. april 2003 - 18:26 #4
PS! Scriptet hedder ListMail og er downloadet fra www.doitasp.com
Avatar billede kkd Nybegynder
03. april 2003 - 19:29 #5
Jeg er ked af det, men jeg kan ikke finde hoved og hale i dit script. Findes der ikke en "generel" funktion man kan bruge til at tjekke om der findes duplikater?
Avatar billede peterkopi Nybegynder
03. april 2003 - 22:36 #6
Scriptet her er et tip om, hvad du skal tjekke efter 'submit'. Men det du efterlyser lyder faktisk som noget du kan/skal gå ind og sætte op i Access, altså selve databasen!!!
Avatar billede kkd Nybegynder
04. april 2003 - 09:47 #7
Jeg tænkte på om man ikke kunne få den til at skrive noget bestemt, hvis den fandt en fejl. Altså i stedet får fejlmeddelelsen, så skrive noget andet!
Avatar billede kkd Nybegynder
04. april 2003 - 11:52 #8
Jeg har fundet en nødløsning, så det ser godt ud! Tak for hjælpen!
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester