Add data to a gambas data grid

Quote from sam on July 4, 2022, 2:12 pmData 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
ENDAdding 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()
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 from Guest on November 14, 2022, 10:41 pmDear,
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.comThe AI can write blogs, advertising copy, youtube videos and even entire books.
We would love to hear your feedback.Kind regards,
Bram
Freeaiwriting.com
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 from Guest on January 9, 2023, 5:44 amDear,
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.comThe AI can write blogs, advertising copy, youtube videos and even entire books.
We would love to hear your feedback.Kind regards,
Joseph
Freeaiwriting.com
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 from Guest on January 25, 2023, 11:46 amhelp with coursework
[url="https://brainycoursework.com"]coursework website[/url]
coursework psychology
help with coursework
coursework website
coursework psychology