Ejecutar un Stored Precedure de SQL

[lop7]

Prueba asi...

Código:

Private Sub cmdAceptar_Click()
	If txtUsuario = "" Or txtPassword = "" Then
		MsgBox "Faltan Datos", vbExclamation
		Exit Sub

	End If
	cnn.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=PhoneSystem; password=bet4aces; Initial Catalog=Development;Data Source=SANTS3C"
	sqlstr = "exec userlogin '" & txtUsuario & "','" & txtPassword & "'"

	rec.Open sqlstr, cnn, adOpenStatic, , adCmdText

	If Not rec.EOF Then 
        	continua cargando el programa
        else
	        msgbox "No tiene permiso"
	end if
	rec.close
	cnn.close
end sub

__________________________________________________ ____________________
pero en ves de hacer el stored procedure todo lo hiciera en VB

Código:

sqlstr="SELECT COUNT(*) FROM Users WHERE Login = '" & txtUsuario & "','" & txtPassword & "'"
	rec.Open sqlstr, cnn, adOpenStatic, , adCmdText

__________________________________________________ _____________________________________
procedimiento yo lo aria asi

Código:

IF EXISTS (SELECT * FROM dbo.SYSOBJECTS WHERE ID = OBJECT_ID(N'[dbo].[UserLogin]') AND OBJECTPROPERTY(ID, N'IsProcedure') = 1)
DROP PROCEDURE [dbo].[UserLogin]
GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO
CREATE PROCEDURE [UserLogin]
@User NVARCHAR(20),
@Pass NVARCHAR(20)
WITH ENCRYPTION
AS

SET NOCOUNT ON

SELECT COUNT(*) FROM Users
WHERE Login = @User AND UserPass = @Pass

GO

porq lo q quieres es verificar si el login y password coresponde con el q esta en la BD...haces la consulta y con esto

Código:

If Not rec.EOF Then

verificas si existe o no
saludos...
nos vmos...