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 Gambas-user@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/gambas-user