>Le 17/03/2017 à 20:18, Tobias Boege a écrit :
> I didn't test it, but the following is approximately how it goes:
>
> Public Sub WebTable1_Data(Row As Integer, Column As Integer, Data As
> WebTableData)
> Dim i As Integer
> Dim f As ResultField
>
> cx = M_DB.Connect()
> rs = cx.Exec("SELECT * FROM tbcategory")
>
> ' Go to the Row-th record in your result
> For i = 0 To Row - 1
> rs.MoveNext
> Next
>--> Please use rs.MoveTo(I) instead. :-)
>--
>Benoît Minisini
Tobias - Benoit thanks for your help, it has been useful.
My webtable works fine.
Public Sub WebTable1_Data(Row As Integer, Column As Integer, Data As
WebTableData)
Dim i As Integer
Dim f As Resultfield
cx = M_DB.Connect()
rs = cx.Exec("SELECT Title FROM tbapps where tbapps.Title like '%'")
For i = 0 To Row - 1
rs.MoveTo(i)
Next
If rs.Available Then
i = rs.Fields.Count
For Each f In rs.Fields
If i = Column Then Break
Inc i
Next
Data.Text = rs[f.Name]
Endif
End
Herberth
------------------------------------------------------------------------------
Check out the vibrant tech community on one of the world's most
engaging tech sites, Slashdot.org! http://sdm.link/slashdot
_______________________________________________
Gambas-user mailing list
Gambas-user@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/gambas-user
