' Gambas module file

Public Sub Main()
  
  Dim hConn As New Connection
  
  hConn.Type = "postgresql"
  hConn.Options["dbname"] = "omogen_benoit_kubuntu_sanef_fox2"
  hConn.Open
  
  Print hConn.Tables.Count
  
  hConn.Close
  
End