[VB6]Passaggio Variabili da un form

[Games]

Ciao a tutti, volevo una info
Io ho un form dove si mette il cognome e la password di un cliente.
Una volta inseriti fa una ricerca nel db è controlla se è esatto, se esatto mi deve aprire un altro form riguardante quel cognome.
Adesso mi chiedevo come posso fare per aprire le informazioni su un altro form?
Devo passare il cognome nell'altro form e fare una query..
Il problema e che non so come fare per far passare il cognome all'altro form.
Qualcuno può aiutarmi?
Thanks

[LMondi]

Ciao! Puoi superare il tuo problema dichiarando una variabile Public; l'attivi e così la vedi in tutto il progetto.

[Games]

è giusto se faccio così??

Public Sub cmd_login_Click()
Rem variabili per contenere il cognome e la password
Dim cognome, password, cognome_app, password_app As String
cognome = txt_cognome.Text
password = txt_pass.Text
ado_banca.RecordSource = "SELECT Cognome, Password FROM Clienti WHERE Cognome =cognome AND Password=password"
ado_banca.Refresh
cognome_app = txt_cogn1.Text
password_app = txt_pass1.Text
If cognome = cognome_app And password = password_app Then
 MsgBox "Login Effettuato Con Successo!", vbOKOnly + vbExclamation, "Successo!"
 frm_accesso.Hide
 frm_conto.Show
Else
 MsgBox "Cognome o password errata!", vbOKOnly + vbExclamation, "Errore!"
End If
End Sub

[Games]

Così nn mi funzia.
Puoi modificarmi il codice in modo da rendermi pubblica la variabile:
Ecco:

FORM 1

Private Sub cmd_login_Click()
Rem variabili per contenere il cognome e la password
Dim cognome password, cognome_app, password_app As String
cognome = txt_cognome.Text
password = txt_pass.Text
ado_banca.RecordSource = "SELECT Cognome, Password FROM Clienti WHERE Cognome = '" & cognome & "' AND Password='" & password & "'"
ado_banca.Refresh
cognome_app = txt_cogn1.Text
password_app = txt_pass1.Text
If cognome = cognome_app And password = password_app Then
 MsgBox "Login Effettuato Con Successo!", vbOKOnly + vbExclamation, "Successo!"
 frm_accesso.Hide
 frm_conto.Show
Else
 MsgBox "Cognome o password errata!", vbOKOnly + vbExclamation, "Errore!"
End If
End Sub

FORM 2


Private Sub Form_Load()
ado_banca.RecordSource = "SELECT * FROM Clienti WHERE cognome='" & cognome & "'"
ado_banca.Refresh
End Sub

Grazie ancora

[LMondi]

Ciao! Non credo che sia necessario rendere Public tutta la routine, ma solo le variabili che ti servono in altre parti del progretto. Forse sono cognome e password (Tipo: Public strCognome As String, Public vrtPassword As Variant)?

[Games]

Mi serve solo cognome, quindi scrivo così:

public cognome as string

Ho provato a fare così ma mi dice: "Attributo non valido in Sub o Function"

Come mai?

Private Sub cmd_login_Click()
Rem variabili per contenere il cognome e la password
Public cognome As String
Dim password, cognome_app, password_app As String
cognome = txt_cognome.Text
password = txt_pass.Text
ado_banca.RecordSource = "SELECT Cognome, Password FROM Clienti WHERE Cognome = '" & cognome & "' AND Password='" & password & "'"
ado_banca.Refresh
cognome_app = txt_cogn1.Text
password_app = txt_pass1.Text
If cognome = cognome_app And password = password_app Then
 MsgBox "Login Effettuato Con Successo!", vbOKOnly + vbExclamation, "Successo!"
 frm_accesso.Hide
 frm_conto.Show
Else
 MsgBox "Cognome o password errata!", vbOKOnly + vbExclamation, "Errore!"
End If
End Sub

[LMondi]

Public cognome As String, la devi scrivere nella parte superiore del modulo nelle dichiarazioni generali e non nella routine.

[Games]

Nelle dichiarazioni generali?

Devo scrivere fuori da tutto:

OPTION EXPLICIT

PUBLIC cognome as string

??

[Games]

C'è l'ho fatta!!

Allora ho fatto così!!

FORM 1

OPTION EXPLICIT

PUBLIC cognome as string

FORM 2

Private Sub Form_Load()
ado_banca.RecordSource = "SELECT * FROM Clienti WHERE Cognome='" & frm_accesso.cognome & "'"
ado_banca.Refresh
End Sub

Grazie ancora

[Games]

un ultima cosa:
Sai fare query da codice?
Avrei 1 domandina sola...
Ciao e grazie ancora