vb 里执行存储过程 Dim pname As String
Dim pyw As String
Dim returnValue As String
Dim param1 As New Parameter
Dim param2 As New Parameter
Dim param3 As New Parameter yname = Trim(Text1.Text)
ypw = Trim(Text2.Text)
Cmd.CommandType = adCmdStoredProc
Cmd.CommandText = sp_CheckPass
Set param1 = Cmd.CreateParameter("@yname", adVarChar, adParamInput, 10, yname)
Set param2 = Cmd.CreateParameter("@ypw", adVarChar, adParamInput, 10, ypw)
Set param3 = Cmd.CreateParameter("@returnValue", adVarChar, adParamOutput, 8)
Cmd.Parameters.Append param1
Cmd.Parameters.Append param2
Cmd.Parameters.Append param3
Cmd.Execute
'returnValue = CLng(param3)
returnValue = CStr(Cmd.Parameters("@returnValue").Value)定义存储过程
CREATE PROCEDURE sp_CheckPass
@CHKName VARCHAR(10),
@CHKPass VARCHAR(10),
@reutnValue VARCHAR(8)
OUTPUT AS
IF EXISTS(SELECT yuser FROM yonghu
WHERE yuser=@CHKName AND ypw=@CHKPass)
SELECT @reutnValue='pass'
ELSE
SELECT @reutnValue='Invalid' GO 会出错:语法错误或违反访问规则.
为什么会这样??
Dim pyw As String
Dim returnValue As String
Dim param1 As New Parameter
Dim param2 As New Parameter
Dim param3 As New Parameter yname = Trim(Text1.Text)
ypw = Trim(Text2.Text)
Cmd.CommandType = adCmdStoredProc
Cmd.CommandText = sp_CheckPass
Set param1 = Cmd.CreateParameter("@yname", adVarChar, adParamInput, 10, yname)
Set param2 = Cmd.CreateParameter("@ypw", adVarChar, adParamInput, 10, ypw)
Set param3 = Cmd.CreateParameter("@returnValue", adVarChar, adParamOutput, 8)
Cmd.Parameters.Append param1
Cmd.Parameters.Append param2
Cmd.Parameters.Append param3
Cmd.Execute
'returnValue = CLng(param3)
returnValue = CStr(Cmd.Parameters("@returnValue").Value)定义存储过程
CREATE PROCEDURE sp_CheckPass
@CHKName VARCHAR(10),
@CHKPass VARCHAR(10),
@reutnValue VARCHAR(8)
OUTPUT AS
IF EXISTS(SELECT yuser FROM yonghu
WHERE yuser=@CHKName AND ypw=@CHKPass)
SELECT @reutnValue='pass'
ELSE
SELECT @reutnValue='Invalid' GO 会出错:语法错误或违反访问规则.
为什么会这样??
Cmd.CommandText = "sp_CheckPass"
Set param2 = Cmd.CreateParameter("@ypw", adVarChar, adParamInput, 10, ypw)
和
@CHKName VARCHAR(10),
@CHKPass VARCHAR(10),
中的参数不对应.