Discussion :

[colorid]

Bonjour

Voici le code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
procedure TDataModulPeek.TablesCreate;
var
  chaineCnx : string;
begin
  chaineCnx :=
  'Provider=Microsoft.Jet.OLEDB.4.0;' +
  'User ID=Admin;' +
  'Data Source=' + MDBFile + ';' +
  'Mode=Share Deny None;Extended Properties="";' +
  'Jet OLEDB:Engine Type=5;';
  ADOConnection1.ConnectionString := chaineCnx;
  ADOConnection1.LoginPrompt := False;
  ADOCommand1.Connection := ADOConnection1;

L'erreur se produit à la ligne ADOConnection1.ConnectionString := chaineCnx
C'est d'autant plus étonnant que cette même string de connexion a été utilisée avec succès pour créer la base avec le composant ADOX.Catalog avec un composant cat OleVariant code :

Code :

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

1
2
3
4
5
6
7
8
  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);

Quelqu'un peut-il venir à mon secours ?

Merci d'avance à tous

[Franck SORIANO]

A vu de nez, je dirais deux possibilités :
- Le composant ADOConnection1 n'a pas été instancié, ou puisque j'imagine qu'il est posé sur le datamodule, il a été détruit.
- Le datamodule lui même n'a pas été instancié.