Créer un utilisateur dans SQL Server génère une erreur: SUBQUERY RETURNED PLUS DE 1 VALEUR

Question

J'ai une application Delphi XE3 qui crée des utilisateurs et des connexions dans une base de données SQL Server. J'ai utilisé FireDAC TAdConnection, TADQuery et deux TAdScript pour exécuter des instructions SQL pour créer les utilisateurs et les connexions. Lorsque je tente de créer connexion sur SQL Server, l'instruction SQL pour créer des connexions fonctionne très bien

CREATE LOGIN LOGIN_NAME 
WITH PASSWORD='PASSWORD', CHECK_POLICY = OFF, 
DEFAULT_DATABASE = DATABASE 

Mais lorsque je tente de créer l'utilisateur sur la base de données

CREATE USER USER_NAME 
FOR LOGIN LOGIN_NAME WITH DEFAULT_SCHEMA=dbo 

le code renvoie une erreur:

Subquery returned more than 1 value. This is not permitted when the subquery follows =,!=,<,<=,>,>= or when the subquery is used as an expression

J'ai essayé d'exécuter l'instruction SQL en utilisant TAdConnection, TAdQuery et TADScript, mais tous les retourne la même erreur.

Pourriez-vous m'aider s'il vous plait?

MISE À JOUR 1: Merci pour votre aide et commentaires

Ceci est le résultat lorsque j'utilise SQL Server Management Studio pour la création de la base de données USER

CREATE USER KDESAR12 FOR LOGIN KDESAR12 
WITH DEFAULT_SCHEMA=dbo 

Résultat

(1 row(s) affected)

La requête utilisée pour obtenir le déclencheur de la base de données

select * from KACTUSDESARROLLO.sys.triggers where parent_class_desc = 'DATABASE' 

Renvoie 0 lignes

Mon code Delphi est comme suit:

//Using TADScript 
    try 
    lStSQL := 'SET CMDSEP ;'; 
    lStSQL := lStSQL + ' USE MY_DATABASE_NAME; '; 

    lStSQL := lStSQL + ' CREATE USER KDESAR12 FOR LOGIN KDESAR12 WITH DEFAULT_SCHEMA=dbo;'; 

    ADScript1.SQLScripts.Add.SQL.Text := lStSQL; 
    ADScript1.ValidateAll; 
    ADScript1.ExecuteAll; 

    except on E: exception do 
    begin 
     ShowMessage(E.Message); 
    end; 
    end; 

//Using TADQuery 
    try 
    lStSQL := ' CREATE USER KDESAR12 FOR LOGIN KDESAR12 WITH DEFAULT_SCHEMA=dbo;'; 

    ADQuery2.SQL.Add (lStSQL); 
    ADQuery2.ExecSQL; 

    except on E: exception do 
    begin 
     ShowMessage(E.Message); 
    end; 
    end; 

//Using TADConnection 
    try 
    lStSQL := ' CREATE USER KDESAR12 FOR LOGIN KDESAR12 WITH DEFAULT_SCHEMA=dbo;'; 

    ADConnection1.ExecSQL (lStSQL); 

    except on E: exception do 
    begin 
     ShowMessage(E.Message); 
    end; 
    end; 

Tous les composants retourne la même erreur

Answer 1

La seule façon cette déclaration peut provoquer cette erreur est un déclencheur DDL. EG

CREATE TRIGGER create_user_trigger 
ON DATABASE 
FOR create_user 
AS 
    declare @id int = (select object_id from sys.objects); 
; 
go 

Answer 2

Merci à tous pour votre aide. J'ai fini de tester le code par rapport à une autre base de données dans un autre serveur, et cela a très bien créé la connexion. J'ai donc demandé à l'administrateur de base de données les différences entre ces environnements, et il m'a indiqué un déclencheur de serveur qu'il utilisait à des fins d'audit. Une fois qu'il l'a désactivé sur le premier serveur, le code a fonctionné comme prévu.

Pour la postérité, en plus de la vérification des triggers comme Browne @ David - Microsoft a déclaré, on peut vérifier pour le serveur déclenche comme ceci:

SELECT * FROM sys.server_triggers 

merci encore