You repeat the same problem than yesterday.


Cordialement,

Olivier Cruilles
Mail: [email protected]

Le 9 août 2012 à 21:37, rocko <[email protected]> a écrit :

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

' 
Private rTable As Result        


Public Sub btnCommit_Click()

 FMain.$hConn = New Connection     <-  ERROR you don't need to reopen the 
database, it's already done
 FMain.$hConn.Open                             <-  ERROR you don't need to 
reopen the database, it's already done

 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

 FMain.$hConn.Commit      <-  ERROR corrected


End

Public Sub btnCancel_Click()

 FNew.Close

End

------------------------------------------------------------------------------
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
[email protected]
https://lists.sourceforge.net/lists/listinfo/gambas-user

Reply via email to