使用系统表根据存储过程名字生成ADO.NET数据库访问代码

下面的存储过程可以在查询管理器里面生成ADO.NET 存储过程调用代码，省去很多的Coding功夫。

SET  ANSI_NULLS  ON
GO
SET  QUOTED_IDENTIFIER  ON
GO

 



 

ALTER     PROCEDURE   [ dbo ] . [ sqltoolforexcuteandadapter ]

(

@objName   nvarchar ( 100 ), -- 存储过程名称

@isexcute   int   -- 是否为execute 或者是sqladapter  0是execute,1是sqladapter

)

AS




SET  NOCOUNT  ON

DECLARE   @parameterCount   int

DECLARE   @errMsg   varchar ( 100 )

DECLARE   @parameterAt   varchar ( 1 )

DECLARE   @connName   varchar ( 100 )

DECLARE   @outputValues   varchar ( 100 )

-- Change the following variable to the name of your connection instance

SET   @connName = ' conn.Connection '

SET   @parameterAt = ''

SET   @outputValues = ''

SELECT

        dbo.sysobjects.name  AS  ObjName,

        dbo.sysobjects.xtype  AS  ObjType,

        dbo.syscolumns.name  AS  ColName,

        dbo.syscolumns.colorder  AS  ColOrder,

        dbo.syscolumns.length  AS  ColLen,

        dbo.syscolumns.colstat  AS  ColKey,

        dbo.syscolumns.isoutparam  AS  ColIsOut,

        dbo.systypes.xtype

INTO  #t_obj

FROM

        dbo.syscolumns  INNER   JOIN

        dbo.sysobjects  ON  dbo.syscolumns.id  =  dbo.sysobjects.id  INNER   JOIN

        dbo.systypes  ON  dbo.syscolumns.xtype  =  dbo.systypes.xtype

WHERE

        (dbo.sysobjects.name  =   @objName )

         AND

        (dbo.systypes.status  <>   1 ) 

ORDER   BY

        dbo.sysobjects.name,

        dbo.syscolumns.colorder

 

