[存储过程]

‘//////////////////////////////////////////

CREATE PROCEDURE Test_procedure @cid int ,@y int, @n varchar(10) output

AS

select * from city where cid=@cid

if @y=1

begin

  set @n = '成功！'

  return 0

end

else

begin

  set @n = '失败！'

  return -1

end

GO

[程序中调用存储过程]

‘////////////////////////////////////////////////////

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

　　    Dim conn As OleDbConnection

　　    Try

　　　　    conn = New OleDbConnection("provider=sqloledb;data source=localhost;user id=sa;password=;initial catalog=jiang")

　　　　    Dim cmd As New OleDbCommand(" {? = call Test_procedure(?,?,?)}", conn)

　　　　    conn.Open()

　　　　    With cmd

　　　　　　    .CommandType = CommandType.Text ‘这句可以省略，因为是默认设置，但这里还是显式地写出以引起注意

　　　　　　    .Parameters.Add("@retval", OleDbType.Integer)

　　　　　　    .Parameters.Add("@cid", OleDbType.Integer)

　　　　　　    .Parameters.Add("@y", OleDbType.Integer)

　　　　　　    .Parameters.Add("@n", OleDbType.VarChar, 10)

　　　　　　    .Parameters("@n").Direction = ParameterDirection.Output

　　　　　　    .Parameters("@retval").Direction = ParameterDirection.ReturnValue

　　　　　　    .Parameters("@cid").Value = 1

　　　　　　    .Parameters("@y").Value = 1

　　　　　　    .ExecuteNonQuery()

　　　　　　    MessageBox.Show(.Parameters("@n").Value) ‘测试结果为“成功！”

　　　　    End With

　　    Catch ex As Exception

　　　　    MessageBox.Show(ex.ToString)

　　   Finally

　　　　    conn.Close()

　　    End Try

    End Sub