[Gambas-user] Using dates in Gambas

Cedron Dawg cedron at exede.net
Sun Jun 2 13:52:57 CEST 2019

Hi David,

Finding good example code in whole programs is what is motivating me to write my FarmDB programs.  You might find my latest output helpful in this regard.  You'll want to download the second example in this thread:



As part of that process, I created a table via Gambas instead of a CREATE statement for the first time:


'---- Create the Table

        Dim theTable As Table
        theTable = theCon.Tables.Add("Load_Info")
        With theTable.Fields
           .Add("Id", gb.String)
           .Add("Name", gb.String)
           .Add("Version", gb.String)
           .Add("LastVersion", gb.String)
           .Add("Vendor", gb.String)
           .Add("Release", gb.String)
           .Add("UploadDate", gb.String)
           .Add("Description", gb.String)
           .Add("URL", gb.String)
           .Add("Size", gb.String)
           .Add("Checksum", gb.String)
           .Add("DownloadCount", gb.String)
           .Add("FullDownloadCount", gb.String)
           .Add("VoteCount", gb.String)
           .Add("Owner", gb.String)
           .Add("Tags", gb.String)
        End With

I have yet to try a "Find".

Here is the part of the code where I take a file downloaded from a Farm Info query and load it into my table.  Note that I first load the data into a collection called "theValueOf", then use the collection to stuff the record as I am not sure that all the fields are going to be there or in the same order.   Notice the use of ".Begin" and ".Commit" making this a transaction.  It speeds up the process tremendously.


'---- Loop thought the files adding records to the load table

        Dim theCreateRS As Result

        theCreateRS = theCon.Create("Load_Info")
        For Each theFilename In theFilenames
          Print theFilename  
          GoSub ProcessFile
        theCreateRS = Null


        Dim theLine As String, theLines As String[], p As Integer
        theLines = Split(File.Load(theTxtDir & theFilename), "\r\n")
        For Each theLine In theLines
          p = InStr(theLine, "=")
          If p > 0 Then
             theValueOf[Left(theLine, p - 1)] = DeQuote(Trim(Mid(theLine, p + 1)))
        theCreateRS!Id = theValueOf["Id"]
        theCreateRS!Name = theValueOf["Name"]
        theCreateRS!Version = theValueOf["Version"]
        theCreateRS!LastVersion = theValueOf["LastVersion"]
        theCreateRS!Vendor = theValueOf["Vendor"]
        theCreateRS!Release = theValueOf["Release"]
        theCreateRS!UploadDate = theValueOf["UploadDate"]
        theCreateRS!Description = theValueOf["Description"]
        theCreateRS!URL = theValueOf["URL"]
        theCreateRS!Size = theValueOf["Size"]
        theCreateRS!Checksum = theValueOf["Checksum"]
        theCreateRS!DownloadCount = theValueOf["DownloadCount"]
        theCreateRS!FullDownloadCount = theValueOf["FullDownloadCount"]
        theCreateRS!VoteCount = theValueOf["VoteCount"]
        theCreateRS!Owner = theValueOf["Owner"]
        theCreateRS!Tags = theValueOf["Tags"]




I need to clean the code up a bit before I post it.  This was a rough draft for research purposes.  What will change is the field names.  Here I used the names used in the info files for consistency, and SQLite seems to do fine with mixed case.  MySQL and others don't, so I have been using all lower case with underscore separators for all my database projects.  Thus "FullDownloadCount" will become "full_download_count" in the revised version.

These reports will tell you which projects use which components according to the tags.  I have yet to parse the project files or the code.  However, there is no guarantee that the Software Farm projects are doing things correctly.  There does seem to be an "admin" dude that knows what they are doing.

I have a similar process for a different region of my database concerning Gambas' Components and Classes.  You can find the zip file, download it, run it, then have the code, the database, and the reports.


Hope this helps you and others.  I know I have found it helpful for myself.


----- Original Message -----
From: "user" <user at lists.gambas-basic.org>
To: "user" <user at lists.gambas-basic.org>
Cc: "David Silverwood" <the_watchmann at yahoo.com>
Sent: Sunday, June 2, 2019 4:12:50 AM
Subject: Re: [Gambas-user] Using dates in Gambas

Hi Benoit 

I must admit that is easier said than done. Nowhere have I found anything pertaining to using the find etc methods and as you can see my attempt at using it failed and it was this request that sparked all the replies, though not one really pertaining to my question. In C I used to do it like that using sqlite3_exec / sqlite3_prepare_v2 etc and I basically moved towards familiar grounds first due to lack of documentation or examples. 

So, looking at my second example again, and going back to my question... what am I missing? 

Probably, my question should be 
When do you use db.Find() and under what circumstances would you use db.Edit() and how do they tie together. As Ced stated, a 'realworld example' would be a plus... 

open database 
create table 
new record 
update record 
delete record 
close db 



More information about the User mailing list