Gambas data grid code
Gambas source code.Gambas datagrid, gambas sample programs. Edit gambas data grid-mysql. Gambas-stock control programs. Gambas datagrid sample, gambas get text and gambas get text-mysql
Wednesday, October 3, 2012
Add data to a gambas data grid
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() |
$hconn.Close |
END |