Italian Semplice Login

djveleno

Active Member
Licensed User
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?
B4X:
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

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

maxware

Well-Known Member
Licensed User
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

Active Member
Licensed User
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.....
 
Top