Discussion :

[Soulama]

Salut tout le monde,
je veux creer une Base de Donné Access avec ce 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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
 
{ Create a Microsoft Access Database file (MDB)
  pass in the complete path of the MDB file to create }
function CreateAccessMDB(Filename: string): boolean;
var
   DBEngine: OLEVariant;
   DBLocale: string;
   strbuf:   array[0..20] of char;
begin
   try
      { connect to MS Jet DB Engine... }
      DBEngine := CreateOLEObject('DAO.DBEngine.35');
      { get locale info for creating database... }
      GetLocaleInfo(LOCALE_USER_DEFAULT,LOCALE_IDEFAULTLANGUAGE,strbuf,20);
      DBLocale := ';LANGID=0x'+strbuf;     { language code as C-style hex
integer (0x0809 for UK English) }
      GetLocaleInfo(LOCALE_USER_DEFAULT,LOCALE_IDEFAULTCODEPAGE,strbuf,20);
      DBLocale := DBLocale+';CP='+strbuf;  { default code page (850 for UK
English) }
      GetLocaleInfo(LOCALE_USER_DEFAULT,LOCALE_IDEFAULTCOUNTRY,strbuf,20);
      DBLocale := DBLocale+';COUNTRY='+strbuf;      { country code (44 for
UK English) }
 
      DBEngine.CreateDatabase(Filename,DBLocale);
      Result := true;
   except
      on EOleException do
         Result := false;
         { ...may want to put an error message/help context in here... }
   end;
end;

mais jai l'erreur suivante:
Cant load DLL MSJTER35.dll
si quelqun connait le probleme, je suis preneur.
Merci

[Soulama]

Salut,
pour tous qui sont concernés:
Faut importer lactiveX ADOX, et ajouter dans les uses: ADOX_TLB.
Voila le Code de la Creation dune Base Access:

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
 
function TForm1.CreateMSAccessDatabase(DbName: String): Boolean;
var
 DataSource : string;
 Catalog: TADOXCatalog;
begin
 Result:= False ;
 if FileExists(DBName) Then exit ;
 Catalog:= TADOXCatalog.Create(nil);
 Try
 DataSource :=
    'Provider=Microsoft.Jet.OLEDB.4.0' +
    ';Data Source=' + dbName +
    ';Jet OLEDB:Engine Type=0';
 
  Catalog.Create1(DataSource);
  Result:= True;
  finally
    FreeAndNil(Catalog);
  end ;
end;

Le parametre DbName doit etre specifier en FullPath.
A+