How can I retrieve the field names from a Resultset?
Jabaco Source
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Database1.ConnectMDB("D:\db1.mdb")
Dim myResultSet As ResultSet = Database1.ExecuteStatement("Select * From Table1")
Dim myResultSetMetaData As java#sql#ResultSetMetaData = myResultSet.getMetaData
Dim colCounter AsInteger
For colCounter = 1To myResultSetMetaData.getColumnCount
List1.AddItem myResultSetMetaData.getColumnName(colCounter)
Next
myResultSet.close