1. chaine3 := chaine1 + chaine2;
2. ExtractFilePath(Application.ExeName) + 'database.mdb'
3.
ConnectString := Format('Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=%s%s;Mode=ReadWrite;Extended Properties="";Jet OLEDB:System database="";Jet OLEDB:Registry Path="";Jet OLEDB:Database Password="";Jet OLEDB:Engine Type=5;Jet OLEDB:Database Locking Mode=1;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Password="";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Don't Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False', [chemin, nomBD]);
|
4. je sais plus GetVolumeInformation probablement
5. Y a GetDriveType qui donne le type, doit y avoir une fonction qui liste les lecteurs existants aussi
6. Je mets un TADOConnection, je lui spécifie le ConnecionString à utiliser, puis j'y lie un TADOQuery, ça suffit
7. Application.ProcessMessages; et Application.HandleMessage; (le premier bouffera 100% de CPU dans une boucle où y a que ça, mais le second sera peut-être moins "temps réel", faut tester les deux donc)
Message édité par antp le 10-12-2002 à 10:06:31
---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire