Database Login

Well that depend on a number of things! Server?, client? database?

IF your database uses security then clients WILL NOT be allowed to use the database UNLESS they hace the correct permissions, then there IS NOTHING you need to do to check if they have given the correct userID and password!

Det fungere sådan at clienten sender en pakke med de nødvendige informationer, og så skal servern tjekke om clienten får lov til at connecte..Det gør clienten kun hvis han har skrevet "Terry" "143lok21" for eksemple....

what database?
Databases NORMALLY have some sort of security where users HAVE to have the correct permissions to use it. If the do NOT have these permissions then they will NOT be allowed to use the database and the CLIENT will get an error message!
You don NOT give enough information to be more specific. What client application are you talking about. What server, what database?

ok..
Clienten har intet med databasen at gøre, det er det første.
Clienten sender en pakke med userid og password. Serveren ligger det ind i en variabel og checker på databasen om userid og password matcher i databasen.
er det nok???
Det er bare en access database som er oprettede i Visual basic

Kan du ikke bare oprette en tabel "Brugere" i din database med username og password. Når brugeren indtaster brugernavn og password i to tekstfelter, læser du de tilsvarende poster i databasen. Er de ikke ens, kan du f.eks. vælge at lukke programmet, kun lade brugeren bruge visse funktioner e.l.

Her er et eksempel:

'Når brugeren klikker på Login-knappen:

Private Sub cmdLogin_Click()
  strBrugerID = txtBrugerID.Text
  strBrugerPW = txtBrugerPW.Text
  If KontrolAfLogon(strBrugerID, strBrugerPW) Then
    'Hvad der nu skal ske hvis logon er succesfuld
  Else
    txtBrugerPW.Text = ""
    txtBrugerPW.SetFocus
  End If
End Sub

Public Function KontrolAfLogon(strBrugerID As String, strBrugerPW As String) As Boolean

  'Ser om strBrugerID og strBrugerPW er i databasen og passer sammen
 
  Dim recBruger As Recordset
   
  'Recordset med alle brugere og passwords dannes
  Set recBruger = m_DB.OpenRecordset _
    ("SELECT Brugernavn, Password FROM Brugere ORDER BY Brugernavn", dbOpenSnapshot)
   
  Do While Not recBruger.EOF
    If strBrugerID = recBruger!Brugernavn Then
      If strBrugerPW = recBruger!Password Then
        KontrolAfLogon = True
      End If
    End If
    recBruger.MoveNext
  Loop
     
  recBruger.Close
End Function

I ovenstående skal du nok starte med at sætte "KontrolAfLogon = False" i starten af funktionen "Public Function KontrolAfLogon" - det glemte jeg i farten...

Fik du det til at virke?