[Gambas-user] Database not working to select records, but fields/tables identified (small correction)

[Caveat]

I swapped the order of the lines here:

While res.Available
  res.MoveNext
  Print "Field1: " & res["Field1"]
Wend

to do the Print then MoveNext, as it would have caused me to 'lose' my
first line of data.  As I'm not getting any results at all, it doesn't
actually make a difference right now...(and the pre-written Database
example still doesn't work either lol)

Regards,
Caveat

On Fri, 2011-07-01 at 02:37 +0200, Caveat wrote:
> Hi,
> 
> I'm trying to get database access to an ODBC datasource (have been
> trying for a few days now).
> 
> I have the simplest Access (.mdb) database in the world: one table
> called people, with an id, a first name, a last name, and a phone
> number.  There is no password on the database.  I can see data in the
> people table if I use MDB Viewer (i.e. the table 'people' is NOT
> empty!).
> 
> Thanks to a tip from Ricardo, I have gotten as far as a good connection,
> can see the ResultFields in the Result as expected (4 of them, with the
> expected column names), I get the appropriate error if I deliberately
> choose an invalid tablename (like persons for e.g.)... all good...
> but...
> 
> I can't seem to get any kind of actual results in my result set,
> Result.Available seems to always be False although I know there's data
> in the table.
> 
> This is also the case if I run the Database example in Gambas3, so I'm
> guessing it's not just my shoddy coding lol
> 
> Here's the code I used (but note **it doesn't work** with the Database
> example either!):
> 
> Public Sub tryNewDB()
>   
>   Dim conn As Connection
>   Dim res As Result
>   Dim sql As String
>   Dim resF As ResultField
>   conn = Connections["NEWDB"]
>   conn.Open
>   sql = "select * from people"
>   res = conn.Exec(sql)
>   For Each resF In res.Fields
>     Print "Found field: " & resF.Name
>   Next
>   Print "Result Count: " & res.Count
>   res.MoveFirst
>   Print "Available? " & boolToString(res.Available)
>   While res.Available
>     res.MoveNext
>     Print "Field1: " & res["Field1"]
>   Wend
>   
> End
> 
> Private Function boolToString(value As Boolean) As String
>   
>   If value Then
>     Return "True"
>   Endif
>   Return "False"
>   
> End
> 
> ************ result ***********
> Found field: ID
> Found field: Field1
> Found field: Field2
> Found field: Field3
> Result Count: 0
> Available? False
> ************ result ***********
> 
> Many thanks in advance for any new pointers...
> 
> Regards,
> Caveat
> 
> 
> ------------------------------------------------------------------------------
> All of the data generated in your IT infrastructure is seriously valuable.
> Why? It contains a definitive record of application performance, security 
> threats, fraudulent activity, and more. Splunk takes this data and makes 
> sense of it. IT sense. And common sense.
> http://p.sf.net/sfu/splunk-d2d-c2
> _______________________________________________
> Gambas-user mailing list
> Gambas-user at lists.sourceforge.net
> https://lists.sourceforge.net/lists/listinfo/gambas-user