Discussion :

[colorid]

Bonjour à tous
Après avoir créé la BD par 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
14
15
16
  result:= FileExists(CurDBPath);
  if not result then
  begin
    Screen.Cursor:= crHourGlass;
    chaineCnx :=
    'Provider=Microsoft.Jet.OLEDB.4.0;' +
    'User ID=Admin;' +
    'Data Source=' + CurDBPath + ';' +
    'Mode=Share Deny None;Extended Properties="";' +
    'Jet OLEDB:Engine Type=5;';
    Cat := CreateOleObject('ADOX.Catalog');
    Cat.Create(chaineCnx);
    // Libération
    Cat := Unassigned;
    TablesCreate;
  end;

je souhaite créer les tables par la fonction TablesCreate :

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
23
24
25
// Création des tables
procedure TBD.TablesCreate;
var
  req : string;
  PW: Integer;
begin
  PW:= PassWordToInteger('admin');
  if ADOConnection1.Connected then ADOConnection1.Close;
  ADOConnection1.ConnectionString := Format(_ConnString,[_UserName,_PassWord,CurDBPath]);
  ADOConnection1.LoginPrompt := False;
  ADOConnection1.Connected := True;
  ADOCommand1.Connection := ADOConnection1;
  //************************************************************* table ADMIN
  // Dans cette version l'administrateur est unique
  // 1 ********************************************************** table ADMIN
  req:= 'CREATE TABLE ADMIN (' +
  ' AdNo AUTOINCREMENT, ' +         // Clé primaire autoincrémentée
  ' PRIMARY KEY (AdNo), '+
  ' Pass INTEGER NOT NULL DEFAULT '+IntToStr(PW)+', ' + // "admin" crypté
  ' Rights INTEGER NOT NULL DEFAULT '+IntToStr(DA_All)+', ' + // all rights
  ' UserName VARCHAR(32) NOT NULL, ' +
  ' Used VARCHAR(2) DEFAULT -1 '+
  ')';
  ADOCommand1.CommandText := req;
  ADOCommand1.Execute;

L'exécutable se plante systématiquement à la ligne 8 en déclenchant une EAccessViolation


J'ai du sauter un chapitre !!! Lequel ?

[BuzzLeclaire]

Salut colorid,

Montre ta chaîne de connection...

Code :

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

Format(_ConnString,[_UserName,_PassWord,CurDBPath])

;

Sinon,

Code :

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

if ADOConnection1.Connected then ADOConnection1.Close;

pouquoi ne pas directement fermer ?

a+

[colorid]

Code :

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

1
2
3
4
5
6
7
8
  const
  _ConnString =
  'Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;' +
  'User ID=%s;Password=%s;Data Source=%s;' +
  'Mode=Share Deny None;Extended Properties="";' +
  'Jet OLEDB:Engine Type=5;';
  _UserName = 'admin';
  _PassWord = '';

Voici les constantes adressées à Format()

[BuzzLeclaire]

Re, salut

Essai de te connecter sans user ni mdp pour voir...

Code :

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

1
2
3
4
5
6
7
8
9
  BaseAccess := IncludeTrailingPathDelimiter(ExtractFilePath(Application.ExeName)) + 'MaBasededonnees.mdb';
  With ADOCnxAA do
  begin
     ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + BaseBaseAccess +
    ';Persist Security Info=False';
    LoginPrompt := False;
    Try
      Connected := True;
// ...

a+

[Papy214]

Juste pour voir, mettre avant la ligne 8:

Code :

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

if not Assigned(AdoConnection1) then ShowMessage('aïe');

[colorid]

Je coche résolu