Discussion :

[kovax]

bonjour
je utilise ce code pour connecter au firebrid
1-j'ai fermer la conexion de IBD_GCV=ibdatabse
2-ibdatabse elle est relier a transaction

mais le problème c'est que le curseur de compilateur ne dépasse pas
la ligne de

Code :

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

FDM_DB.IBD_GCV.Close;

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
32
33
function TFDM_DB.connectme(Adatabasname:string;user:string;pwd:string;Arole:string):Boolean;
VAR
mess:string;
begin
 
try
 
FDM_DB.IBD_GCV.Close;
FDM_DB.IBD_GCV.DatabaseName:=Adatabasname; //path    la place de 'localhost:GCV'
FDM_DB.IBD_GCV.Params.Clear;
FDM_DB.IBD_GCV.Params.Add('user_name='+user);
FDM_DB.IBD_GCV.Params.Add('password='+pwd);
FDM_DB.IBD_GCV.Params.Add('sql_role_name='+Arole);
FDM_DB.IBD_GCV.Params.Add('lc_ctype=UNICODE_FSS');
FDM_DB.IBD_GCV.Params.Add('SQLDialect=3');
 
FDM_DB.IBD_GCV.Open;
Result:=True;
 
except
   on E:EIBError do begin
     mess:=myiberror.ibmessage(E);
     ShowMessage(mess);
     Result:=false;
   end;
  on E:EIBInterBaseError do begin
     mess:=myiberror.ibmessage(E);
     ShowMessage(mess);
     Result:=false;
 
  end;
end;
end;

une solution pour connecter avec le code stp et merci d'avance

[Ph. B.]

Bonjour,

mais le problème c'est que le curseur de compilateur ne dépasse pas
la ligne de

Code :

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

FDM_DB.IBD_GCV.Close;

Je ne comprends pas...

1. C'est un problème de compilation ? Quel est le message d'erreur ?
2. C'est un problème d'exécution ? Avez vous tracé le programme pas à pas ? F7 ou F8 après avoir posé un point d'arrêt sur l'instruction en question ? y a-t-il la aussi un message d'erreur ?

[SergioMaster]

j'adore les personnes qui mettent sans indiquer comment ils s'y sont pris ou quelle erreur ils avaient commises dans le code , ça aide pas vraiment les autres (ce qui est en principe un des fondements du Forum) .

Outre le fait que ce n'est pas un "problème" Firebird mais Delphi et qui plus est de Compilation

Code :

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

1
2
3
4
5
6
7
8
9
 
   IBDatabase.Connected:=False;  // close connexion
   try
    .....// settings de paramètres
     IBDatabase.Connected:=True;  // open connexion 
   except 
      ....// gestion des erreurs
   end;
   result:=IBDataBase.Connected;