存储过程！

Question

这段代码在查询分析器内已经通过，为何在Delphi内却报错！
 if  Exists(Select name from Sysobjects where name='Update_Glass_Stock_Count')
 drop procedure Update_Glass_Stock_Count 
 go 
 Create Procedure Update_Glass_Stock_Count @aQuantity Float,@aDegree Char(11),@aType Char(20) as
 Update Glass_Stock_Count set Count_Quantity=@aQuantity where Count_Degree=@aDegree and Count_Type=@aTypeDelphi中：   Create_Procedure[0]:=
                        ' if  Exists(Select name from Sysobjects where name=''Update_Glass_Stock_Count'')'+
                        ' drop procedure Update_Glass_Stock_Count '+
                        ' go '+
                        ' Create Procedure Update_Glass_Stock_Count @aQuantity Float,@aDegree Char(11),@aType Char(20) as'+
                        ' Update Glass_Stock_Count set Count_Quantity=@aQuantity where Count_Degree=@aDegree and Count_Type=@aType';

Answer 1

在Delphi可能要用四个'表示一个', 
' if  Exists(Select name from Sysobjects where 
name='+''''+'Update_Glass_Stock_Count='+''''+')'如果这样还不可以,你就用QuotedStr()来加'':
' if  Exists(Select name from Sysobjects where 
name='+QuotedStr(Update_Glass_Stock_Count)+')'

Answer 2

是不是Delphi连数据库的用户名和查询分析器登录数据库的用户名不同，而没有权限创建存储过程