• <menuitem id="ysr28"><object id="ysr28"></object></menuitem>
    <div id="ysr28"></div><div id="ysr28"><s id="ysr28"></s></div>
    <dl id="ysr28"><menu id="ysr28"></menu></dl>
    <tbody id="ysr28"></tbody>
  • <sup id="ysr28"><menu id="ysr28"></menu></sup>
  • <dl id="ysr28"></dl>
    <dl id="ysr28"><menu id="ysr28"></menu></dl>
    首页 | 社区 | 博客 | 招聘 | 文章 | 新闻 | 下载 | 读书 | 代码
    亲,您未登录哦! 登录 | 注册

    VB.Net调用存储过程并得到返回值

    打印文章

    分享到:
    //存储过程代码

    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

    本栏文章均来自于互联网,版权归原作者和各发布网站所有,本站收集这些文章仅供学习参考之用。任何人都不能将这些文章用于商业或者其他目的。( Pfan.cn )

    编程爱好者论坛

    本栏最新文章

    双色球红球杀号方法
  • <menuitem id="ysr28"><object id="ysr28"></object></menuitem>
    <div id="ysr28"></div><div id="ysr28"><s id="ysr28"></s></div>
    <dl id="ysr28"><menu id="ysr28"></menu></dl>
    <tbody id="ysr28"></tbody>
  • <sup id="ysr28"><menu id="ysr28"></menu></sup>
  • <dl id="ysr28"></dl>
    <dl id="ysr28"><menu id="ysr28"></menu></dl>
  • <menuitem id="ysr28"><object id="ysr28"></object></menuitem>
    <div id="ysr28"></div><div id="ysr28"><s id="ysr28"></s></div>
    <dl id="ysr28"><menu id="ysr28"></menu></dl>
    <tbody id="ysr28"></tbody>
  • <sup id="ysr28"><menu id="ysr28"></menu></sup>
  • <dl id="ysr28"></dl>
    <dl id="ysr28"><menu id="ysr28"></menu></dl>