自定义分页存储过程 及VB.NET 调用

ALTER PROCEDURE [dbo].[GetRecordFromPage]

@tblName nvarchar(255), -- 表名

@fldName nvarchar(255), -- 字段名

@PageSize int = 10, -- 页尺寸

@PageIndex int = 1, -- 页码

@OrderType int = 0, -- 设置排序类型, 非0 值则降序

@IsCount int = 0, -- 返回记录总数, 非0 值则返回

@PageCount int output, --总页数，作为返回值

@strWhere nvarchar(255) = '' -- 查询条件(注意: 不要加where)

AS

declare @i int,@RecordCount int

declare @strSQL nvarchar(4000) -- 主语句

declare @strTmp nvarchar(1000) -- 临时变量

declare @strOrder nvarchar(500) -- 排序类型

if @OrderType != 0

begin

set @strTmp = '<(select min'

set @strOrder = ' order by [' + @fldName + '] desc'

end

else

begin

set @strTmp = '>(select max'

set @strOrder = ' order by [' + @fldName +'] asc'

end

set @strSQL = 'select top ' + str(@PageSize) + ' * from ['

+ @tblName + '] where [' + @fldName + ']' + @strTmp + '(['

+ @fldName + ']) from (select top ' + str((@PageIndex-1)*@PageSize) + ' ['

+ @fldName + '] from [' + @tblName + ']' + @strOrder + ') as tblTmp)'

+ @strOrder

if @strWhere != ''

set @strSQL = 'select top ' + str(@PageSize) + ' * from ['

+ @tblName + '] where [' + @fldName + ']' + @strTmp + '(['

+ @fldName + ']) from (select top ' + str((@PageIndex-1)*@PageSize) + ' ['

+ @fldName + '] from [' + @tblName + '] where ' + @strWhere + ' '

+ @strOrder + ') as tblTmp) and ' + @strWhere + ' ' + @strOrder

if @PageIndex = 1

begin

set @strTmp = ''

if @strWhere != ''

set @strTmp = ' where (' + @strWhere + ')'

set @strSQL = 'select top ' + str(@PageSize) + ' * from ['

+ @tblName + ']' + @strTmp + ' ' + @strOrder

end

exec (@strSQL)

if @IsCount != 0

set @strSQL = 'select @i=count(' + @fldName + ') from [' + @tblName + '] where ' + @strWhere + ' '

exec sp_executesql @strSQL,N'@i int output' ,@i output

set @RecordCount = @i

/*得到总页数，注意使用convert先转换整型为浮点型，防止小数部分丢失*/

set @PageCount = ceiling (convert( float,@i)/@PageSize)

return @i

VB调用的过程，和使用

Private Sub PageSelect(ByVal tblName As String, ByVal fldName As String, ByVal PageSize As Integer,

ByVal PageIndex As Integer, ByVal OrderType As Integer, ByVal IsCount As Integer,

ByVal strWhere As String)

Try

Dim conn As New SqlConnection

conn.ConnectionString = ConfigurationManager.ConnectionStrings("wingsbook").ToString()

Dim myCommand As New SqlDataAdapter

Dim ds As DataSet

myCommand = New SqlDataAdapter("GetRecordFromPage", conn)

myCommand.SelectCommand.CommandType = CommandType.StoredProcedure

myCommand.SelectCommand.Parameters.Clear()

myCommand.SelectCommand.Parameters.Add("@tblName", SqlDbType.NVarChar, 255).Value = tblName

myCommand.SelectCommand.Parameters.Add("@fldName", SqlDbType.NVarChar, 255).Value = fldName

myCommand.SelectCommand.Parameters.Add("@PageSize", SqlDbType.Int).Value = PageSize

myCommand.SelectCommand.Parameters.Add("@PageIndex", SqlDbType.Int).Value = PageIndex

myCommand.SelectCommand.Parameters.Add("@OrderType", SqlDbType.Int).Value = OrderType

myCommand.SelectCommand.Parameters.Add("@IsCount", SqlDbType.Int).Value = IsCount

Dim PageCount As SqlParameter = myCommand.SelectCommand.Parameters.Add("@PageCount", SqlDbType.Int)

PageCount.Direction = ParameterDirection.Output

Dim CountS As SqlParameter = myCommand.SelectCommand.Parameters.Add("@CountS", SqlDbType.Int)

CountS.Direction = ParameterDirection.ReturnValue

myCommand.SelectCommand.Parameters.Add("@strWhere", SqlDbType.NVarChar, 255).Value = strWhere

ds = New DataSet()

myCommand.Fill(ds, "tableset")

Me.DataGridView1.DataSource = ds.Tables(0)

keepnum = PageCount.Value

keepcount = CountS.Value

countsum.Text = CountS.Value & " (总页数：" & PageCount.Value & ")"

Catch ex As Exception

MessageBox.Show(ex.Message)

End Try

End Sub

调用：

PageSelect("Com_Customer", "id", 100, 1, 0, 1, "1=1")
[align=left] [/align]

[align=left]使用[/align]

[align=left]declare @i int ,@PageCount int[/align]
[align=left]exec @i= GetRecordFromPage 'Customer_info', 'id', 1000 ,2 , 1, 1 ,@PageCount output , 'id>14000'[/align]
[align=left]select @PageCount as [out][/align]
[align=left]print @i[/align]