---
title: "Access"
type: "forum-thread"
url: "https://www.webforum.nu/amne/dotnet/78368-access"
topic: ".NET"
topic_url: "https://www.webforum.nu/amne/dotnet"
author: "PsyDonia"
published: "2003-05-28T21:31:45.000Z"
updated: "2003-05-29T08:59:52.000Z"
replies: 2
views: 193
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/dotnet/78368-access"
---

# Access

## #1 — PsyDonia, 2003-05-28T21:31Z

Hej!!!
Några frågor..

först hur öppnar man en .mdb databas som ligger på en webserver...

Sen så har jag gjort en sak och lyckats lite men har ett problem.

jag öppnar databasen som ligger i app.path.

sen så loopar den igenom table som heter members.

och gämför med en textbox som heter username och en som heter password
och om username och uname i databasen är lika så connect men den vill inte.
lite kod om hur det är..

Connect.Open "driver={Microsoft Access Driver (\*.mdb)};dbq=" & App.Path & "/members.mdb;uid=;pwd=lösenordet"

SQL = "Select \* From members"
'Set RecSet = Connect.Execute(SQL)

RecSet.Open SQL, Connect, adOpenStatic, adLockOptimistic

Do Until RecSet.EOF
    If Usernames.Text = RecSet!Username And Passwords.Text = RecSet!losen Then
    

        RecSet!Status = "online"
RecSet.Update
Nicks = RecSet!Username

        Statuss = RecSet!Status 

Text1.Text = "Välkommen " & Nicks & "!" & vbnewline & "Din Status är " & statuss 
        RecSet.Close
        Connect.Close
        Set RecSet = Nothing
        Set Connect = Nothing
        
        Usernames1 = ""
Password1 = ""
RecSet.Close
Connect.Close
Set RecSet = Nothing
Set Connect = Nothing
Exit Sub
    End If
List1.additem RecSet!Username
Usernames1.text = ""
Password1.text = ""
RecSet.MoveNext
Loop

RecSet.Close
Connect.Close
Set RecSet = Nothing
Set Connect = Nothing

Dim Medelande
Medelande = "Wrong Username or Password! Please try again"
MsgBox Medelande
frmMain.Show

'Unload Me
Exit Sub
ErrHandler: 'Felhanteringen
MsgBox Err.Description 'Ger meddelande om vad det är för fel

varför vill den inte skriva i text1.text men den addar alla username i databasen till list1..

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

## #2 — PsyDonia, 2003-05-28T21:41Z

just det ser lite konstigt ut längst ner 
Textboxen som användarnamnet står i heter Usernames och lösenord textboxen heter Passwords

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

## #3 — PsyDonia, 2003-05-29T08:59Z

har löst problemet själv..

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

---

Tråden på webben: https://www.webforum.nu/amne/dotnet/78368-access