SET   @parameterCount = ( SELECT   count ( * )  FROM  #t_obj)

IF ( @parameterCount < 1 )  SET   @errMsg = ' No Parameters/Fields found for  '   +   @objName

IF ( @errMsg   is   null )

         BEGIN

                 print   ' SqlConnection conn = new SqlConnection("");

            SqlCommand com = new SqlCommand(" ' + @objName + ' ", conn); '

                 print   ' com.CommandType = CommandType.StoredProcedure; '

                 PRINT   '    SqlParameter[] Parameters = new SqlParameter[ '   +

cast ( @parameterCount   as   varchar )  +   ' ]; '

                 PRINT   ''

 

                 DECLARE   @source_name   nvarchar ,

                                 @source_type   varchar ,

                         @col_name   nvarchar ( 100 ),

                                 @col_order   int ,

                                 @col_type   varchar ( 20 ),

                         @col_len   int ,

                                 @col_key   int ,

                                 @col_xtype   int ,

                                 @col_redef   varchar ( 20 ),

                                 @col_isout   tinyint

 

                 DECLARE  cur  CURSOR   FOR

                 SELECT   *   FROM  #t_obj

                 OPEN  cur

                 --  Perform the first fetch.

                 FETCH   NEXT   FROM  cur  INTO

@source_name , @source_type , @col_name , @col_order , @col_len , @col_key , @col_isout , @col_xtype

 

                         if ( @source_type = N ' U ' )  SET   @parameterAt = ' @ '

                         --  Check @@FETCH_STATUS to see if there are any more rows to fetch.

                         WHILE   @@FETCH_STATUS   =   0

                                 BEGIN

                                 SET   @col_redef = ( SELECT   CASE   @col_xtype

                                         WHEN   34   THEN   ' Image '

                                         WHEN   35   THEN   ' Text '

                                         WHEN   36   THEN   ' UniqueIdentifier '

                                         WHEN   48   THEN   ' TinyInt '

                                         WHEN   52   THEN   ' SmallInt '

                                         WHEN   56   THEN   ' Int '

                                         WHEN   58   THEN   ' SmallDateTime '

                                         WHEN   59   THEN   ' Real '

                                         WHEN   60   THEN   ' Money '

                                         WHEN   61   THEN   ' DateTime '

                                         WHEN   62   THEN   ' Float '

                                         WHEN   99   THEN   ' NText '

                                         WHEN   104   THEN   ' Bit '

                                         WHEN   106   THEN   ' Decimal '

                                         WHEN   122   THEN   ' SmallMoney '

                                         WHEN   127   THEN   ' BigInt '

                                         WHEN   165   THEN   ' VarBinary '

                                         WHEN   167   THEN   ' VarChar '

                                         WHEN   173   THEN   ' Binary '

                                         WHEN   175   THEN   ' Char '

                                         WHEN   231   THEN   ' NVarChar '

                                         WHEN   239   THEN   ' NChar '

                                         ELSE   ' !MISSING '

                                         END   AS  C)

 

                                 -- Write out the parameter

                                 PRINT   '    Parameters[ '   +   cast ( @col_order - 1   as   varchar )

                                     +   ' ] = new SqlParameter(" '   +   @parameterAt   +   @col_name

                                     +   ' ", SqlDbType. '   +   @col_redef

                                     +   ' ); '

 

                                 -- Write out the parameter direction it is output

                                 IF ( @col_isout = 1 )

                                         BEGIN

                                                 PRINT   '    Parameters[ ' +   cast ( @col_order - 1   as   varchar )

+ ' ].Direction=ParameterDirection.Output; '

                                                 SET   @outputValues = @outputValues + '    ?=Parameters[ ' +

cast ( @col_order - 1   as   varchar )  + ' ].Value; '

                                         END

                                         ELSE

                                         BEGIN

                                                 -- Write out the parameter value line

                                                 PRINT   '    Parameters[ ' +   cast ( @col_order - 1   as   varchar )  +   ' ].Value = ?; '

                                         END

                                 -- If the type is a string then output the size declaration

                                 IF ( @col_xtype = 231 ) OR ( @col_xtype = 167 ) OR ( @col_xtype = 175 ) OR ( @col_xtype = 99 ) OR ( @col_xtype = 35 )

                                         BEGIN

                                                 PRINT   '    Parameters[ '   +   cast ( @col_order - 1   as   varchar )  +

' ].Size= '   +   cast ( @col_len   as   varchar )  +   ' ; '

                                         END

 

                                  --  This is executed as long as the previous fetch succeeds.

                         FETCH   NEXT   FROM  cur  INTO

@source_name , @source_type , @col_name , @col_order ,

@col_len , @col_key , @col_isout , @col_xtype

         END

   PRINT   ''

   print   '        com.Parameters.AddRange(Parameters); '

if        @isexcute   =   0   -- 使用的execute方法执行sql语句

begin

 

       print   ' try

            {

                conn.Open();

                com.ExecuteNonQuery();

            }

            catch (Exception ee)

            {

                throw ee;

            }

            finally

            {

                conn.Close();

            } '

end

else   if   @isexcute   =   1 -- 需要返回数据集的话使用这个

begin

         print   ' try

            {

                da.Fill(ds);

            }

            catch (Exception ee)

            {

                throw ee;

            }

            finally

            {

               //do what you want to do or dispose resoures.

            } '

end

 

   CLOSE  cur

   DEALLOCATE  cur

  END

if ( LEN ( @errMsg ) > 0 )  PRINT   @errMsg

DROP   TABLE  #t_obj

SET  NOCOUNT  ON

测试代码：

sqltoolforexcuteandadapter  ' YourProcName ' , 1 -- or 0

显示出啦的结果是：

SqlConnection conn  =   new  SqlConnection( "" );

            SqlCommand com  =   new  SqlCommand( " YourProcName " , conn);
com.CommandType  =  CommandType.StoredProcedure;
   SqlParameter[] Parameters  =   new  SqlParameter[ 1 ];
 
   Parameters[ 0 ]  =   new  SqlParameter( " @yourparam " , SqlDbType.VarChar);
   Parameters[ 0 ].Value  =   ? ;
   Parameters[ 0 ].Size = 6 ;
 
       com.Parameters.AddRange(Parameters);
try

             {

                da.Fill(ds);

            }

             catch  (Exception ee)

             {

                throw ee;

            }

             finally

             {

               //do what you want to do or dispose resoures.

            }

这样非常方便，而且不用以后手写非常多的参数了，参数指定了精确的长度和类型，速度更快。

参考自codeproject

转载于:https://www.cnblogs.com/perfectdesign/archive/2008/01/15/gernerateADOCode.html