[Gambas-user] Problem with row count in mysql

[ronald at ...2810...]

I am having trouble getting a row count using mysql.  Here is some sample
code I have used.  All else works and I can connect to the database and
table.
There are 4 rows in the Table called Addresses.  Running this program
shows iData and 'a' as having 0 rows.  Please advise.

Thank you
Ron


Example code:

' Gambas class file
STATIC PUBLIC a AS Integer


PUBLIC SUB Form_Open()

  ME.Center
  ME.Height = 315
  $hConn = NEW Connection


END




PRIVATE $hConn AS Connection

PUBLIC SUB btnConnect_Click()

DIM sName AS String
DIM hTable AS Table
DIM iData AS Result

  TRY $hConn.Close
  '$hConn = NEW Connection

  sName = "AddressBook"

  WITH $hConn
    .Type = "mysql"
    .Host = "localhost"
    .Login = "root"
    .Password = "charlie12"
    .Name = ""
  END WITH

  'IF chkCreate.Value THEN

    $hConn.Open
    IF NOT $hConn.Databases.Exist(sName) THEN
      $hConn.Databases.Add(sName)
    ENDIF
    $hConn.Close

  $hConn.Name = sName
  $hConn.Open
  TextLabel1.text = "AddressBook Opened for Addresses"

 IF NOT $hConn.Tables.Exist("Addresses") THEN
  hTable = $hConn.Tables.Add("Addresses")

  hTable.Fields.Add("id", db.Long)
  hTable.Fields.Add("First_Name", db.String)
  'hTable.Fields.Add("Mi", gb.String)
  'hTable.Fields.Add("Last_Name", gb.String)
  'hTable.Fields.Add("Address1", gb.String)
  'hTable.Fields.Add("Address2", gb.String)
  'hTable.Fields.Add("City", gb.String)
  'hTable.Fields.Add("State", gb.String)
  'hTable.Fields.Add("Zip_Code", gb.String)
  'hTable.Fields.Add("Home_Phone", gb.String)
  'hTable.Fields.Add("Cell_Phone", gb.String)
  'hTable.Fields.Add("Email_Address", gb.String)


  hTable.PrimaryKey = ["id"]

  hTable.Update
  ELSE


ENDIF


$hConn.Exec("use AddressBook;")
  iData = $hConn.Exec("select count(*) from Addresses;")

PRINT iData
a = iData
PRINT a

END



PUBLIC SUB btnClose_Click()

  $hConn.Close
  TextLabel1.Text = "AddressBook Closed"
  WAIT 4.0
  ME.Close

END

PUBLIC SUB btnAddSddress_Click()

 ME.Height = 770

END


PUBLIC SUB btnSave_Click()
DIM rdata AS Result
txtRequest.Text = "insert into Addresses values('" & a & "','" &
txtFirstName.Text & "');" '& "(" & "'" & a & "'," & "'" &
txtFirstName.Text & "');"
rdata = $hConn.Exec(txtRequest.Text)
  INC a
  PRINT a

  END

PRINT idata
a = iData
PRINT a

END