Vb6 - Login

[XVincentX]

Scusate starò facendo una 30 di topic al secondo, ma nonostante la ricerca non ho trovato topic che soddisfano le mie richieste
In parole povere devo fare una finestra di login, i cui dati sono inseriti nel solito database di turno.
id.text e password.text sono i campi in cui vengono inseriti i dati.
A questo punto devo estrarre i dati dal database. Faccio quindi eseguire la query select id, password from login.
Ma poi dove vengono memorizzate le informazioni estrapolate dal database?
Avevo trovato
adodc1.recordset.getrows, ma non funziona, evidentemente ho sbagliato qualcosa?
Ancora una cosa
Se metto una istanza del controllo datagrid, e ne posiziono un altra sotto, nella prima faccio uscire dei nominativi
Quindi se io premo su un nominativo, vorrei che nel datagrid di sotto uscissero dei dati suoi contenuti in un'altra tabella
Per fare ciò in entrambe le tabelle ho messo i campi nome e cognome, cosi che posso richiamarli normalmente, ma purtroppo non copnosco i comandi del datagrid?

P.s Forse la seconda domanda l'ho già scritta scusate se è ripetuta!

[Fado84]

sinceramente ho capito poco.. cmq spero ti sia di aiuto..
Prima di tutto come è strutturato il database??
se hai una tabella UTENTI con dentro 2 campi USER e PASSWORD puoi fare così:
te hai il tuo recordset che caricherai con una query tipo
SELECT * FROM UTENTI

with recordset 
Do While .EOF and Trovato=False
    if !USER=id.password and !PASSWORD =password.text then
        Trovato=True
    end if
.movenext
Loop


if Trovato=True then
'fai quello che vuoi....
else
'login errato..
end if
end with

ciau!

[Fado84]

per salvare i dati di un nuovo user fai lo stesso procedimento per il controllo se esiste gia un user con quel nome.. se non c'è fai recordset.add e scrivi i dati del nuovo user

[XVincentX]

Grazie della risposta. Hai azzeccato quello che volevo fare, però non ho capito alcune righe di codice (sai ci tengo a capoire quello che mi faccio dire)

with recordset //cosa vuol dire questo?
Do While .EOF and Trovato=False //loop finchè trovato = falso e .eof cosa è?
    if !USER=id.password and !PASSWORD =password.text then //' se user = forse volevi scrivere user.text? e password = text.text allora metti quello true
        Trovato=True
    end if
.movenext //' movenext cosa significa?
Loop


if Trovato=True then
'fai quello che vuoi....
else
'login errato..
end if
end with //' si chiude il with recordset? 

Grazie!
Aspetto risposte per datagrid

[Brainjar]

with recordset //cosa vuol dire questo?
Do While .EOF and Trovato=False //loop finchè trovato = falso e .eof cosa è?
if !USER=id.password and !PASSWORD =password.text then //' se user = forse volevi scrivere user.text? e password = text.text allora metti quello true
Trovato=True
end if
.movenext //' movenext cosa significa?
Loop


if Trovato=True then
'fai quello che vuoi....
else
'login errato..
end if
end with //' si chiude il with recordset?

In VB 6.0

With/End With è un costrutto per specificare un ambito. In parole
povere vuol dire che tutto quello che scrivi tra With ed End With
è riferito all'oggetto specifico.

With recordset, quindi, vuol dire che in questo ambito fai
all'oggetto recodset. Per cui le proprietà ed i metodi di questo
oggetto non devono necessariamente essere preceduti dal nome dello
stesso.
Con il costrutto With/End With si compatta il codice. Senza
With/End With avresti dovuto scrivere :

Do While recordset.EOF and Trovato=False 
    if recordset!USER=user.Text and recordset!PASSWORD =password.text then 
    ' if recordset!USER=id.password and recordset!PASSWORD =password.text then
        Trovato=True
    end if
    recordset.movenext 
Loop

invece di :

with recordset 
Do While .EOF and Trovato=False 
    if recordset!USER=user.Text and recordset!PASSWORD =password.text then 
    'if !USER=id.password and !PASSWORD =password.text then
        Trovato=True
    end if
    .movenext 
Loop

EOF è una proprietà dei RecordSet ed indica, se True, che non ci sono
più records. Per cui il ciclo Do While si interrompe dopo l'ultimo
record, oppure non è iniziato se il recordset è vuoto.
La If è effettivamente errata, se le textbox si chiamano user e
password la if è quella che ho già inserito nel codice.
MoveNext è il metodo del RecordSet che ti posiziona al prossimo
record.

Ciao,

[Fado84]

Brainjar ha risposto perfettamente..
se hai altri dubbi chiedi pure

[XVincentX]

Siete stati chiarissimi, oggi lo provo a casa e vi faccio sapere
edit
ho provato però ho dei problemi e dubbi
mi dice loop senza do, eppure ci sta!
Ho provato altre volte ma niente da fare mi da vari errori di loop.
Sarebbe meglio spiegarmi le funzioni necessarie e magari lo sviluppo da solo.
Ho provato anche a smanettare varie volte, portando a termine questo codice

With Adodc1
With .Recordset
Do While (.EOF = True) And (trovato = True)
    If !USER = Text1.Text And !Password = Text2.Text Then
        trovato = True
    End If
.MoveNext
Loop
End With
End With
If trovato = True Then
Load principale
principale.Show
Unload Me
Else
If (trovato = False) Then
MsgBox "Nome utente o password errati", vbInformation, "Errore nel login"
End If
End If

Purtroppo mi da errore nel blocco with, cosa che per adesso non riesco ancora a capire

[XVincentX]

e vai one two three for and UP

[Brainjar]

Hai risolto ?
Guarda che hai annidato due With.
Prova a metterne uno solo con

With Adodc1.Recordset
    Do While (.EOF = True) And (trovato = True)
        If !USER = Text1.Text And !Password = Text2.Text Then
            trovato = True
        End If
        .MoveNext
    Loop
End With
If trovato = True Then
    Load principale
    principale.Show
    Unload Me
Else
    If (trovato = False) Then
        MsgBox "Nome utente o password errati",       vbInformation, "Errore nel login"
    End If
End If

Ciao,

[XVincentX]

guarda che i due blocchi with ci stanno bene, se noti io faccio
with adodc1
with .recordset
cmq di errore mi da (inserendo il tuo codice)
"Variabile oggetto o variabile blocco with non impostata"
Come riga gialla mi da
Do While (.EOF = True) And (trovato = True)
Non riesco a capire!