Interbase 2020 : EIBClient.error avec la constante DBP() inconnue
Bonjour à tous,
J'ai un programme fait avec Delphi XE2 et interbase de l'époque.
J'ai voulu le migrer sur Delphi 10.4 community.
En changeant les uses d'origine intitulés " IBxxx" en "IBX.IBxxx", je peux le compiler sans erreur.
A l'exécution, la partie création de la base et des tables se passe sans erreur. Je peux le voir en ouvrant cette base avec IBconsole et en enregistrant des données depuis IbConsole.
Par contre la partie "configuration " me provoque l'erreur suivante :
Citation:
Le projet "Monprojet.exe" a déclenché la classe d'exception EIBClientError avec le message 'la constante DPB() est inconnue'
Voici la parte du code qui me pose problème :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
| procedure TForm3.Config_Connection(Nom_Base: TFilename); // Configuration de la connection
begin
// PREMIERE TABLE
IBDataBase1.Params.Clear;
with IBDatabase1 do begin
DatabaseName:=Nom_Base;
Params.Add('user_name=ABCDE');
Params.Add('password=abcde');
Params.Add('PAGE_SIZE 4096');
LoginPrompt:=False;
DefaultTransaction:=IBTransaction1;
end;
IBTransaction1.defaultDatabase:=IBDatabase1;
IBDatabase1.connected:=True; <== c'est cette ligne qui provoque le message d'erreur
IBTransaction1.active:=True;
with IBTable1 do begin
database:=IBDatabase1;
TableName:='DONNE';
end;
DataSource1.DataSet:=IBTable1;
..........................
.......................... |
Merci de vos suggestions car je ne trouve rien nulle part sur ce sujet
Jean-Louis
