Discussion :

[sondo]

Bonjour,

J'ai terminer mon application. Maintenant je veux laisser la liberté à un utilisateur de pouvoir créer des comptes pour les autres utilisateurs.
Le faire sous sql est facile, mais j'ai des problèmes à le faire sous delphi.
Voilà ce que j'ai fais : j'ai créé une form, et j'ai mis deux TEdit, representant le compte et le mot de passe.
Voici le code :

Code :

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

1
2
3
4
5
Query_User.sql.Clear;
  Query_User.sql.Add('Create user' + Edit3.text);
  Query_User.sql.Add('Identified by' + QuotedStr(Edit4.text));
  Query_User.sql.Add('Grant Connect to '+ QuotedStr(Edit3.text));
  Query_User.Open;

Commande create non valide...
Pouvez-vous m'aider?. Merci d'avance.

[Yurck]

bonjour,

Il faut utiliser execSql .

Code :

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

1
2
3
 
 
Query_User.execSql;

a+

[sondo]

SalutYurck,

J'ai une exception ora 01935 : Nom de rôle ou d'utilisateur absent.

[Aka Guymelef]

Bonjour,

fait attention à bien protéger tes valeurs textes avec QuotedStr. En outre fait attention à bien ajouter des espaces entre chaque instructions car j'ai l'impression qu'il en manque d'après le bout de code que tu nous as donné.

[Franck SORIANO]

Il faut couper la commande en deux requêtes :
- Une requête qui crée l'utilisateur : "Create user ... identified by ....."
- Une requête qui donne les droits d'accès : "grant connect to ... "

Si ton client te permet d'exécuter plusieurs statements dans le même batch, il manque un ';' après la création du user.

[sondo]

Merci à vous. C'étais éffectivement un problème de QuoteStr et d'espace.
Encore merci...