Ayuda en consulta sql y visual basic 6.0 comparando campos txt

[Giny]

Hola, tengo una bd en sql con una tabla de "Usuarios" y con un campo Nom
Necesito comparar el campo Nom con un campo txt del formulario de vb y tengo la sgte instruccion: If ("SELECT FROM Usuarios WHERE Nom ='" & (Text1.Text) & "' ") Then

Eso me da error 13: no coinciden los tipos
En la bd el campo Nom esta definido como varchar. Pero ya probe text, ntext y no me sirve.

Cómo se hace para comparar con una condicion???!!!!

GRACIAS!

[flaviovich]

Primero tienes que obtener el dato de la BD

Código:

Set rs = New ADODB.Recordset
sql = "SELECT Id FROM Usuarios WHERE Nom ='" & (Text1.Text) & "' "
rs.Open sql, conn, adOpenForwardOnly, adLockReadOnly
If rs.EOF Then
'No existe
End If

Tu problema en si es de programacion no de BD.

[Giny]

ok tengo esto pero no me compara los datos:

sSelect = "SELECT * FROM Usuarios WHERE Nom ='" & (Text1.Text) & "' "
cn.Open "Provider=SQLOLEDB; " & _
"Initial Catalog=STO; " & _
"Data Source=(local); " & _
"integrated security=SSPI; persist security info=True;"
' El recordset para acceder a los datos
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
' Abrir el recordset de forma estática, no vamos a cambiar datos
rs.Open sSelect, cn, adOpenStatic

If (rs.BOF = False) Then
rs.MoveFirst
Do
If (sSelect = Text1.Text) Then
nombre = Text1.Text
Form1.Show
End if
rs.movenext
loop until(enco = 1)or (rs.eof)

[flaviovich]

Código:

...
If rs("Nom") = Text1.Text Then
...

Aunque no entiendo el sentido de tu codigo.

[Giny]

Esque estoy haciendo un inicio de sesion en donde hay que comparar un campo texto con el campo nombre de usuario de la base de datos, si son iguales lo va a dejar entrar al sistema. La idea es q en un ciclo compare ese nombre con el campo de la base de datos y si no lo encuentra entonces q despliegue un mensaje de usuario no encontrado. Pero me sigue dando error, ahora me dice error 3021 de un registro eliminado o algo asi...

[flaviovich]

Código:

If rs.EOF Then
msgbox "No existe usuario"
Else
'validar contraseña
End If

Te recomiendo continuar con tus consultas en el foro de programacion.
Suerte!