Foros del web, para los que viven de bits

quiero sacar registros de SQL Server por medio de un recorset para compararla con un txtbox y no ejecuta la instruccion porfavor.


Dim cnnconexion As ADODB.Connection
Dim cmdcomando As ADODB.Command
Dim rstnombre As ADODB.Recordset


Private Sub cmdentrar_Click()
Set cmdcomando = New ADODB.Command
Set rstpass = New ADODB.Recordset
Set rstnombre = New ADODB.Recordset

With cmdcomando
.ActiveConnection = cnnconexion
.CommandTimeout = 15
.CommandType = adCmdStoredProc
.CommandText = "select * from passwords where" & "nombre ='" & "txtusuario.Text" & "'"
Set rstnombre.ActiveCommand =cmdcomando.Execute()
End With
If Then
MsgBox (" BIENVENIDO AL SISTEMA")
Else
x = MsgBox("usuario EQUIVOCADO", vbCritical, "MENSAJE")
End If

End Sub

Veo varios detalles en tu código.

Tuyo:
.CommandText = "select * from passwords where" & "nombre ='" & "txtusuario.Text" & "'"

Sugerencia:
.CommandText = "SELECT * FROM passwords WHERE nombre ='" & "txtusuario.Text" & "'"

En el If que tienes me parece que hay algo de incongruencia:

If Then
MsgBox (" BIENVENIDO AL SISTEMA")
Else
x = MsgBox("usuario EQUIVOCADO", vbCritical, "MENSAJE")
End If

No estás comparando nada. El If siempre cumple la condición de verdadero. Aquí es donde debes de comparar el password que almacenaste en el Recordset y el password que el usuario ha tecleado.

Necesitas algo similar a:

If rstnombre("password") = txtpassword.txt Then

Saludos,


<div align="center"><a href="http://membres.lycos.fr/raac/"><img src="http://membres.lycos.fr/raac/Img/barra_raac.gif" width="400" height="20" border="0"></a></div>

Estoy de acuerdo contigo, raac, pero creo que en tu primera sugerencia sobran las comillas &quot; en &quot;txtusuario.Text&quot; .
Saludos

miper

Si me explicas tu problema, aun que sea en una o dos línea, pero en forma clara y sin tanto protocolo, quizás pueda ayudarte.

A simple vista, me parece que lo tuyo es cosa de chicos ... con todo respeto amigo.

De Venezuela, Hombre ... Ándale ...

miper:

Gracias por la corrección. Estás en todo lo correcto!

jcl:

¿Cosa de chicos? - ¿En qué parte del Foro se especifica que los foros son para temas más avanzados? - Los que participamos estamos para colaborar con todos nuestros compañeros, si un tema no te gusta, te parece muy poco atractivo o carente de nivel técnico... la solución es muy sencilla: no participes en ese mensaje. Con todo respeto.

Saludos,

<div align="center"><a href="http://membres.lycos.fr/raac/"><img src="http://membres.lycos.fr/raac/Img/barra_raac.gif" width="400" height="20" border="0"></a></div>

rac y miper: muchas gracias por su ayuda, se que me faltan cosas la verdad nunca habia manejado visual estoy haciendo un proyecto en mi escuela y la verdad que tengo muchas dudas si pudiera contactarme con ustedes para que me pudieran orientar

GRACIAS A DIOS QUE EXISTEN GENTE COMO USTEDES QUE PUEDEN AYUDAR A GENTE NOVATA COMO YO MUCHAS GARCIAS!!!!

Quizas???

mira mickel:
en una instruccion ADOque instruccion para ejecutar el query en sql desde visual basic y como lo paso al recordset para comparalo cun un campo que yo ingrese
&quot;SELECT * FROM passwords WHERE nombre ='&quot; &amp; txtusuario.Text &amp; &quot;'&quot;

No roed24 si eso me queda clarisimo. Ni siquiera te doy un consejo porque con los consejos de los amigos raac y miper ya deberia estar solucionado tu problema. Voy a que me sorprende la actitud de jcl que dice &quot;quizás&quot;...