---
title: "Finns redan i databasen"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/109037-finns-redan-i-databasen"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Rhadez"
published: "2004-08-12T14:08:10.000Z"
updated: "2004-08-12T14:37:28.000Z"
replies: 5
views: 190
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/109037-finns-redan-i-databasen"
---

# Finns redan i databasen

## #1 — Rhadez, 2004-08-12T14:08Z

Hejsan! te.x när användaren ska lägga till ngt i databasen, ifall den saken finns i databasen ska det komma upp ett meddelande typ:

Den finns redan i databasen.

//Rhadez

Permalänk: https://www.webforum.nu/p/109037

## #2 — m_soderlund, 2004-08-12T14:12Z

Om du har en kolumn i databasen som heter anvnamn så kan du köra enligt följande princip:

```
strSQL = "SELECT anvnamn FROM tabell WHERE anvnamn = '" & Replace(Request.Form("login_anvnamn"),"'","''") & "'"

'.. skapa nödvändiga objekt, connection och recordset

Set Rs = Cn.Execute(strSQL)

If Len(Rs("anvnamn"))>0 Then
Response.Write "Finns redan"
Else
'allt ok, fortsätt
End If

'stäng öppna objekt
```

Mina ASP-kunskaper börjar bli lite mossiga nu och om jag skrivit fel i exempelkoden - rätta gärna. Dock tror jag att allt är ok i koden.

Permalänk: https://www.webforum.nu/p/1409169

## #3 — Rhadez, 2004-08-12T14:16Z

Men ifall jag har denna kod:

```
<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("databas.mdb ")

SQL = "Insert Into Users(username,losen) Values('" & Request.Form("anvn") & "', '" & Request.Form("losen") & "')"

Connect.Execute SQL,,128
%>
```

hur lägger ja in den då?

Permalänk: https://www.webforum.nu/p/1409172

## #4 — m_soderlund, 2004-08-12T14:20Z

Typ så här:

```
<%
Dim Connect, Rs
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("databas.mdb ")

Set Rs = Server.CreateObject("ADODB.Recordset")

strSQL = "SELECT anvnamn FROM tabell WHERE anvnamn = '" & Replace(Request.Form("anvn"),"'","''") & "'"

Rs.Open strSQL, Connect

If Not Rs.EOF Then
Response.Write "Finns redan.."
Else

SQL = "Insert Into Users(username,losen) Values('" & Request.Form("anvn") & "', '" & Request.Form("losen") & "')"

Connect.Execute SQL,,128

End If

Rs.Close : Set Rs = Nothing
Connect.Close : Set Connect = Nothing
%>
```

**/r** ändrade lite kod, kör med EOF i stället för att kolla hur stort ett fält är

Permalänk: https://www.webforum.nu/p/1409175

## #5 — LeonL, 2004-08-12T14:24Z

Så här kanske? :)

```
<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("databas.mdb ")

'// Försök att få fram en post med samma username
Set objRS = Connect.Execute("SELECT username FROM Users WHERE username = '" & Request.Form("anvn") & "'")

'// Kolla om vi fick fram något
If objRS.EOF Then
  'Vi fick inte fram något. Fritt fram att lägga till
  SQL = "Insert Into Users(username,losen) Values('" & Request.Form("anvn") & "', '" & Request.Form("losen") & "')"
  Connect.Execute SQL,,128
Else
  'Vi fick inte fram något
End If
%>
```

r\\ Oops. Var visst lite sen. :r Sorry, ska inte lägga mig i. :bire

Permalänk: https://www.webforum.nu/p/1409176

## #6 — Rhadez, 2004-08-12T14:37Z

Tack så mycket!

Permalänk: https://www.webforum.nu/p/1409182

---

Tråden på webben: https://www.webforum.nu/amne/asp/109037-finns-redan-i-databasen