buenas el problema que tengo es el siguiente; mi aplicacion esta en un cliente se conecta a la base de datos pero al momento de hacer una consulta no recive la respuesta correcta, a lo mejor tengo que configurar el odbc de alguna forma?. gracias de ante mano

se conecta de esta forma sin problema:

Public Function conectar()
On Error Resume Next

Set con = New ADODB.Connection

STRCONEX = "DSN=myodbc_agenda;UID=ag;PWD=123aa;"
con.ConnectionString = GloConnectionString
con.CursorLocation = adUseClient
con.ConnectionTimeout = 5
con.Open STRCONEX
If Err <> 0 Then

MsgBox Err.Description

End If

End Function

y retorna falso esta cunsulta aúnque sea verdara:

Public Function validar(ByVal n As String, ByVal c As String) As Boolean
Dim rs As Recordset
Set rs = New ADODB.Recordset
With rs
.ActiveConnection = con
.CursorLocation = adUseClient
.CursorType = adOpenDynamic
.LockType = adLockOptimistic

.Open "select * from cuenta where nombre='" & n & "' and clave='" & c & "'"
End With

If rs.EOF Then
validar = False
Else
validar = True
End If


End Function

__________________
Mi Misión La Nutrición

Saludos,

veamos, ya que estas haciendo pruebas, te recomendaria que hicieras la siguiente consulta para comprobar que te trae datos dicha consulta:

"select * from cuenta"

Verifica previamente que en la tabla cuenta hay datos...no vaya a ser

:smt003 .

Imagino que la funcion conectar la llamas previamente. Ademas no comprendo porque para conectarte, si dicha funcion no devuelve nada, porque la declaras como funcion y no como metodo.

Comprueba antes de lanzar la consulta, que la conexion esta abierta.

Por otra parte, veo que en tu consulta pones:

"...where nombre='" & n & "' and clave='" & c & "'"

Te comento, si nombre y clave son de tipo varchar, deberias escribir esta linea asi:

"...where nombre like '" & n & "' and clave like '" & c & "'"

Espero me comentes, para ir viendo que puede pasar.

__________________
Mi programuca te lo regalo, la ideuca te la vendo

muchas gracias po tu ayuda al verificar que era lo que retornaba se estaba conectando a otra base de datos :smt003 , no pense en eso antes :smt005 .

__________________
Mi Misión La Nutrición