Violation d'accés composant AdoConnexion
Bonjour
Voici le code :
Code:
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:
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
