Italian Semplice Login

[djveleno]

Ciao a tutti, vorrei implementare una semplice funzione di login ad una mia app, il funzionamento è altrettanto semplice:
Una casella EditText ed un Bottone di invio, un db con un campo uId (userID) e un campo User (la PWD)
il bottone invio serve ad attivare una activity nell'app.
Se dico al programma che la pwd è 12345 e la passo come stringa, tutto funziona correttamente, se invece dico al programma di leggere la EditText, non funziona, non da errore ma neanche parte l'activity, qualche suggerimento?

Sub btnLogin_Click
Dim query As String

query = "SELECT User FROM " & DBTableName & ""

    If txtLogin.Text = query Then
    StartActivity(RemPwd)
    End If
End Sub

Questo è il codice del bottone.

 

[anallie0]

sei sicuro che txtLogin.Text contiene "SELECT User FROM " & DBTableName & "" in caso contrario l'if non è mai soddisfatto

 

[maxware]

Ciao ...cosi come è scritto il codice la variabile query non è il risultato della select del database.

 

[djveleno]

Ciao ...cosi come è scritto il codice la variabile query non è il risultato della select del database.

Ciao Max, tu come la scriveresti la Sub?

 

[maxware]

esempio
Sub btnLogin_Click
Dim query As String
Dim sql_1 As SQL
Try
sql_1.Initialize(path percorso , nome database, True)
query=sql_1.ExecQuerySingleResult("SELECT User FROM TabellaPassword")
If txtLogin.Text = query Then
StartActivity(RemPwd)
End If
Catch
Msgbox("errore","Attenzione")
End Try

End Sub

 

[djveleno]

esempio
Sub btnLogin_Click
Dim query As String
Dim sql_1 As SQL
Try
sql_1.Initialize(path percorso , nome database, True)
query=sql_1.ExecQuerySingleResult("SELECT User FROM TabellaPassword")
If txtLogin.Text = query Then
StartActivity(RemPwd)
End If
Catch
Msgbox("errore","Attenzione")
End Try

End Sub

Siccome non funziona, ho optato per un più semplice TextReader che, con un txt con memorizzata la pwd mi permette di accedere all'activity principale, ora il prossimo passo, scrivere il txt in modo da poter modificare la pwd di default.
Grazie 1000 per l'aiuto, se posso disturbarti ancora.....

 

[LucaMs]

se posso disturbarti ancora.....

DEVI disturbarlo ancora, il più possibile

 

[djveleno]

Contaci....

 

[maxware]

Cosa no ha funzionato ?

 

[djveleno]

Cosa no ha funzionato ?

Credo sia sempre la edittext che non viene correttamente valorizzata, ma non è più un problema in quanto va bene anche con un READER che mi passa correttamente la pwd.