Login

[mestre fyoda]

Private Sub Image1_Click()

Set Rs = Conexao.Execute(" Select * from LOG where USUFUN = ' usuario.text ' ")

    If Rs.EOF = False Then
        MsgBox ("Usuário " & usuario.Text & "inválido")
    Else
        MsgBox ("Usuário válido")
    End If
End Sub

o Rs no Module está :

Global Rs As ADODB.Recordset

[Graymalkin]

A linha...

Set Rs = Conexao.Execute(" Select * from LOG where USUFUN = ' usuario.text ' ")

... deveria ser:

Set Rs = Conexao.Execute("Select * from LOG where USUFUN = '" & usuario.text & "'")

Experimente mostrar (em uma MSGBOX) a string passada para Execute e você vai *ver* a diferença.

Abraços,

Graymalkin

[mestre fyoda]

é antes de postar aqui tinha visto o problema inserindo no MSGBOX porem não via o erro , é necessário colocar os & ?

[Graymalkin]

é antes de postar aqui tinha visto o problema inserindo no MSGBOX porem não via o erro , é necessário colocar os & ?

Como não via? :blink: No primeiro caso, você vai ver que estará escrito "usuario.text" literalmente e não o conteúdo dessa caixa de texto. E sim, é necessário colocar o operador de concatenação & para que você possa formar a string corretamente.

Abraços,

Graymalkin