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
Partager