Bonjour
Voici commen est créée ma nase de données AccessQuestion :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22 var chaineCnx : string; Cat: OleVariant; begin MDBFile:= ExePath+_DBDir+'\'+_DBName; result:= FileExists(MDBFile); if result then exit; ChDir(ExePath); if not DirectoryExists(_DBDir) then MkDir(_DBDir); chaineCnx := 'Provider=Microsoft.Jet.OLEDB.4.0;' + 'User ID=Admin;' + 'Data Source=' + MDBFile + ';' + 'Mode=Share Deny None;Extended Properties="";' + 'Jet OLEDB:Engine Type=5;'; Cat := CreateOleObject('ADOX.Catalog'); Cat.Create(chaineCnx); // Libération Cat := Unassigned; result:= FileExists(MDBFile); if result then TablesCreate; end;
Comment creer cette base pour qu'elle soit multiutilisateur ?
Un exemple code source serait bienvenu
Merci d'avance à tous les forumers
Partager