大家好。。。我有一个存储过程。。
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)这个参数。。我在程序里面该如何拼装。。考虑到里面的类型不同。。有整数的还有字符串的。。。字符串的必须前面加上两个单引号才可执行。。真是郁闷是我了。。请各位专家帮我一下好吗。。。小弟在此感谢了。。。
其他回答(2)
0
我在程序里面该如何拼装。。考虑到里面的类型不同。。有整数的还有字符串的。。。字符串的必须前面加上两个单引号才可执行。。真是郁闷是我了。。请各位专家帮我一下好吗。。。小弟在此感谢了。。。
可以如下使用 例如:某字段名=值 and 字段名=值
你不用到底是整形还是字符串，只要在你调用时请确保输入的类似如下就可以了
username='tester' and type=1
0
mark...
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）等功能。
随便说一下：你出的分太高了，自己的专家分会很快就用完的。我就是用完了，现在开始出来赚分的。
