[VB.NET] Recuperare valori campi da Access

[themouse]

Nota:! Scusatemi ho visto che sono su server side ma non ho visto nulla come client...

Comunque...

Ciao a tutti,

sono nuovo nel forum e abbastanza inesperto con visual basic tuttavia passo passo sto ottenendo i miei risultati capendo i

concetti di funzionamento di visual basic con access.

Ho bisogno di aiuto... ovviamente. Allora mi sono creato una query con il mio DB access per una login form:


Dim login = Me.UsernamePasswordTableAdapter1.LogInCheck(TextBo x1.Text, TextBox2.Text)

If login Is Nothing Then
MsgBox("Login Incorrect", MsgBoxStyle.Exclamation)
TextBox1.Clear()
TextBox2.Clear()
Else
Me.Hide()
Form2.Show()

End If

Funziona alla perfezione, ora sono andato avanti è ho creato un recupero pw e user.
Con questo script sono riuscito intanto a creare l'invio della mail ad un indirizzo email inserito in una casella di testo.

perfetto funziona anche questo:


ProgressBar1.Value = 10
Dim mail As New MailMessage()
ProgressBar1.Value = 17
smtpServer.Credentials = New Net.NetworkCredential("xxxx@gmail.com", "password")
ProgressBar1.Value = 23
'using gmail
smtpServer.Port = 587
ProgressBar1.Value = 27
smtpServer.Host = "smtp.gmail.com"
ProgressBar1.Value = 40
smtpServer.EnableSsl = True
mail = New MailMessage()
mail.From = New MailAddress("xxxx@gmail.com")
mail.To.Add("xxxx@gmail.com")
mail.Subject = "test"
mail.Body = "test"
smtpServer.Send(mail)
ProgressBar1.Value = 100
MsgBox("mail Sent!")
ProgressBar1.Value = 0
TextBox1.Clear()
....


Ora il problema. Quello che devo fare io non è esattamente inviare una email ad un indirizzo email inserito dall'utente.

Infatti, schematizzando:

1. utente inserisce la mail nella casella di testo - OK fatto funziona
2. attraverso tableadapter controllo che l'indirizzo email sia presente nel mio DB se no restituisce errore - OK fatto funziona
3. dopo aver controllato che la mail esiste, mi deve prendere i campi affianco nella stessa tabella chiamati username e

password ed inserirli dentro il body della mia email. Mi serve solo sapere quale è il codice per dire se il risultato della

query è 1 quindi esiste l'indirizzo email, prendi il contentuto di username e password e mettili diciamo per il momento in una

etichetta che chiameremo per semplificare label1.text ---- PROBLEMA
4. Invio mail - Ok fatto funziona


Scusate l'ho fatta un po lunga ma credo cosi si capisca un pochino meglio, forse...

CIao e grazie

[tas]

Benvenuto nel forum!
In sostanza, se non ho capito male, vorresti recuperare username e password che hai inserito nell'altro form?

[themouse]

Grazie per il benvenuto ora mi spiego un pochino meglio:

Nella mia tabella ci sono tre colonne:

1. username
2. password
3. email address

Allora, ti posto parte dei codici cosi forse riesco a spiegare meglio. Query:

SELECT ID, Username, Password, Email AS EmailInput
FROM UsersList
WHERE (Email = ?)


quindi io da textbox1 ed un tasto invio mail.

1. Inserisco mail (OK funziona)
2. Una query controlla che l'indirizzo email esista altrimenti restituisce un pop up di errore (OK funziona)
3. Poniamo vera la condizione dove ho nel database un indirizzo email pippopluto@gmail.com. Inserendo l'indirizzo email pippopluto@gmail.com la query restituisce:

es.

Username Password Email
Pippo Pwesempio pippopluto@gmail.com

Io sostanzialmente ho bisogno di memorizzare e poi scrivere il campo restituito x username e password in due distinte labels. Per semplificare dunque necessito he pippo vada scritto in una label1.text e pwesempio in una label2.text.

ovviamente dell'indirizzo email non ne ho bisogno perche la query mi ha gia detto che è nel mio DB quindi uso quello inserito nel campo testo dall'utente.

Spero di aver chiarito

Grazie x l'aiuto

Ciao

[themouse]

comunque sostanzialmente la risposta alla tua domanda è... SI

[tas]

Potresti memorizzare username e password in un paio di variabili globali...

[themouse]

lo posso fare utilizzando il risultato di questa query?

mi aiuteresti con il codice?

[themouse]

Nessuno... ...ci sto diventando pazzo!!

[tas]

Crei un modulo e aggiungi queste dichiarazioni:

Module Module1
	Public username As String
	Public password As String
End Module

Poi modifica il tuo codice così:

Dim login = Me.UsernamePasswordTableAdapter1.LogInCheck(TextBox1.Text, TextBox2.Text)

If login Is Nothing Then
    MsgBox("Login Incorrect", MsgBoxStyle.Exclamation)
    TextBox1.Clear()
    TextBox2.Clear()
Else
    username = TextBox1.Text
    password = TextBox2.Text

    Me.Hide()
    Form2.Show()
End If

[themouse]

grazie per la risposta ma credo non mi sono spiegato per nulla...

Mi sembra il tuo codice non faccia quello di cui ho bisogno

Il mio ipotetico utente ha perso user/pw ... lui mi da l'indirizzo email (pippo.pluto@gmail.com)

io con una query (tableadapter) verifico se ho quell'indirizzo email. Es: di restituzione della query/Tabella:

ID Username Password Email
10 pippo pluto pippo.pluto@gmail.com

Si pippo.pluto@gmail.com esiste! Copio username (pippo) e password (pluto) li incollo su una mail e glie li invio!

Il problema è sempre quello come copio username e password dalla query?

[themouse]

Il codice completo:


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim Sendemail = Me.UsersListTableAdapter1.EmailCheck(TextBox1.Text )

If Sendemail Is Nothing Then
MsgBox("Your email is not in our database. Please subscribe! ", MsgBoxStyle.Exclamation)
TextBox1.Clear()
Else

Dim smtpServer As New SmtpClient()
ProgressBar1.Value = 10
Dim mail As New MailMessage()
ProgressBar1.Value = 17
smtpServer.Credentials = New Net.NetworkCredential("info.sdmt@gmail.com", "sdmtusercommunications01")
ProgressBar1.Value = 23
Gmail Account
smtpServer.Port = 587
ProgressBar1.Value = 27
smtpServer.Host = "smtp.gmail.com"
ProgressBar1.Value = 40
smtpServer.EnableSsl = True
mail = New MailMessage()
mail.From = New MailAddress("xxxx@gmail.com")
mail.To.Add (TextBox1.Text)
mail.Subject = "Username & Password Retrival"
mail.Body = "HO BISOGNO DI SCRIVERE QUESTA E' LA TUA USER xxxxx E QUESTA e' LA TUA PASSWORD xxxxx"
smtpServer.Send(mail)
ProgressBar1.Value = 100
MsgBox("mail Sent!")
ProgressBar1.Value = 0
TextBox1.Clear()
Me.Hide()
Form2.Show()
End If
End Sub



Grazie per la pazienza... ma proprio non ci riesco