Visual Basic - sql 2008 validar user and password

Life is soft - evento anual de software empresarial
   
Vista:

sql 2008 validar user and password

Publicado por Martin (25 intervenciones) el 26/08/2013 21:10:04
Buen día a todos, tengo un problema con una aplicacion disenada en vb 6.0 conectada por ado a una bd sql server 2008/r2, ya he logrado conectarme pero no se como tendría que validar el password y el usuario, les adjunto el codigo que tengo hasta ahora, espero me puedan orientar.

gracias anticipadas...

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Option Explicit
Private cnn As ADODB.Connection
Private rst As ADODB.Recordset
Private Sub CMD_LOGIN_Click()
Dim tField As ADODB.Field
Dim USER, KEY As String
USER = TXT_USER.Text
KEY = TXT_KEY.Text
Set cnn = Nothing
Set rst = Nothing
Set cnn = New ADODB.Connection
Set rst = New ADODB.Recordset
cnn.Open "Driver={SQL Server};Server=VKSVR02\VKSQL2008;Database=006;Uid=" + TXT_USER.Text & ";Pwd=" & TXT_KEY.Text & ";"
rst.Open "SELECT USUARIO FROM vk_users", cnn, adOpenDynamic, adLockOptimistic
'validar usuario y passwowrd
'si los datos son correctos
    MsgBox "Bienvenido", vbExclamation
    Unload Me
    Form1.Show
'si los datos son incorrectos
    MsgBox "Error", vbCritical
rst.Close
cnn.Close
 
End Sub
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder