' (c) Fernando Perez Rios - Santander (SPAIN) - Enero 2006
' AddRecord.bas == Alta de registros en la tabla
' Add records to table
' Ajouter des enregistrement au 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 = "39AF48"
   reg.Cni = "987124769111"
   reg.Nom = "Lanbert, Camille"
   reg.Domicile = "22 rue Pierre et Marie Curie"
   reg.Postal = "68200"
   reg.Localite = "Mulhouse"
   reg.Compte = "10230954784573388623"
   reg.Montant = 2976.99
   rs.Add(ptrUDT(reg))	

   reg.Dossier = "26CF00"
   reg.Cni = "686286238645"
   reg.Nom = "Moreau, Guillaume"
   reg.Domicile = "3 rue de Belgrade "
   reg.Postal = "38100"
   reg.Localite = "Grenoble"
   reg.Compte = "88398202431666452893"
   reg.Montant = 5222.80
   rs.Add(ptrUDT(reg))	

   reg.Dossier = "33ZT11"
   reg.Cni = "098620430432"
   reg.Nom = "Gauthier, Chloe"
   reg.Domicile = "18 rue du Château-des-Vergnes"
   reg.Postal = "63100"
   reg.Localite = "Clermont Ferrand"
   reg.Compte = "83093784657382382922"
   reg.Montant = 10745.76
   rs.Add(ptrUDT(reg))	

   reg.Dossier = "99GU22"
   reg.Cni = "083803803111"
   reg.Nom = "Roussel, Lucas"
   reg.Domicile = "1 Boulevard Henri IV"
   reg.Postal = "34080"
   reg.Localite = "Montpellier"
   reg.Compte = "83930458372372722322"
   reg.Montant = 3245.88
   rs.Add(ptrUDT(reg))	

   db.Close
   ShowMessage " Ajoutés quatre enregistrements"
END