C'est ce que je vous propose de faire avec ce code concocter par Peter (Alias Kiffi)
Code : Tout sélectionner
If OpenDatabase(0)
  Debug "OpenDatabase(): OK"
  
  ;Création d'une table
  DatabaseUpdate(0, "Create Table SuperHeroes (Prename TEXT, Surname TEXT)")
  
  ;Insertion de quelques enregistrements
  DatabaseUpdate(0, "Insert Into SuperHeroes (Prename, Surname) Values ('Peter', 'Parker')")
  DatabaseUpdate(0, "Insert Into SuperHeroes (Prename, Surname) Values ('Bruce', 'Wayne')")
  DatabaseUpdate(0, "Insert Into SuperHeroes (Prename, Surname) Values ('Clark', 'Kent')")
  
  ;Selection d'un enregistrement
  If DatabaseQuery(0, "Select * From SuperHeroes Where Prename = 'Peter'")
    
    ;Affichage du résultat
    While NextDatabaseRow(0)
      Debug GetDatabaseString(0, 1) + "," + GetDatabaseString(0, 0)
    Wend
    FinishDatabaseQuery(0)
    
  Else
    
    ;Ooops une erreur 
    Debug "DatabaseQuery() failed"
    Debug DatabaseError() 
  EndIf
  CloseDatabase(0)
Else
  Debug "OpenDatabase() failed"
EndIfhttps://www.purebasic.fr/french/viewtop ... 42#p200842