[Gambas-user] Second Form not reading Public variable from first form

rocko sunblaster5 at ...626...
Thu Aug 9 21:37:27 CEST 2012 

Sure can.

FMain CODE:>>>>>>>>>>>>>>>>>>>>>>>>>
' Gambas class file

 Public $hConn As Connection

Public Sub _new()

End

Public Sub Form_Open()

$hConn = New Connection
With $hConn
  .Host = "/home/rocko/DataBases"
  .Name = "my_test.sqlite"
  .Type = "sqlite"
End With

Try $hConn.Open
If Error Then
  Print "Database cannot be opened. Error = ", Error.Text
    Else
      Message.Info("You are now connected to the database.")
      
Endif

End


Public Sub btnAdd_Click()

 FNew.Show

End

Public Sub btnClose_Click()

  $hConn.Close
  FMain.Close

End
+++++++++++++++++++++++++++++++++++++++++++++++++++++

FNew CODE:>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
' Gambas class file

' 
Private rTable As Result



Public Sub btnCommit_Click()
 
  FMain.$hConn = New Connection
  FMain.$hConn.Open
  
  rTable = FMain.$hConn.Create("inventory")
  
  If rTable.Available Then
    rTable!name = txtName.Text
    rTable!type = txtType.Text
    Try rTable.Update
    If Error Then
      Print "Update failed"
      Message.Error(ERROR.Text)
      
      Endif
  Endif
    
  DB.Commit
  

End

Public Sub btnCancel_Click()

  FNew.Close

End

Hope that helps.


On Thu, 2012-08-09 at 21:25 +0200, Olivier Cruilles wrote:
> Can you put the code that you obtain now in a main Form and in the second Form please ?
> 
> Cordialement,
> 
> Olivier Cruilles
> Mail: linuxos at ...1896...
> 
> Le 9 août 2012 à 21:22, rocko <sunblaster5 at ...626...> a écrit :
> 
> > Ok I see, 
> > I've added FMain.xxxx
> > but now I'm getting "Driver name missing" at FMain.Open
> > 
> > 
> > On Thu, 2012-08-09 at 21:08 +0200, Olivier Cruilles wrote:
> >> Hello,
> >> 
> >> When you declare a variable as PUBLIC in a Form (Ex:  FMain) and if you want to access to this variable from another Form you need to rewrite the first Form like that:
> >> 
> >> 
> >> In the second Form use this:   FMain.$hConn    (But only if the variable is declared as PUBLIC, not PRIVATE)
> >> 
> >> 
> >> 
> >> Cordialement,
> >> 
> >> Olivier Cruilles
> >> Mail: linuxos at ...1896...
> >> 
> >> Le 9 août 2012 à 20:26, rocko <sunblaster5 at ...626...> a écrit :
> >> 
> >>> If I declare a Public variable is it available across all Forms and
> >>> Modules??
> >>> I ask because I'm having difficulty with a $hConn variable
> >>> 
> >>> I have a FMain form that connects to an sqlite database when the form is
> >>> opened.
> >>> Public Sub Form_Open()
> >>> 	$hConn = New Connection
> >>> 	With $hConn
> >>> 	 .Host = "path to database"
> >>> 	and so on....
> >>> I have $hConn declared as Public at the top of the FMain.Class
> >>> This so far works fine, the form opens and I get the Message.Info 
> >>> "You are connected to the database"
> >>> 
> >>> It's when the second form loads, Have a 'Add New' button on FMain which
> >>> opens the FNew form which can be used to add a record to the database,
> >>> but I was getting an error when I click the 'Commit' button.
> >>> 
> >>> Something about rTable and $hConn being NULL Objects, so I added an 
> >>> $hConn = New Connection, but now I'm getting:
> >>> "Unknown Identifier" for $hConn.
> >>> here is the Code for the FNew form:
> >>> 
> >>> ' Gambas class file
> >>> 
> >>> ' 
> >>> Private rTable As Result
> >>> 
> >>> 'Public $hConn As Connection
> >>> 
> >>> Public Sub btnCommit_Click()
> >>> 
> >>> $hConn = New Connection
> >>> ' $hConn.Open
> >>> 
> >>> rTable = $hConn.Create("inventory")
> >>> 
> >>> If rTable.Available Then
> >>>   rTable!name = txtName.Text
> >>>   rTable!type = txtType.Text
> >>>   Try rTable.Update
> >>>   If Error Then
> >>>     Print "Update failed"
> >>>     Message.Error(ERROR.Text)
> >>> 
> >>>     Endif
> >>> Endif
> >>> 
> >>> DB.Commit
> >>> 
> >>> 
> >>> End
> >>> 
> >>> Public Sub btnCancel_Click()
> >>> 
> >>> FNew.Close
> >>> 
> >>> End
> >>> 
> >>> Was also getting an error on the rTable AS Result when I had in the Sub
> >>> as DIM rTable AS Result>>"Unexpected Dim"
> >>> So I moved to the top of the class, don't know if that was good Idea
> >>> though.
> >>> I thought if I declared $hConn as Public it would be available to the
> >>> Fnew form, but that doesn't seem to be the case
> >>> Any insight would be helpful..
> >>> 
> >>> 
> >>> 
> >>> 
> >>> 
> >>> 
> >>> ------------------------------------------------------------------------------
> >>> Live Security Virtual Conference
> >>> Exclusive live event will cover all the ways today's security and 
> >>> threat landscape has changed and how IT managers can respond. Discussions 
> >>> will include endpoint security, mobile security and the latest in malware 
> >>> threats. http://www.accelacomm.com/jaw/sfrnl04242012/114/50122263/
> >>> _______________________________________________
> >>> Gambas-user mailing list
> >>> Gambas-user at lists.sourceforge.net
> >>> https://lists.sourceforge.net/lists/listinfo/gambas-user
> >> 
> >> ------------------------------------------------------------------------------
> >> Live Security Virtual Conference
> >> Exclusive live event will cover all the ways today's security and 
> >> threat landscape has changed and how IT managers can respond. Discussions 
> >> will include endpoint security, mobile security and the latest in malware 
> >> threats. http://www.accelacomm.com/jaw/sfrnl04242012/114/50122263/
> >> _______________________________________________
> >> Gambas-user mailing list
> >> Gambas-user at lists.sourceforge.net
> >> https://lists.sourceforge.net/lists/listinfo/gambas-user
> > 
> > 
> > 
> > ------------------------------------------------------------------------------
> > Live Security Virtual Conference
> > Exclusive live event will cover all the ways today's security and 
> > threat landscape has changed and how IT managers can respond. Discussions 
> > will include endpoint security, mobile security and the latest in malware 
> > threats. http://www.accelacomm.com/jaw/sfrnl04242012/114/50122263/
> > _______________________________________________
> > Gambas-user mailing list
> > Gambas-user at lists.sourceforge.net
> > https://lists.sourceforge.net/lists/listinfo/gambas-user
> 
> ------------------------------------------------------------------------------
> Live Security Virtual Conference
> Exclusive live event will cover all the ways today's security and 
> threat landscape has changed and how IT managers can respond. Discussions 
> will include endpoint security, mobile security and the latest in malware 
> threats. http://www.accelacomm.com/jaw/sfrnl04242012/114/50122263/
> _______________________________________________
> Gambas-user mailing list
> Gambas-user at lists.sourceforge.net
> https://lists.sourceforge.net/lists/listinfo/gambas-user

More information about the User mailing list