首页 新闻 搜索 专区 学院

大家好。。。我有一个存储过程。。

0
悬赏园豆:200 [已关闭问题]

USE [HC_RegisterNow]
GO
/****** 对象:  StoredProcedure [dbo].[NwebLogLog]    脚本日期: 02/11/2009 08:37:51 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
ALTER PROCEDURE [dbo].[NwebLogLog]
    @TableName varchar(50),        --表名
 @Fields varchar(5000) = '*',    --字段名(全部字段为*)
 @OrderField varchar(5000),        --排序字段(必须!支持多字段)
 @sqlWhere varchar(5000) = Null,--条件语句(不用加where)
 @pageSize int,                    --每页多少条记录
 @pageIndex int = 1 ,            --指定当前为第几页
 @totalRecord int = 0,
 @TotalPage int output            --返回总页数
AS
BEGIN
   
     Begin Tran --开始事务

    Declare @sql nvarchar(4000);

    if @totalRecord<=0 begin
        --计算总记录数
            
        if (@SqlWhere='' or @sqlWhere=NULL)
            set @sql = 'select @totalRecord = count(*) from ' + @TableName
        else
            set @sql = 'select @totalRecord = count(*) from ' + @TableName + ' with(nolock) where ' + @sqlWhere

        EXEC sp_executesql @sql,N'@totalRecord int OUTPUT',@totalRecord OUTPUT--计算总记录数      
    end

    --计算总页数
    select @TotalPage=CEILING((@totalRecord+0.0)/@PageSize)

    if (@SqlWhere='' or @sqlWhere=NULL)
        set @sql = 'Select * FROM (select ROW_NUMBER() Over(order by ' + @OrderField + ') as rowId,' + @Fields + ' from ' + @TableName
    else
        set @sql = 'Select * FROM (select ROW_NUMBER() Over(order by ' + @OrderField + ') as rowId,' + @Fields + ' from ' + @TableName + ' with(nolock) where ' + @SqlWhere   
       

    --处理页数超出范围情况
    if @PageIndex<=0
        Set @pageIndex = 1
   
    if @pageIndex>@TotalPage
        Set @pageIndex = @TotalPage

     --处理开始点和结束点
    Declare @StartRecord int
    Declare @EndRecord int
   
    set @StartRecord = (@pageIndex-1)*@PageSize + 1
    set @EndRecord = @StartRecord + @pageSize - 1

    --继续合成sql语句
    set @Sql = @Sql + ') as t where rowId between ' + Convert(varchar(50),@StartRecord) + ' and ' +  Convert(varchar(50),@EndRecord)
     print @sql  
    Exec(@Sql)
    ---------------------------------------------------
    If @@Error <> 0
      Begin
        RollBack Tran
        Return -1
      End
     Else
      Begin
        Commit Tran
        Return @totalRecord ---返回记录总数
      End  
END

 

里面有个@sqlWhere varchar(5000) = Null,--条件语句(不用加where)这个参数。。我在程序里面该如何拼装。。考虑到里面的类型不同。。有整数的还有字符串的。。。字符串的必须前面加上两个单引号才可执行。。真是郁闷是我了。。请各位专家帮我一下好吗。。。小弟在此感谢了。。。

 

小手冰冰凉的主页 小手冰冰凉 | 初学一级 | 园豆:20
提问于:2009-02-11 09:27
< >
分享
其他回答(2)
0

我在程序里面该如何拼装。。考虑到里面的类型不同。。有整数的还有字符串的。。。字符串的必须前面加上两个单引号才可执行。。真是郁闷是我了。。请各位专家帮我一下好吗。。。小弟在此感谢了。。。

可以如下使用 例如:某字段名=值 and 字段名=值

你不用到底是整形还是字符串,只要在你调用时请确保输入的类似如下就可以了

username='tester' and type=1

GUO Xingwang | 园豆:3885 (老鸟四级) | 2009-02-11 10:56
0

mark...

Jared.Nie | 园豆:1940 (小虾三级) | 2009-02-11 12:38
0

你的程序是用什么语言?应该不是用存贮过程来实现拼装吧。

说其它事情:以前我有看过一个程序员写一段包含两个字段的查询条件拼装(考题要求的是三个字段),代码如下:

Dim sWhere as String

sWhere = ""

if TxtRQ.Text="" and TxtSJ.Text="" then

else if TxtRQ.Text <>"" and TxtSJ.Text="" then

  sWhere="RQ='" & TxtRQ.Text & "' and "

else if TextRQ.Text="" and TxtSJ.Text<>"" then

  sWhere="SJ='" & TxtSJ.Text & "' and "

else

  sWhere="RQ='" & TxtRQ.Text & "' and SJ='" & TxtSJ.Text & "' and "

endif

if sWhere<>"" then sWhere=Right(sWhere, len(sWhere) - 4)

然后说三个字段以此类推……

where语句的拼装要考虑:字段名,字段的类型(文本、数字),对比符号(等于、大于、小于,like……),查询的内容。这些内容放到一个结构中,然后建立一个数组,最后,就是对这个数组进行循环,用一个统一的原则处理,即可。


Private Type WHERESTRU
  sZD As String  '字段名
  sLX As String  '类型 - 如果方便从数据库中来,则该内容可省
  sDB As String  '对比符号
  sRR As String  '内容
End Type

Private Sub Command1_Click()
Dim i As Long
Dim sWhere As String
Dim aWhere(10) As WHERESTRU
  '数据准备
  With aWhere(0)
    .sZD = "RQ": .sLX = "'": .sDB = ">=": .sRR = "2009-01-01"
  End With
  With aWhere(1)
    .sZD = "RQ": .sLX = "'": .sDB = "<=": .sRR = "2009-01-31"
  End With
  With aWhere(2)
    .sZD = "SJ": .sLX = "'": .sDB = "=": .sRR = "08:00"
  End With
  With aWhere(3)
    .sZD = "RR": .sLX = "'": .sDB = "like": .sRR = "%Hello%"
  End With
  With aWhere(4)
    .sZD = "SL": .sLX = "": .sDB = ">": .sRR = "10"
  End With
 
  '拼装代码
  sWhere = "1=1 and "
  For i = 0 To UBound(aWhere)
    If aWhere(i).sRR = "" Then
      '没有内容,不进行拼装
    Else
      With aWhere(i)
        sWhere = sWhere & .sZD & " " & .sDB & .sLX & .sRR & .sLX & " and "
      End With
    End If
  Next
  sWhere = Right(sWhere, Len(sWhere) - 4)
End Sub
之后,自己在最简单的基础上一直加功能,比如like,自动前后加上%号,或是sRR="$-1",则自动转换为昨天的日期(今天-1)等功能。

随便说一下:你出的分太高了,自己的专家分会很快就用完的。我就是用完了,现在开始出来赚分的。

yzx99 | 园豆:137 (初学一级) | 2009-02-11 14:36
清除回答草稿
   您需要登录以后才能回答,未注册用户请先注册