PureBasic

Code : Tout sélectionner

;{/ Déclaration des Procédures
Declare LdbCountField()
;}

Code : Tout sélectionner

; Test de la Lib Ldb (Little Database )
; à lancer en mode Debug

; Initialisation de la Librairie
LdbInit()

; On créé la base de donnée avec 3 champs
LdbCreate("c:\Pilotes.db","Date Naissance,Nom,Prenom")

; On ajoute un enregistrement
LdbInsertRecord(-1)
; On écrit dans l'enregistrement
LdbWrite(1,"1969") ; 1er champ
LdbWrite(2,"Schumacher") ; 2eme champ
LdbWrite(3,"Michey") ; 3eme champ

; On ajoute un enregistrement
LdbInsertRecord(-1)
; On écrit dans l'enregistrement
LdbWrite(1,"1980") ; 1er champ
LdbWrite(2,"Button") ; 2eme champ
LdbWrite(3,"Jenson") ; 3eme champ

; On ajoute un enregistrement
LdbInsertRecord(-1)
; On écrit dans l'enregistrement
LdbWrite(1,"1981") ; 1er champ
LdbWrite(2,"Alonso") ; 2eme champ
LdbWrite(3,"Fernando") ; 3eme champ

; On ajoute un enregistrement
LdbInsertRecord(-1)
; On écrit dans l'enregistrement
LdbWrite(1,"1971") ; 1er champ
LdbWrite(2,"Villeneuve") ; 2eme champ
LdbWrite(3,"Jacques") ; 3eme champ

; On insère un enregistrement en position 3
LdbInsertRecord(3)
; On écrit dans l'enregistrement
LdbWrite(1,"1975") ; 1er champ
LdbWrite(2,"Schumacher") ; 2eme champ
LdbWrite(3,"Ralph") ; 3eme champ

; On pointe sur le 1er enregistrement car on s'est trompé de prénom
LdbSetPointer(1)
; Et on change le champ 2
LdbWrite(3,"Michael")

; Tri de la Bdd par le champ1 ( Date de naissance )
LdbSortNum(1)

; Affichage des pilotes triés par année de naissance
Debug "Affichage des pilotes triés par année de naissance"
For n=1 To LdbCountRecord()
  LdbSetPointer(n)
  Debug LdbRead(1)+" "+LdbRead(2)+" "+LdbRead(3)
Next
Debug ""


; Tri de la Bdd par nom des pilotes
LdbSortAlpha(2,0)

; Affichage des pilotes par nom
Debug "Affichage des pilotes triés par nom"
For n=1 To LdbCountRecord()
  LdbSetPointer(n)
  Debug LdbRead(1)+" "+LdbRead(2)+" "+LdbRead(3)
Next
Debug ""

; recherche de tous les nom comprenant "Schumacher"
LdbSearchInit(2,"Schumacher",0)

; Affichage des pilotes ayant pour nom "Schumacher"
Debug "Affichage des pilotes avec nom 'Schumacher'"
Repeat
Champ=LdbSearch()
If Champ=0 : Break : EndIf
LdbSetPointer(Champ)
Debug LdbRead(1)+" "+LdbRead(2)+" "+LdbRead(3)
ForEver
Debug ""

; Affichage des infos de la base
Debug "Infos sur la Base"
Debug "Nombre de champs "+Str(LdbCountField())
Debug "Affichage du nom des champs"
For n=1 To LdbCountField()
  Debug "Champ n° "+Str(n)+" = "+LdbGetFieldName(n)
Next

Debug "Nombre d'enregistrements "+Str(LdbCountRecord())

; On enregistre
LdbSaveDatabase()
; et on ferme la database
LdbCloseDatabase()