vb.net调用存储过程简单示例

     Private   Function  validateClient( ByVal  guid  As   String )  As   Integer
         Dim  result  As   Integer   =   0
         Try
             ' 读client
             Dim  client  As  SqlDataReader
             Dim  connStr  As   String   =  ConfigurationManager.ConnectionStrings( " wz " ).ConnectionString
             Dim  conn  As   New  SqlConnection(connStr)
             Dim  cmd  As   New  SqlCommand( " redlim_client_getdetailbyguid " , conn)
            cmd.CommandType  =  CommandType.StoredProcedure
             With  cmd.Parameters
                .Add( New  SqlClient.SqlParameter( " @clientguid " , guid))
             End   With
            conn.Open()
            client  =  cmd.ExecuteReader
             If   Not  client  Is   Nothing   AndAlso  client.HasRows  Then
                client.Read()
                result  =   Integer .Parse(client( " redlimClientState " ))  ' 获取client的状态
                client.Close()
             Else
                 ' 无client，新建client
                client.Close()
                cmd  =   New  SqlCommand( " redlim_client_create " , conn)
                cmd.CommandType  =  CommandType.StoredProcedure
                 With  cmd.Parameters
                    .Add( New  SqlClient.SqlParameter( " @clientguid " , guid))
                 End   With
                cmd.ExecuteNonQuery()

             End   If
         Catch  ex  As  Exception

         End   Try
         Return  result
     End Function

转载于:https://www.cnblogs.com/konimeter/archive/2011/09/18/2180008.html