Visual Basic

<br />
USE [ValRollClients]<br />
GO<br />
/****** Object:  StoredProcedure [dbo].[CheckExistance]    Script Date: 02/25/2008 08:40:08 ******/<br />
SET ANSI_NULLS ON<br />
GO<br />
SET QUOTED_IDENTIFIER ON<br />
GO<br />
ALTER Proc [dbo].[CheckExistance]<br />
(<br />
@username varchar(50),<br />
@OldPassword varchar(50),<br />
@OutRes int Output<br />
)<br />
as <br />
set @OutRes =(select count(*) FROM Login WHERE <br />
Username = @username And UPassword = @OldPassword)<br />
<br />

<br />
	declare @OutRes varchar(5)<br />
	Exec [CheckExistance] 'vuyiswa','5555',@OutRes Output<br />
	select @OutRes <br />
<br />

<br />
 con = New SqlConnection(strcon)<br />
<br />
        cmdselect = New SqlCommand<br />
<br />
        cmdselect.CommandTimeout = 0<br />
<br />
        cmdselect.CommandType = CommandType.StoredProcedure<br />
<br />
        cmdselect.CommandText = "CheckExistance"<br />
<br />
        cmdselect.Connection = con<br />
<br />
        cmdselect.Parameters.Add("@username", "Username")<br />
<br />
        cmdselect.Parameters.Add("@OldPassword", "strPassword")<br />
<br />
        cmdselect.Parameters.Add("@OutRes", SqlDbType.Int)<br />
<br />
        cmdselect.Parameters("@OutRes").Direction = ParameterDirection.Output<br />
<br />
        Dim bolres As Boolean<br />
<br />
        Dim intRes As Integer<br />
<br />
        Try<br />
            con.Open()<br />
<br />
<br />
            intRes = cmdselect.ExecuteScalar()<br />
<br />
            intRes = cmdselect.Parameters("@OutRes").Value<br />
<br />
<br />
            Select Case intRes<br />
                Case 1<br />
                    bolres = True<br />
                Case 0<br />
                    bolres = False<br />
<br />
            End Select<br />
            con.Close()<br />
<br />
        Catch ex As SqlClient.SqlException<br />
<br />
            MsgBox(ex.Message)<br />
<br />
        End Try<br />
<br />
        Return bolres<br />
<br />
<br />