SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: noldo en Viernes 2 de Febrero de 2007, 09:03

Título: Primeros Pasos
Publicado por: noldo en Viernes 2 de Febrero de 2007, 09:03
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
  1.  Private Sub Command1_Click()
  2. If Text2 = "" Then
  3.        MsgBox "Ingrese su Password Usuario", vbCritical, "Atención" 'despliega el siguiente mensaje
  4.   Text2.SetFocus
  5.    Else
  6.     sql = "select Pass_User from Usuario where Pass_User like '" + Text2.Text + "%'"
  7.     Set rst = cnn.Execute(sql)
  8.     If rst.EOF = True Then
  9. MsgBox "Password Incorrecto", alert, "Atención"
  10.    Else
  11.    MsgBox "Bienvenido", alert, "Atención"
  12.             Usuario.Show
  13.             Unload Me
  14.             rst.MoveNext
  15.     Set rst = Nothing
  16.     End If
  17.    End If
  18. End Sub
  19.  

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!!!!
Título: Re: Primeros Pasos
Publicado por: ElNapster en Viernes 2 de Febrero de 2007, 15:09
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
  1. Select password
  2.   From Usuario
  3. Where usuario = text1.text
  4.  

y en ese momento estariamos obteniendo el pass el cual con el recorset  lo comparariamos con el text2 .....

 :comp:
Título: Re: Primeros Pasos
Publicado por: mamex en Viernes 2 de Febrero de 2007, 18:21
Pues si, como dijo napster tu consulta está mal, creo que debería ser más bien así:

Código: Text
  1.  
  2. sql = "select Pass_User from Usuarios where Pass_User = '" & Text2.Text & "'" & " and userName = '" & text1.text & "'"
  3.  
  4.  

Espero y ésto te ayude.
Título: Re: Primeros Pasos
Publicado por: noldo en Sábado 3 de Febrero de 2007, 02:48
: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