Discussion :

[colorid]

Bonjour,

Avec les seuls composant ADO de la palette Dbgo comment créer une base de données MSacces du type Machin.mdb ?

Avec ces composants on peut créer des tables, des procédures stockées, des clés primaires et foreignkey, etc. mais comment créer la base qui va contenir tout celà?

Avec les versions antérieures de delphi on pouvait créer une base access avec le composant TAdoxCatalog avec le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
  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;';
  ADOXCatalog1.Create1(chaineCnx);

Mais dans la palette dbgo le composant TADOXCatalog n'existe pas, comment et par quoi le remplacer ?

Merci à tous pour votre savoir faire qui je n'en doute pas va me sortir une nouvelle fois d'un mauvais pas !

J'espère que je ne regretterai pas d'avoir accquis RAD Stutio XE

A+

[ShaiLeTroll]

Créer une BDD Access vide

Utilisation d'AdoX avec Delphi - lire 3. Installation (1ere partie)

TADOXCatalog (TCatalog dans le TLB.pas) c'est issu d'une Bibliothèque de Type, sur les précédentes version de Delphi, tu avais du l'importer !

Sur mon PC, c'est "Microsoft ADO Ext 2.8 for DDL and Security"
Dans la DLL "C:\Program Files\Fichiers communs\System\ado\msADOX.dll"

[Cl@udius]

Salut

Mais dans la palette dbgo le composant TADOXCatalog n'existe pas, comment et par quoi le remplacer ?

Ce composant n'existe pas et n'a jamais été fourni avec Delphi.
Tu peux procéder ainsi, en créant un object COM avec CreateOleObject:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
uses
  ComObj;
 
var
  Cat: OleVariant;
  Cnx: string;
begin
  Cat := CreateOleObject('ADOX.Catalog');
  Cnx := 'Provider=Microsoft.Jet.OLEDB.4.0; ....';
  Cat.Create(Cnx);
  // Libération
  Cat := Unassigned;
end;

@+ Claudius

[colorid]

Cette dernière proposition fonctionne parfaitement

Merci mille fois

Je coche résolu