Dim m_objCommand As New SqlCommand
m_objCommand.Connection = m_objConn(你的连接注意是:dim m_objConn As New SqlConnection)
m_objCommand.CommandType = CommandType.StoredProcedure
m_objCommand.CommandText = "UserLogin"
m_objCommand.Parameters.Add("@UserID", SqlDbType.NVarChar, 20)
m_objCommand.Parameters.Add("@UserPass", SqlDbType.NVarChar, 20)
m_objCommand.Parameters.Add("@LoginFlag", SqlDbType.Int, 4)
m_objCommand.Parameters.Add("@UserName", SqlDbType.NVarChar, 30)
m_objCommand.Parameters(0).Value = strUserID
m_objCommand.Parameters(0).Direction = ParameterDirection.Input
m_objCommand.Parameters(1).Value = strUserPass
m_objCommand.Parameters(1).Direction = ParameterDirection.Input
m_objCommand.Parameters(2).Direction = ParameterDirection.Output
m_objCommand.Parameters(3).Direction = ParameterDirection.Output
m_objCommand.ExecuteNonQuery()
If Me.m_objCommand.Parameters("@LoginFlag").Value = 1 Then
'登陆成功
else
'登陆失败
endif
存储过程:
CREATE PROCEDURE UserLogin
@UserID nvarchar(20),
@UserPass nvarchar(20),
@LoginFlag int output,
@UserName nvarchar(30) output
AS
declare @strSql nvarchar(200)
select @loginflag= convert(int,count(*)) from userinfodb where userid=@userid and userpass= @userpass
if @loginflag=1
begin
select @UserName= convert(nvarchar(30),username) from userinfodb where userid=@userid and userpass= @userpass
end
else
begin
set @loginflag=0
set @UserName=""
end
GO
刚学,抛砖引玉!呵呵。
Dim connection1 As New SqlConnection(text1)
Dim command1 As New SqlCommand("cutpage_sp", connection1)//cutpage_sp改为你存储过程的名字
command1.CommandType = CommandType.StoredProcedure//这句就是调用存储过程
Dim parameter1 As New SqlParameter("@Page", SqlDbType.Int)
parameter1.Value = num1
command1.Parameters.Add(parameter1)