Récupération de données dans des bases Acsess 1997

[Jean paul]

J'ai un programe de gestion commenciale écrite en vb6,
qui ce base sur des bases acsess 97 lier pas des requettes sql
de quelle façon recuppérer les donnée en purebasic

[linkerstorm]

Il suffit que tu crées un lien ODBC vers ton fichier Access 97.

Ensuite, tu utilises les instructions de base de données de PureBasic.

[Flype]

exactement.

[Patrick88]

des commandes de ce genre : ( code de flype ou cplbator ? )

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

[Jean paul]

Merci a tous, je vais bûcher mon purebasic, qui ma l'air d'être un très bon
programme.