Natural function
AdaBase.Statement.Base.[STMT].column_count ()
After a new query, this function returns the number of columns present in the result set.
See stmt fetch next row for a usage example.
[STMT] is "MySQL.MySQL_statement", "PostgreSQL.PostgreSQL_statement", or "SQLite.SQLite_statement"