|
//存储过程代码
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
[C语言系列]NET 中C#的switch语句的语法 [系统软件]托拽Explore中的文件到VB.net的窗口
[系统软件]Boost库在XP+Visual C++.net中的安装 [常用软件]新配色面板：Paint.Net3.0RC1官方下载
[常用软件]在Maxthon中使用Google网站加速器 [常用软件]用内建的“Net Meeting”聊天
[常用软件]在POWERBUILDER中使用WINSOCK控件的方法 [VB.NET程序]Henry的VB.NET之旅（三）—共享成员
[VB.NET程序]Henry的VB.NET之旅（二）—构造与析构 [VB.NET程序]Henry的VB.NET之旅（一）—失踪的窗体
| 
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
