-
Welcome to B4X forum!
B4X is a set of simple and powerful cross platform RAD tools:
- B4A (free) - Android development
- B4J (free) - Desktop and Server development
- B4i - iOS development
- B4R (free) - Arduino, ESP8266 and ESP32 development
Italian [B4A][RISOLTO] Come posso prendere i dati con ItemClick da CustomListView collegata a Database SQL
- Thread starter 3uowiS
- Start date
- Similar Threads Similar Threads
D
Deleted member 103
Guest
e dove rimane il piacere?
Qualche esperienza con altri linguaggi (sempre base Basic).
Ma io lo faccio come passatempo quindi ho tantissimo da imparare come te.
Hai fatto benissimo a fare i corsi.
Tante cose che ora sono Arabo diventeranno più chiare a mano a mano che chiarisci alcuni concetti di base che poi tenderanno a ripetersi.
L'importante è che quando trovi, o ti forniscono, codice che funziona e risolve una tua necessità tu non ti limiti a copiarlo e basta.
Devi prenderti il tempo di capire perchè quella cosa funziona così.
Poi si può arrivare ad uno stesso risultato in maniere diverse, che quindi sono tutte giuste fondamentalmente ma ce ne saranno sempre alcune migliori in termini di velocità o semplicità del codice.
C'è sempre tempo per mettere mano anche a vecchi codici quando impari nuove istruzioni e metodi.
Un corso di Basic potrebbe anche esserti utile ma al momento puoi cercare/studiare quel che ti serve volta per volta e capirlo.
Il tuo progetto in qualche modo lo finirai, poi lo migliorerai.
Ma non devi avere fretta e non ridurti solo a copiare e incollare codice.
@Filippo grazie, ma purtroppo mi crasha al primo CurGetString con questo errore: "android.database.CursorIndexOutOfBoundsException: Index -1 requested, with a size of 1" Sai a cosa si riferisce?
Questo è il codice che ho: (cur è dichiarato in Globals)
B4X:
Private Sub xclv_ItemLongClick (Index As Int, Value As Object)
Dim Gen As Int
Dim Pos1 As String
Dim Pos2 As String
cur = Starter.sqlPlayers.ExecQuery("Select GEN, Pos1, Pos2 from PLAYERS WHERE ID='"& Value & "'")
Pos1 = cur.GetString("Pos1")
Pos2 = cur.GetString("Pos2")
Gen = cur.GetInt("GEN")
id = Value
Log(id)
Log(Pos1)
Log(Pos2)
Log(Gen)
End SubGrazie mille per i consigli @Sagenut! Sono preziosi! Si, per come sono fatto io non mi limito a copiare il codice, considera che quando chiedo aiuto qui solitamente sono già stato diverso tempo a batterci la testa proprio per cercare di capirne il meccanismo e arrivare alla soluzione da solo.
Spero di riuscire davvero a portare a termine questo progetto, anche se ci volessero mesi e mesi perché ci tengo molto, ma sono anche consapevole che sia un app abbastanza complessa da realizzare. Quindi via via mi vedrete sicuramente chiedere altre cose. ?
D
Deleted member 103
Guest
metti un log(Value) prima della riga
B4X:
cur = Starter.sqlPlayers.ExecQuery("Select GEN, Pos1, Pos2 from PLAYERS WHERE ID='"& Value & "'")Avevo già provato, ma con Value mi da l'ID che è alfanumerico (ad esempio: "BealBr1"). Ho provato anche a mettere il log di Index e mi da un numero che corrisponde al numero della riga (ad esempio 5 che è la sesta riga) ma di -1 non ne ho.
D
Deleted member 103
Guest
qual'è il valore di quello che inserisci qui?
log(rs.getstring("ID"))
se questo corrisponde ad es. a "BealBr1", allora non può funzionare.
log(rs.getstring("ID"))
B4X:
xclv.Add(p, rs.getstring("ID"))Si esatto, è una string e corrisponde ad un codice alfanumerico come quello. Perché non può funzionare? cur funziona solo con i numeri? E se uso rs è lo stesso?
Resta il fatto che non capisco perchè non ti abbia funzionato il pezzo di codice
visto che ti trovi bene passando l'ID come Value della CLV.
Ti posto un piccolo esempio di quel pezzo di codice che non ti funziona, magari ti aiuta a capire cosa ti manca.
B4X:
Sub xclv_ItemClick (Index As Int, Value As Object)
Dim PlayerName As String = xclv.GetPanel(Index).GetView(0).Text
Dim Pos1 As String = xclv.GetPanel(Index).GetView(1).Text
Dim Pos2 As String = xclv.GetPanel(Index).GetView(2).Text
Dim Team As String = xclv.GetPanel(Index).GetView(3).Text
Dim GEN As String = xclv.GetPanel(Index).GetView(4).Text
End SubTi posto un piccolo esempio di quel pezzo di codice che non ti funziona, magari ti aiuta a capire cosa ti manca.
Domanda:
il tuo layout degli item della CLV contiene solo le 5 Label e niente altro?
Il layout contiene un panel che contiene le 5 label + 1 altro panel che uso da divisorio tra una riga e l'altra. Ho allegato uno screen.
Grazie ancora ragazzi per l'aiuto che mi date!!! ?
Attachments
Non sò bene il tuo scopo e il loro utilizzo............. però credo che i 2 Panel dal Layout li puoi rimuovere, se non hanno un ruolo specifico.
Il panel di base lo crei già nella Sub dove popoli la CLV
L altro panel sembra che tu lo voglia usare per avere una linea colorata per dividere gli Item.
Se guardi nelle proprietà della CLV nel Designer vedrai che ci sono già
Divider Color
Divider Height
che ti permettono di personalizzare una linea divisoria già compresa nella CLV.
Ho indovinato?
Se invece vuoi mantenere i tuoi Panel perchè ti servono puoi accedere alle Label così:
Perchè:
xclv.GetPanel(index) --- Prende il panel dell'Item dalla CLV
.GetView(0) --- Prende il tuo pnlplayer che è la prima view ed è il contenitore di tutte le altre così come lo hai usato
.GetView(0) --- Prende la prima Label contenuta nel tuo pnlplayer.
Essendo un contenitore extra ha di nuovo la sua lista di view che riparte da 0.
Il panel di base lo crei già nella Sub dove popoli la CLV
B4X:
Dim p As B4XView = xui.CreatePanel("")Se guardi nelle proprietà della CLV nel Designer vedrai che ci sono già
Divider Color
Divider Height
che ti permettono di personalizzare una linea divisoria già compresa nella CLV.
Ho indovinato?
Se invece vuoi mantenere i tuoi Panel perchè ti servono puoi accedere alle Label così:
B4X:
dim s as String = xclv.GetPanel(index).GetView(0).Getview(0).textxclv.GetPanel(index) --- Prende il panel dell'Item dalla CLV
.GetView(0) --- Prende il tuo pnlplayer che è la prima view ed è il contenitore di tutte le altre così come lo hai usato
.GetView(0) --- Prende la prima Label contenuta nel tuo pnlplayer.
Essendo un contenitore extra ha di nuovo la sua lista di view che riparte da 0.
Last edited:
Anche lasciando il layout inalterato può funzionare senza problemi. l'unica accortezza è la lettura del primo panel da cui far dipendere le altre.
Es.
Risolto questo punto, io passerei ad utilizzare B4xView in modo da non essere confinato ad una specifica piattaforma.
Darei un'occhiata anche alle Anchors del layout (es. lblGen a dx, lblName su both, così come pnlPlayer)
ps: come Value potresti passare una map che contenga già tutti i valori che ti interessano ed evitare di accedere di nuovo al DB oppure ai valori del panel della xCLV che potrebbero essere parziali (nel senso che sono solo quelli che mostri ma potresti avere altri campi cui sei interessato).
pps: sembra che il pranzo sia pronto..vado..
Es.
B4X:
dim p as panel = xclv.GetPanel(Index).GetView(0)
dim pnlPlayer as panel = p.getview(0)
dim Pos1 As String = pnlPlayer .getview(2).text
..Darei un'occhiata anche alle Anchors del layout (es. lblGen a dx, lblName su both, così come pnlPlayer)
ps: come Value potresti passare una map che contenga già tutti i valori che ti interessano ed evitare di accedere di nuovo al DB oppure ai valori del panel della xCLV che potrebbero essere parziali (nel senso che sono solo quelli che mostri ma potresti avere altri campi cui sei interessato).
pps: sembra che il pranzo sia pronto..vado..
Si, so che lo avevo già creato con quella riga di codice ma non riuscivo a farlo adattare allo schermo, così ho creato quel panel in modo da farlo adattare a tutti gli schermi con lo script e poi l'ho usato come riferimento in questa riga
B4X:
p.SetLayoutAnimated(0,0,0,pnlPlayer.Width,pnlPlayer.Height)Esatto ? Non sapevo che esistesse anche quel metodo, grazie per l'informazione, come sempre preziosa! Ma quella linea l'ho fatta come gradiente che sfuma da nero a trasparente che è più delicata e mi sembra che tramite quelle impostazioni non si possa.L altro panel sembra che tu lo voglia usare per avere una linea colorata per dividere gli Item.
Se guardi nelle proprietà della CLV nel Designer vedrai che ci sono già
Divider Color
Divider Height
che ti permettono di personalizzare una linea divisoria già compresa nella CLV.
Ho indovinato?
Grandissimo @Sagenut!!! ?? Così ci sono riuscito a prendere tutti i dati che volevo!!! ???
Grazie mille davvero!!!
Last edited:
Grazie @udg! Nella mia ignoranza credevo di averlo fatto... Non sto già usando B4xView? Dove sbaglio?
E le Anchors non le ho usate perché ho usato lo script. Pensavo fosse meglio...non va bene?
Ecco, sicuramente sarebbe meglio, ma non ho idea di come si faccia una map... ? Dove posso trovare info su come fare?
Trovi praticamente qualunque informazione, spesso con esempi, con la ricerca del forum che funziona decisamente bene.
Ti è stata fornita l'idea di cosa fare.............. ora come Esercizio prova a risolvere da solo.
Ma non buttare il codice che in questo momento hai e funziona, altrimenti rischi di bloccare lo sviluppo della tua app.
Poi c'è sempre tempo per fare domande se ciò che trovi non è chiaro o non riesci a farlo funzionare.
Dato che l'argomento della domanda di questa discussione è stato risolto dovrai aprire una nuova discussione con la nuova domanda, tipo:
Come ci crea e si usa una Map?
Ma prima cerca se trovi altre discussioni con la stessa domanda e relative risposte.
Ogni discussione deve/dovrebbe contenere solo una domanda specifica e le relative risposte, per non disperdere le informazioni e facilitare le ricerche successive.
E' il regolamento del forum.
P.S.= modifica il titolo della discussione aggiungendo all'inizio [B4A][RISOLTO] così chi cerca saprà che in questa discussione c'è una soluzione che funziona.
E nelle prossime domande, quì sul forum Italiano, metti sempre il linguaggio che stai usando relativo alla domanda come [B4A] [B4J] [B4i].
Last edited:
La risposta più semplice è quella di cercare sul forum (cerca "map" e vedrai le tonnellate di risposte..heheh)
La base è che una map è una specie di lista che contiene coppie chiave-valore (e le chiavi sono univoche)
Quindi qualcosa tipo
B4X:
dim m as map
m.initialize
m.put("key1", "valore1")Se ti occorre, aggiungi anche una chiave "id" e memorizzi l'ID univoco che hai sul DB per quel record da cui hai estratto quei valori
Come vedi è uno strumento molto flessibile.
Una volta che ti sarai impratichito con le map, tenta quelle che io chiamo LOM (List of Maps); in pratica ogni elemento della List è una Map. Un possibile utilizzo è la memorizzazione di una serie di record ritornati da una query. Ogni record ha i suoi valori in una Map e la List rappresenta l'intero set di record della risposta.
Anchors-Script: guarda i video di Erel (sezione Learn). La risposta breve è che le Anchors sono preferibili
B4xView: non è automatico. Tocca a te scrivere dim l1 as B4xView invece che dim l1 as label. In pratica ricorri al tipo base (label) solo quando ti occorre qualche sua proprietà o metodo non disponibile utilizzando la B4xView.
Edit: non solo @Sagenut mi ha anticipato, ma ha anche ricordato la regola d'oro: un thread (con titolo significativo) un argomento. Serve per facilitare la ricerca ad altri interessati al medesimo argomento.
