' Gambas module file

Public Sub Main()
  
  Dim hConn As New Connection
  
  hConn.Type = "sqlite"
  'hConn.Host = "/home/benoit"
  'hConn.Name = "test.db"
  hConn.Open
  
  'Print hConn.SQL().Select("id", "color").From("test").Where("color like &1", "red").OrderBy("color")()
  Print hConn.SQL().Select("COUNT(*) AS nRecord").From("test").Where("color like &1", "red").OrderBy("color")()
  hConn.Close
  
End