username e password

[ioanna]

ciao!
mi potrebbe dire qualcuno in dettaglio come posso fare a controllare con vb se username e password sono giuste?Questi dati stano in un database fatto con access 2000.

grazie!

[yyzyyz]

se ti puo' tornare utile leggi questo 3d
http://forum.html.it/forum/showthrea...hreadid=536494

[ioanna]

purtroppo non e' proprio quello che cercavo.Io praticamente ho creato il form e sto utilizzando ADO.Il mio problema piu' che altro e' come fare a sapere ogni volta quante righe contiene la mia tabella del db (visto che non sara' fissa) per poi poterla scandire.

[ioanna]

nessuno che mi puo' dare una mano?????

[ioanna]

forse se mi spiego meglio...
praticamente il mio problema e' che non so in che modo controllare tutte le linee del database per vedere se l'utente ha messo un username esistente o meno.
potrei controllarlo con sql ma dove metto questo codice??
vi prego datemi una piccola manina!!!

[nat99]

se ho capito bene:
hai un form con un DataGrid dove sn contenuti i valori di una tabella access con le login e le password...

se è cosi puoi:
1. crei un bottone
2. all'evento click kiedi 2 inputBox
3. fai il filtro sull'Ado (credo che usi quello)
4. controlli se il recordset è vuoto (quindi pass e login errati)
5. annulli il filtro sull'Ado per ripristinare il tutto...


facile no

[yyzyyz]

nell'arkivio ho trovato questo, ciao

Private Sub cmdOk_Click()
    Dim db_file As String
    Dim statement As String
    Dim conn As ADODB.Connection
    Dim rs As ADODB.Recordset
    
    ' Open the database.
    db_file = App.Path
    If Right$(db_file, 1) <> "\" Then db_file = db_file & "\"
    db_file = db_file & "data.mdb"
    
    ' Open a connection.
    Set conn = New ADODB.Connection
    conn.ConnectionString = _
        "Provider=Microsoft.Jet.OLEDB.4.0;" & _
        "Data Source=" & db_file & ";" & _
        "Persist Security Info=False"
    conn.Open
    
    ' Look up the user name/password.
    statement = "SELECT COUNT (*) FROM Users WHERE " & _
        "UserName='" & Replace(txtUserName.Text, "'", "''") & "' AND "
    & _
        "Password='" & Replace(txtPassword.Text, "'", "''") & "'"
    Set rs = conn.Execute(statement)
    
    ' See if we got anything.
    If CLng(rs.Fields(0)) < 1 Then
        ' There is no match.
        ' Do not allow the login.
        Unload Me
        MsgBox "Invalid user name/password."
    Else
        ' There is a match.
        ' Display the program's main form.
        Form1.Show
        Unload Me
    End If
    
    rs.Close
    conn.Close
End Sub

[ioanna]

grazie!!
un'altra cosina...come faccio a collegare il database al server?

[ioanna]

come non detto...VA BENISSIMO!!!

[ioanna]

scusa ma se quello che ho fatto lo devo avere tramite un link in internet, ovviamente essendo un .exe mi chiederà prima di aprire la pg se lo voglio aprire o salvare.Per evitare questa domanda lo devo portare in html?E se si come faccio???