Italian [B4J] Resultset.rowcount non esiste?!?.

[Sabotto]

Con B4A apro un Resultset per poi riempire una tabella e con il .rowcount valorizzo un flag che mi dice se la tabella è vuota.
Ho visto solo ora che in B4J il .Rowcount non esiste.
Ho quindi usato un "workaround". Ma è quello giusto? E poi, perchè non c'è .rowcount in B4J?!?! (ci sono rimasto male...)

    Dim Tab_Vuota as boolean
    #If B4A
        Dim ResSet As ResultSet = GL.SQL1.ExecQuery2(Query, Array As String(GL.IDVeicolo))
        Tab_Vuota = (ResSet.RowCount = 0 ) 'flag per sapere se la Tabella di quel veicolo è vuota
    #Else If B4J
        Private Query1 As String = "SELECT COUNT(*) FROM TabMovimenti WHERE FK_Veicolo = ?"
        Tab_Vuota = (GL.SQL1.ExecQuerySingleResult2(Query1,Array As String(GL.IDVeicolo))=0) 'mi serve per sostituire RowCount che in B4J non c'è
        Dim ResSet As ResultSet = GL.SQL1.ExecQuery2(Query, Array As String(GL.IDVeicolo))
    #End if

 

[LucaMs]

perchè non c'è .rowcount in B4J?

Boh!

Ho quindi usato un "workaround". Ma è quello giusto?

Si, a parte la piccolezza che la riga con Dim ResSet... può essere unica e dopo l'IF.

 

[Star-Dust]

Non esiste. È una proprietà di Cursor.
Se vuoi il conteggio delle righe con Resultset devi fare una query count(*)

Cursor è una classe che esiste solo in b4a

 

[LucaMs]

Non esiste. È una proprietà di Cursor.

Sì ma ha ragione, ResultSet esiste sia in B4A che in B4J, ma nel primo ha la proprietà RowCount, nel secondo no.

 

[Star-Dust]

In b4a esiste rowcount in b4j e b4i devi fare una query

 

[LucaMs]

In b4a esiste rowcount in b4j e b4i devi fare una query

Ed è proprio ciò che ha fatto

 

[Sabotto]

Esatto Mario. Infatti. Mi sa che Stardust legge solo le prime righe ... ?
Ah, e poi giusto anche questo:

Si, a parte la piccolezza che la riga con Dim ResSet... può essere unica e dopo l'IF.

 

[Sabotto]

Si, a parte la piccolezza che la riga con Dim ResSet... può essere unica e dopo l'IF.

In effetti deve stare prima dell'IF altrimenti il Rowcount non posso ottenerlo

    Private Query As String = "SELECT * FROM TabMovimenti WHERE FK_Veicolo = ?"
    Dim ResSet As ResultSet = GL.SQL1.ExecQuery2(Query, Array As String(GL.IDVeicolo))
    #If B4A
        Tab_Vuota = (ResSet.RowCount = 0 ) 'flag per sapere se la Tabella di quel veicolo è vuota
    #Else If B4J
        Private Query1 As String = "SELECT COUNT(*) FROM TabMovimenti WHERE FK_Veicolo = ?"
        Tab_Vuota = GL.SQL1.ExecQuerySingleResult2(Query1,Array As String(GL.IDVeicolo)) 'mi serve per sostituire RowCount che in B4J non c'è
    #End if

 

[Sabotto]

sempre per la precisione deve essere

Tab_Vuota = (GL.SQL1.ExecQuerySingleResult2(Query1,Array As String(GL.IDVeicolo))) = 0 'mi serve per sostituire RowCount che in B4J non c'è