信息发布软件,b2b软件,广告发布软件»B2B软件群发 › 『信息发布软件』 › b2b软件教程 › VB.net中怎么访问存储过程和实例教程

VB.net中怎么访问存储过程和实例教程

查看数: 2988 | 评论数: 2 | 收藏 0

关灯 | 提示：支持键盘翻页<-左右->

帖子模式

信息发布软件

发布时间: 2017-2-26 17:27

正文摘要:

VB.net中怎么访问存储过程和实例教程　使用SQL存储过程有什么好处　　■SQL存储过程执行起来比SQL命令文本快得多。当一个SQL语句包含在存储过程中时，服务器不必每次执行它时都要分析和编译它。　　■调用存 ...

信息发布软件 发表于 2017-2-26 17:30:36

实例教程3

首先，在SqlServer中创建存储过程，在调用时分为有参数和没有参数两种情况，
　　先就简单的没有参数的情况简要的介绍：
　　假设存储过程如下： CREATE PROC SelectAll
AS
　　SELECT * FROM StudentInf
　　则此sp的调用如下：
SqlCommand selectCMD = new SqlCommand(“SelectAll”, conn);
　　//conn 为SqlConnection
　　selectCMD.CommandType = CommandType.StoredProcedure;
　　如果需要将结果集加到某个DataAdapter上，则可如下：
SqlDataAdapter stuDA = new SqlDataAdapter();
　　stuDa.SelectCommand = selectCMD;
　　如果有参数：create proc andSelect
@StudentId varchar(10),
　　@StudentName varchar(10),
　　As
　　Select * from StudentInf where StudentId = @StudentId and StudentName = @StudentName
　　则参数可以如下添加：
　selectCMD.Parameters.Add(“@StudentId”, SqlDbType.NVarChar, 10);
　　selectCMD.Parameters.Add(“@StudentName”, SqlDbType.NvarChar, 10);
　　如果只有一个参数，也可以这样赋值：
　SqlParameters onePara = selectCMD.Parameters.Add(“@StudentId”, SqlDbType.NVarChar, 10);
　　onePara.Value = “ a string ”

复制代码

信息发布软件 发表于 2017-2-26 17:29:05

此页涉及到的存储过程的创建，在存储过程的创建中有源码
1、调用无参数存储过程
dim conn As New SqlConnection
dim FBasicDataRecord as new BasicDataRecord()
conn.ConnectionString = "Data Source=(local);Initial Catalog=LineManager;User ID=sa;Password=1"
conn.Open()
Dim cmd As SqlCommand
cmd = New SqlCommand("GetNewestData", conn) -------要调用存储过程名称
cmd.CommandType = CommandType.StoredProcedure -----------关键，要想调用存储过程，需将
commandtype类型设置为storedprocedure
Dim myReader As SqlDataReader
Try
myReader = cmd.ExecuteReader() -------------执行存储过程
If myReader.Read() Then
FBasicDataRecord.mySetDateTime = myReader.GetDateTime(0)
FBasicDataRecord.myHalfHourCost = myReader.GetDecimal(1)
FBasicDataRecord.myUnitTime = myReader.GetInt32(2)
FBasicDataRecord.myPrepareTime = myReader.GetInt32(3)
FBasicDataRecord.myLeastCurrency = myReader.GetDecimal(4)
FBasicDataRecord.myUserName = myReader.GetString(5)
Return True
Else
Return False
End If
Catch ex As Exception
Return ex.Message
Finally
conn.close()
End Try
2、调用有参数存储过程
Dim cmd As SqlCommand
dim conn As New SqlConnection
conn.ConnectionString = "Data Source=(local);Initial Catalog=LineManager;User ID=sa;Password=1"
conn.Open()
cmd = New SqlCommand("ProcCharge", conn) --------存储过程名称
cmd.CommandType = CommandType.StoredProcedure ----------改变类型
Dim a As New SqlParameter("@CardNo", SqlDbType.VarChar) ------------将存储过程中涉及的参数加入进来，并附
值。就像给函数的各个参数赋值一样
a.Value = myCharge.myCardNo
cmd.Parameters.Add(a)
Dim b As New SqlParameter("@ChargeDateTime", SqlDbType.DateTime)
b.Value = myCharge.myChargeDateTime
cmd.Parameters.Add(b)
Dim c As New SqlParameter("@Charge", SqlDbType.Int)
c.Value = myCharge.myCharge
cmd.Parameters.Add(c)
Dim d As New SqlParameter("@UserName", SqlDbType.VarChar)
d.Value = myCharge.myUserName
cmd.Parameters.Add(d)
Dim e As New SqlParameter("@LastBalance", SqlDbType.Float)
e.Value = myCharge.myLeastBalance
cmd.Parameters.Add(e)
Dim f As New SqlParameter("@CurrentBalance", SqlDbType.Decimal)
f.Value = myCharge.myCurrentBalance
cmd.Parameters.Add(f) ----------------参数块
Try
Return cmd.ExecuteNonQuery() > 0 ------------------执行存储过程。当存储过程涉及到的是插入删除或
更新操作时，用executenonquery（），而如果是查询，则用executereader（）
Catch ex As Exception
MsgBox(ex.Message)
Return False
Finally
conn.Close()
End Try
3、调用有返回值的存储过程
dim conn As New SqlConnection
conn.ConnectionString = "Data Source=(local);Initial Catalog=LineManager;User ID=sa;Password=1"
conn.Open()
Dim cmd As SqlCommand
cmd = New SqlCommand("procBalanceUserName", myConn.myConn) ---------存储过程名称
cmd.CommandType = CommandType.StoredProcedure ----------改变类型
cmd.Parameters.Add(New SqlParameter("@CardNo", SqlDbType.VarChar)) -------添加参数，此为输入参数
cmd.Parameters("@CardNo").Value = CardNo
cmd.Parameters.Add(New SqlParameter("@MachineNo", SqlDbType.VarChar))
cmd.Parameters("@MachineNo").Value = MachineNo
cmd.Parameters.Add(New SqlParameter("@Balance", SqlDbType.Float, 20)) ---------定义输出参数
cmd.Parameters("@Balance").Direction = ParameterDirection.Output -------输出参数用此标识
'输出参数必须有指定长度，否则不会成功。
cmd.Parameters.Add(New SqlParameter("@UserName", SqlDbType.VarChar, 10)) -------输出参数必须是名字，类
型，长度。不可省略。否则，会出错误。
cmd.Parameters("@UserName").Direction = ParameterDirection.Output
Try
cmd.ExecuteReader() ---------------执行存储过程
myBalance = cmd.Parameters("@Balance").Value.ToString() ----------将存储过程的返回值赋给定义的变量
myUserName = cmd.Parameters("@UserName").Value.ToString()
Catch ex As Exception
MsgBox(ex.Message)
Finally
Conn.Close()
End Try
总结一下，调用存储过程，首先，实例化sqlcommand，然后修改commandtype类型，如果参数，则给参数赋值或定义输出参数。然后执行。

复制代码

实例教程2

		自动登录	找回密码
密码			立即注册

VB.net中怎么访问存储过程和实例教程

正文摘要:

回复