Bonjour !
sous IBExpert quand j'exécute cette ligneça me donne le résultat attendu.
Code : Sélectionner tout - Visualiser dans une fenêtre à part GRANT MAJ_BD to LOLA
Cette même ligne de code quand elle est exécutée à partir de Delphi ça donne erreur. Voici le code suspect :
Avez-vous une idée d'où peut venir cette erreur ?!
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 try AddUser; IBCQuery_USERS.Close; with IBCQuery_USERS.SQL do begin Clear; ch_SQL := 'GRANT MAJ_BD TO ' + USER_INT; IBCQuery_USERS.SQL.Text := ch_SQL; end; IBCQuery_USERS.Execute; MessageDlg(Format('L''utilisateur %s a était ajouter avec succès.', [UserName]), mtInformation, [mbOk], 0); Result := True; except on E:Exception do begin Result := False; MessageDlg('Veuillez contacter l''Administrateur de la base de données', mtError, [mbOk], 0); end; end;
Merci par avance.
Partager