.NET开发

本类阅读TOP10

·NHibernate快速指南(翻译)
·vs.net 2005中文版下载地址收藏
·【小技巧】一个判断session是否过期的小技巧
·VB/ASP 调用 SQL Server 的存储过程
·?dos下编译.net程序找不到csc.exe文件
·通过Web Services上传和下载文件
·学习笔记(补)《.NET框架程序设计(修订版)》--目录
·VB.NET实现DirectDraw9 (2) 动画
·VB.NET实现DirectDraw9 (1) 托管的DDraw
·建站框架规范书之——文件命名

分类导航
VC语言Delphi
VB语言ASP
PerlJava
Script数据库
其他语言游戏开发
文件格式网站制作
软件工程.NET开发
ASP.Net中使用VB.Net调用存储过程并得到返回值

作者:未知 来源:月光软件站 加入时间:2005-2-28 月光软件站

//存储过程代码
CREATE PROCEDURE [AddNewInvoiceInfo] (@sUserID int,@sClaimMethod varchar(50),@sInvoiceNum varchar(50),@sInvoiceDate datetime,@sBuyCity varchar(50))AS
Insert Into SMB_InvoiceInfo (MemberID,ClaimMethod,InvoiceNum,InvoiceDate,InvoiceCity) Values (@sUserID,@sClaimMethod,@sInvoiceNum,@sInvoiceDate,@sBuyCity)
return  @@IDENTITY
GO

//调用存储过程代码
Dim CN As New SqlConnection()
Dim InvoiceID As String
Try
    CN.ConnectionString = DBConStr
    CN.Open()
    Dim CMD As SqlCommand
    CMD = New SqlCommand("AddNewInvoiceInfo", CN)
    CMD.CommandType = CommandType.StoredProcedure

    CMD.Parameters.Add(New SqlParameter("@sUserID", SqlDbType.Int))
    CMD.Parameters("@sUserID").Value = CInt(UserID.Text)

    CMD.Parameters.Add(New SqlParameter("@sClaimMethod", SqlDbType.VarChar, 50))
    CMD.Parameters("@sClaimMethod").Value = TransName.Text

    CMD.Parameters.Add(New SqlParameter("@sInvoiceNum", SqlDbType.VarChar, 50))
    CMD.Parameters("@sInvoiceNum").Value = InvoiceNum.Text

    CMD.Parameters.Add(New SqlParameter("@sInvoiceDate", SqlDbType.DateTime))
    CMD.Parameters("@sInvoiceDate").Value = InvoiceDate.SelectedDate.Date

    CMD.Parameters.Add(New SqlParameter("@sBuyCity", SqlDbType.VarChar, 50))
    CMD.Parameters("@sBuyCity").Value = BuyCity.Text

    CMD.Parameters.Add(New SqlParameter("@sInvoiceID", SqlDbType.Int))
    CMD.Parameters("@sInvoiceID").Direction = ParameterDirection.ReturnValue

    CMD.ExecuteNonQuery()
    InvoiceID = CMD.Parameters("@sInvoiceID").Value.ToString()
    CMD.Dispose()
Catch ex As Exception
    Response.Write(ex.ToString())
Finally
    CN.Close()
End Try




相关文章

相关软件