16,555
社区成员
发帖
与我相关
我的任务
分享
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER OFF
GO
ALTER PROCEDURE [dbo].[SSD_sp_AS_scjh]
@AAA char(2),
@lcErrMsg varchar(500) output
@dsfs varchar(40) output
AS
SELECT @dsfs='dfas'
IF @AAA=''
BEGIN
SELECT @lcErrMsg='ASSADFSAD'
RETURN
END
select * from asdfasd
Private sqlcon As SqlConnection
Private sqlcmd As SqlCommand
Private sqladp As SqlDataAdapter
Private ID As Integer
Public Property _ID() As Integer
Get
Return ID
End Get
Set(ByVal value As Integer)
Me.ID = value
End Set
End Property
Private GroupID As String
Public Property _GroupID() As String
Get
Return Me.GroupID
End Get
Set(ByVal value As String)
Me.GroupID = value
End Set
End Property
Private ItemID As String
Public Property _ItemID() As String
Get
Return Me.ItemID
End Get
Set(ByVal value As String)
Me.ItemID = value
End Set
End Property
Private Rights As String
Public Property _Rights() As String
Get
Return Me.Rights
End Get
Set(ByVal value As String)
Me.Rights = value
End Set
End Property
Public Function select_Rights() As DataSet
Return GetDataSet("ss", Nothing)
End Function
Private Function CreateCmd(ByRef sqlcon As SqlConnection, ByVal sqltxt As String, ByRef paras() As IDataParameter) As SqlCommand
Me.sqlcmd = New SqlCommand(sqltxt, sqlcon)
Me.sqlcmd.CommandType = CommandType.StoredProcedure
If Not paras Is Nothing Then
For Each para As SqlParameter In paras
Me.sqlcmd.Parameters.Add(para)
Next
End If
Return Me.sqlcmd
End Function
Private Function ExecuteNonQuery(ByRef sqlcontxt As String, ByRef paras() As IDataParameter) As Integer
Me.sqlcon = New SqlConnection(System.Configuration.ConfigurationManager.ConnectionStrings("ConnectionString").ConnectionString)
Me.sqlcmd = CreateCmd(Me.sqlcon, sqlcontxt, paras)
Try
Me.sqlcon.Open()
Return Me.sqlcmd.ExecuteNonQuery()
Catch ex As Exception
Throw New Exception(ex.Message)
End Try
End Function
Private Function GetDataSet(ByRef sqlcontxt As String, ByRef paras() As IDataParameter) As DataSet
Me.sqlcon = New SqlConnection(System.Configuration.ConfigurationManager.ConnectionStrings("ConnectionString").ConnectionString)
Me.sqlcmd = CreateCmd(Me.sqlcon, sqlcontxt, paras)
Me.sqladp = New SqlDataAdapter(Me.sqlcmd)
Dim ds As New DataSet()
sqladp.Fill(ds)
Return ds
End Function