Gambas India Forum

Add data to a gambas data grid

Quote

Data grid Codes
This event is raised when the GridView needs the data stored in a specified cell.

* Row is the cell row.
* Column is the cell column.

PUBLIC SUB GridView1_Data(Row AS Integer, Column AS Integer)
GridView1.Data.Text = "Gambas " & Row & "," & Column
END

Adding new records in a Gambas data grid
' Gambas class file
PRIVATE $hConn AS NEW
Connection
PRIVATE $res AS Result
'-------------------------------------------------
PUBLIC SUB Form_Open()
DIM iCount AS Integer
DIM hTable AS Table
DIM rTest AS result
DIM sql AS String
'define the gridview layout
GridView1.header =
GridView.Horizontal
GridView1.grid = TRUE
GridView1.Rows.count = 0
GridView1.Columns.count = 2
GridView1.Columns[0].text =
"ID"
GridView1.Columns[1].text = "Value"
GridView1.Columns[0].width =
55
GridView1.Columns[1].width = 55
 

WITH $hConn
.Type = "sqlite"
.host = User.home
.name = ""
END WITH
'delete an existing test.sqlite
IF Exist(User.home &
"/test.sqlite") THEN
KILL User.home & "/test.sqlite"
ENDIF
'create test.sqlite
$hConn.Open
$hConn.Databases.Add("test.sqlite")
$hconn.Close
'define the table sampleTable
$hconn.name = "test.sqlite"
$hConn.Open
hTable = $hConn.Tables.Add("sampleTable")
hTable.Fields.Add("s_seq", db.Integer)
hTable.Fields.Add("s_rndm", db.Integer)
hTable.PrimaryKey = ["s_seq"]
hTable.Update
'fill the table with generated data
$hconn.Begin
rTest = $hConn.Create("sampleTable")
FOR iCount = 1 TO 10000
rTest!s_seq = iCount
rTest!s_rndm = Int(Rnd(0, 100))
rTest.Update
NEXT
$hConn.Commit
'read the database
sql = "select s_seq as ID,
s_rndm as Value from sampleTable"
$res = $hconn.Exec(sql)
CATCH
$hConn.Rollback
Message.Error(DConv(Error.Text))
END
'-------------------------------------------------
PUBLIC SUB Form_Activate()
'change the rowcount of the
gridview from 0 to the number of records.
'This triggers the data
handling event
GridView1.Rows.Count = $res.Count
END
'-------------------------------------------------
PUBLIC SUB GridView1_Data(Row
AS Integer, Column AS Integer)
$res.moveTo(row)
GridView1.Data.text = Str($res[GridView1.Columns[column].text])
END
'-------------------------------------------------
PUBLIC SUB Form_Close()

 

Quote

Dear,

I came across gambasindia.com and wanted to share this great free AI tool.
With this tool you write content 10 times faster and with much higher conversion rates.
You can use the tool for free via freeaiwriting.com

The AI can write blogs, advertising copy, youtube videos and even entire books.
We would love to hear your feedback.

Kind regards,
Bram
Freeaiwriting.com

Quote

Dear,

I came across gambasindia.com and wanted to share this great free AI tool.
With this tool you write blogs and ads 10 times faster and with much higher conversion rates.
You can use the tool for free via freeaiwriting.com

The AI can write blogs, advertising copy, youtube videos and even entire books.
We would love to hear your feedback.

Kind regards,
Joseph
Freeaiwriting.com

Quote

help with coursework
coursework website
coursework psychology