Salut tout le monde,
je veux creer une Base de Donné Access avec ce Code:
mais jai l'erreur suivante:
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;
Cant load DLL MSJTER35.dll
si quelqun connait le probleme, je suis preneur.
Merci
Partager