Gambas conexão com banco de dados

Esta uma classe de conexão genérica.
Serve para todos os bancos sportados Postgree SQLite e Mysql é só trocafr o type.

Link pra ebook completaço, t em algumas coisas caducas , mas a maior parte esta uptodate

Public Sub Conecta_Click()

Dim i As Float
Dim $Con As New Connection
Dim $Query As String
Dim rs As Result
Dim $nome As String
Dim $peso As String
Dim $sexo As String

$Con = New Connection
With $Con
$Con.Type = "mysql"
$Con.Host = "localhost"
$Con.Login = "root"
$Con.Password = "edson...9"
$Con.Name = "gambas"
Try $Con.Open()
If Error Then Message.Info("Deu pau da  conexão")
rs = $Con.Exec("Select * from teste")
               
End With
      
With rs
    $nome = rs!nome
    Message.Info($nome)
For Each rs
 
  'do something with the data
Next

'TV1.rows.count = 0
'If .count <> 0 Then
'TV1.columns.count = .fields.count
''TV1.rows.count = .count
' End If
End With
End