' (c) Fernando Perez Rios - Santander (SPAIN) - Enero 2006
' EditRecord.bas == Modificar los registros de una tabla
' Update records
' Modifier les enregistrements d'une table

$INCLUDE "qDataBase_v1.inc"
'changer le chemin en fonction de votre config

TYPE Record
   Dossier  AS STRING * 8
   Cni      AS STRING * 12
   Nom      AS STRING * 50
   Domicile AS STRING * 50
   Postal   AS STRING * 5
   Localite AS STRING * 50
   Compte   AS STRING * 20
   Montant  AS DOUBLE
END TYPE
   
DIM db AS qDatabase
DIM rs AS qRecordset
DIM reg AS Record

   db.OpenDatabase("Test.mdb")
   rs.OpenRecordset("Sample")

   reg.Dossier  = "xxxxxxxxxxx"
   reg.Cni      = "yyyyyyyy"
   reg.Nom      = "zzzzzzzzzzzzzzzzz"
   reg.Domicile = "aaaaaaaaaaa"
   reg.Postal   = "bbbbb"
   reg.Localite = "cccccccccccccc"
   reg.Compte   = "111111111"
   reg.Montant  = 2222.22
   
   rs.IdRec = 1
   rs.Edit(ptrUDT(reg))	
 
   db.Close

END