codice x passare alla subroutine chiamante un valore indicante la validità d password

[Raffo89]

Ciao a tutti, vorrei sapere ke codice devo inserire per passare alla subroutine chiamante un valore che indica che una password è valida all' interno di un Form di Login.Credo che il modo più semplice è l'impostazione di una variabile. Ho ragione? Ke mi consigliate voi? Inviatemi il codice x favore. Rispondete in molti. Grazie mille.

[FinalFantasy]

beh puoi fare così

public function CheckPasswd (byval pass as string) as Boolean
'codice per validita password
if la_pass_e_valida then
CheckPasswd=true
else
CheckPasswd=false
endif
end function

questo codice credo che sia compatibile con vb6 e vb.net

[LMondi]

Domanda fondamentale: come intendi salvare la password (dato che non può essere fissa - utilizzo di una costante) con db o sull'HD ?

[LMondi]

Ciao Raffo89 !
Ti posto un esempio di routine che usa un db per salvare le pw. Devi predisporre un'altra routine che consenta di variare la pw.

Dim conn As New ADODB.Connection
Dim miorecordset As New ADODB.Recordset
Dim user As Boolean
Dim pass() As String
'---------------------------------------
Private Sub cmdAvvio_Click()
    Dim i As Integer
    
    conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & App.Path & "\database_prova.mdb"
    conn.Open
        miorecordset.Source = "Select Entrata.IdNomi, Entrata.Username, Entrata.Password FROM Entrata;"
        miorecordset.Open , conn
    
    Do Until (miorecordset.EOF)
        If txtUsename.Text = miorecordset("Username") And txtPassword.Text = miorecordset("Password") Then
            Me.Hide
            Form2.Show
            Form2.Label2.Caption = txtUsename.Text
            user = True
            Exit Do
            Else
            user = False
        End If
            miorecordset.MoveNext
    Loop
    
    If user = False Then
        i = MsgBox("Attenzione, l'Username o la password non sono corretti", vbInformation + vbOKOnly, "Finestra di avviso")
    End If
    conn.Close
End Sub

Per provare il codice inserisci nella Frm 2 Txt: una con Nome txtUsename ed una con Nome txtPassword (in txtPassword nella proprietà PasswordChar digita *), oltre ad un CommButton di Nome cmdAvvio.
Nel Database crea 3 campi: IdNomi Contatore; Username e Password Testo.

[MMarzia]

ti ripeto nuovamente che nel titolo vanno indicati linguaggio e versione

spero tu lo capisca o saremo costretti a prendere provedimenti