Re: [Gambas-user] Database1 program

[Benoît M. <g4...@gm...>]

Sorry, but this mailing-list is deprecated. The new one is at:

https://lists.gambas-basic.org/listinfo/user

Le 27/09/2018 à 20:45, bushbug a écrit :
> I am an absolutely new user of Gambas, 76 years old and only using it to
> write simple self-use programs. I bought the e-book Beginners Guide to
> Gambas, Revised edition from Amazon and as a consequence it does not have
> the cd that would have been included with the hard copy.
> 
> I am using Ubuntu 18.4 and Gambas 3.11.90 together with SQLite.
> 
> Because I don't have the cd I decided to "create" the Database1 program
> described in the book under "The Database Example Program". I have created
> the main form as well as the FRequest form, both with their various
> controls.
> 
> On FMain (I noticed that you cannot change the name of the Main form) I
> placed a Textbox at the bottom in a Frame called SQL request.
> 
> During the instructions detailing how the program "works" there is the
> following quote:
> 
> "we set the enabled properties for both program forms to TRUE and place some
> default text in the SQL request box at the bottom of the FMain form:
> 
> frmDatabase.Enabled = TRUE
> frmRequest.Enabled = TRUE
> txtRequest.Text ="Show Tables"
> 
> 1. At this point my problem is that there are no forms called frmDatabase or
> frmRequest.
> 
> 2. My next problem is that the Textbox does not accept multi-lines.
> 
> The code for the "RUN Button" (next to the SQL Request text box is:
> 
> Public Sub btnRun_Click()
> 
>    Dim rData As Result
>    
>    Dim hForm As FRequest
>    
>    rData = $hConn.Exec(txtRequest.Text)
>    hForm = New FRequest($hConn, rData)
>    hForm.Show
>    
>    Catch
>      Message.Error(Error.text)
>      
>      End
> 
> 3. When I click on the "Run" button a message comes up stating: Query
> failed: near "Show Tables"; syntax error. (I have only entered this one line
> due to 2 above.
> 
> If I blank the Textbox for the SQL query and insert a SQL query directly
> into the line:
> rData = $hConn.Exec("Select * from Test") instead of (txtRequest.Text) then
> I get the message:
> 
> Cannot exec request
> Unknown symbol 'Width' in Class 'Font'
> OK
> 
> Clicking OK brings the message:
> 'Not enough arguments'
> 
> I believe that the above two messages come from the following code under the
> FRequest form.
> 
> Private Sub ReadData()
>    
>    
>    Dim hTable As Table
>    Dim hField As ResultField
>    Dim iInd As Integer
>    
>    Inc Application.Busy
>    
>    tbvData.Rows.count = 0
>    tbvData.Columns.Count = $rData.Fields.Count
>    
>    For Each hField In $rData.Fields
>      With hField
>        
>        tbvData.Columns[iInd].Text = .Name
>        
>        tbvData.Columns[iInd].Width = WidthFromType(tbvData, .Type, .Length,
> .Name)
>        
>        End With
>        
>        Inc iInd
>        
>        Next
>        
>        tbvData.Rows.Count = $rData.Count
>        
>        Finally
>          
>          Dec Application.Busy
>          
>          Catch
>            Message.Error("Cannot exec request" & "\n\n" & Error.Text)
>           End
> 
> Can anybody who may have this book and the CD perhaps throw some light on
> what may be causing the problems?
> 
> 
> 
> --
> Sent from: http://gambas.8142.n7.nabble.com/gambas-user-f3.html
> 
> 
> _______________________________________________
> Gambas-user mailing list
> Gam...@li...
> https://lists.sourceforge.net/lists/listinfo/gambas-user
> 


-- 
Benoît Minisini