Spanish Problema con B4XTable

[Álex Patuel]

Saludos, compañeros:

Estoy intentando aprender a trabajar con B4XTable, y tengo un problema.

He preparado una pequeña aplicación que realiza una consulta sobre SQL Server y funciona correctamente. Ahora quiero mostrar los resultados en una tabla, con lo cual hago las siguientes modificaciones:

• Añado la referencia a la librería de B4XTable
• Coloco la tabla en el diseñador y declaro el objeto en Globals
• Ejecuto y me sale el siguiente error:

No sé qué referencia me falta... y la línea 33 no tiene nada que ver con esto; de hecho si la comento el error sigue saliendo en la misma línea.

Seguro que es algo de novato, pero no sé cómo solucionarlo... ¿me echáis una mano?

Mil gracias.

 

[elsanto]

Hola Buenas me parece q para b4xtable te falta XUI

 

[Álex Patuel]

Hola Buenas me parece q para b4xtable te falta XUI

Justo eso era... ¡mil gracias!

 

[Álex Patuel]

Otro problemilla... en este código:

Sub Process_Globals
    'These global variables will be declared once when the application starts.
    'These variables can be accessed from all modules.
    Dim BDSQL As JdbcSQL
End Sub

Sub Globals
    'These global variables will be redeclared each time the activity is created.
    Private Button1 As Button
    Private SelCliente As AutoCompleteEditText
    Private ResulClien As B4XTable
End Sub

Sub Activity_Create(FirstTime As Boolean)
    Activity.LoadLayout("Layout")
    ResulClien.AddColumn("Nombre empresa", ResulClien.COLUMN_TYPE_TEXT)
    BDSQL.InitializeAsync("BDSQL", "net.sourceforge.jtds.jdbc.Driver", "jdbc:jtds:sqlserver://192.168.1.44;databaseName=Custom;user=sa;password=(EDITADO);appname=Custom;wsid=TEST;loginTimeout=10;socketTimeout=10", "", "")  
End Sub



Sub Button1_Click
    Dim Datos As List
    Datos.Initialize
    BDSQL.ExecQueryAsync("Consulta", "SELECT NombreComercial FROM Empresas WHERE NombreComercial LIKE  N'%" & SelCliente.Text & "%'" , Null)
    Wait For Consulta_QueryComplete (Success As Boolean, Crsr As JdbcResultSet)
    If Success = True Then
        Do While Crsr.NextRow
            Dim Fila(1) As Object
            Fila(0) =  Crsr.GetString("NombreComercial")
            Datos.Add(Fila)
        Loop
        Crsr.Close
        ResulClien.SetData(Fila)
    Else
        MsgboxAsync("mal","Falló")
    End If
End Sub

Me salta el siguiente error cuando hago click en el botón:

Error occurred on line: 677 (B4XTable)
java.lang.ClassCastException: java.lang.String cannot be cast to java.lang.Object[]

Aunque diga lo de la línea 677, el error es en la línea 34 (¿?)... pero no se me ocurre qué problema puede tener el SetData.

Estoy siguiendo este tutorial.

Gracias de antemano por vuestra ayuda.

 

[elsanto]

Deberia ser setdata(Datos)

 

[Álex Patuel]

Deberia ser setdata(Datos)

Joe, menudo despiste; muchas gracias, compañero. Ya funciona perfectamente.

Saludos.