Herberth :
Private $rs as Result
Private $Fields as New String[]
'or somewhere else
Public sub _New()
dim f as ResultField
dim i as integer
M_DB.Connect()
'DB is the last connected db
$rs = DB.Exec("SELECT Title FROM tbapps where tbapps.Title like '%'")
If rs.Available Then
' Setup Columns count
TableView1.Columns.Count = rs.Fiels.Count
'Setup tableHeader
For each f in rs.Field
TableView1.Columns[i].Text = f.name
inc i
Next
'Launch table filling
TableView1.Rows.Count = rs.Count
EndIf
end
Public Sub WebTable1_Data(Row As Integer, Column As Integer, Data As
WebTableData)
$rs.MoveTo(Row)
'Use the Column Text to get the Field name
Data.Text = $rs[Last.Columns[Column].Text]
End
------------------------------------------------------------------------------
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
