Programación General > Visual Basic 6.0 e inferiores

 Primeros Pasos

(1/1)

noldo:
Hola amigos de solocodigos, bueno yo soy chileno y estoy dando mis primeros pasos en esto de Visual Basic, lo encuetro muy emocionante:

En estos momentos estoy diseñando un ejercicio algo así como cuentas de usuario....estoy ocupando "Visual Basic 6.0" + "Sql Server 7.0"

Cree una tabla llamada Usuarios en sql y mi problema es el siguiente:

Tengo un form con  2 Text.box, lo correcto seria que en el Text.box 1 se ingresara el "username" y en el 2 la clave....bueno eso no sé como hacerlo :angry: , lo que si pude hacer, fue que ingresando la clave en el "Text.box" 2 y pudo ingresar al siguiente form (usuario), el codigo que edite para eso fue el siguiente:


--- Código: Text --- Private Sub Command1_Click()If Text2 = "" Then       MsgBox "Ingrese su Password Usuario", vbCritical, "Atención" 'despliega el siguiente mensaje  Text2.SetFocus   Else    sql = "select Pass_User from Usuario where Pass_User like '" + Text2.Text + "%'"    Set rst = cnn.Execute(sql)    If rst.EOF = True ThenMsgBox "Password Incorrecto", alert, "Atención"   Else   MsgBox "Bienvenido", alert, "Atención"            Usuario.Show            Unload Me            rst.MoveNext    Set rst = Nothing    End If   End IfEnd Sub 
me gustaria que me instruyeran para que ingresando el "Username", junto con la "clave", pueda ingrear al siguiente Form.....

Puede que les parezca un tanto absurda la pregunta, pero soy novato en esto....
bueno desde ya gracias!!!!

ElNapster:
Bueno, para mi el query es el que esta mal porque yo lo haria asi
text1 = nombre del usuario
text2 = password

La comparacion del password va a hacer con respecto al text1.


--- Código: Text ---Select password  From UsuarioWhere usuario = text1.text 
y en ese momento estariamos obteniendo el pass el cual con el recorset  lo comparariamos con el text2 .....

 :comp:

mamex:
Pues si, como dijo napster tu consulta está mal, creo que debería ser más bien así:


--- Código: Text --- sql = "select Pass_User from Usuarios where Pass_User = '" & Text2.Text & "'" & " and userName = '" & text1.text & "'"  
Espero y ésto te ayude.

noldo:
:kicking:  :kicking: Muchas gracias!!!...a ambos, me resultó de maravilla B) ......le estaré molestando constantemente con estas preguntas un poco simples, espero tengan paciencia  :unsure: ....saludos

Navegación

[0] Índice de Mensajes