PureBasic

Code : Tout sélectionner

curdir.s=Space(250)
GetCurrentDirectory_(250,@curdir)
If Right(curdir,1)<>"\"
	curdir+"\"
EndIf


MDB_Create(curdir+"Test")
db=MDB_Connect(curdir,"Test","","")


If db
  qry$="Create table Info(id autoincrement,name text(100),phone text(50),constraint Info unique(id));"
  If DatabaseQuery(db,qry$) 
    DatabaseQuery(db,"Insert into Info(name,phone)values('Paul','555-1234')")
    DatabaseQuery(db,"Insert into Info(name,phone)values('Fred','555-0098')")
    DatabaseQuery(db,"Insert into Info(name,phone)values('Joey','555-4455')")
    Else
    Debug "Data already exists"
  EndIf
 

  If DatabaseQuery(db,"Select * from Info order by name asc;")
   	Debug "nombre de champs (colonnes) = "+Str(DatabaseColumns(db))
    While NextDatabaseRow(db)
      Debug DatabaseColumnName(db,0)+"="+Str(GetDatabaseLong(db,0))+": "+DatabaseColumnName(db,1)+"="+GetDatabaseString(db,1)+" ..."+DatabaseColumnName(db,2)+"="+GetDatabaseString(db,2)
    Wend
  EndIf
  
  If DatabaseQuery(db, "SELECT * FROM Info")
  
    While NextDatabaseRow(db) ; Enumeration des enregistrements
      Debug GetDatabaseString(db, 1) ; Affichage du contenu du premier champ
    Wend
  
  EndIf

  
  CloseDatabase(db)
EndIf

MDB_Disconnect("Test")

If ExamineDatabaseDrivers()
  While NextDatabaseDriver() <> 0
  	Debug "Driver : "+DatabaseDriverName()+" , "+DatabaseDriverDescription() 
  Wend
EndIf