Search Knowledge Base Articles

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

Did you find this article useful?

Related Articles