login não da certo

[Flecha]

Kuroi,

Copiei um código postado por você em outro tópico

esta dando o erro 91

na linha

set rs = con.execute(sql)

Object variable With block variable not set

A sub que usei:

Private Sub Command1_Click()

Dim sql As String
sql = "Select * From usuarios Where login = ' " & Txtuser.text & " ' And Senha = ' " & Txtsenha.text & " ' "
Set Rs = Con.Execute(sql)

If Rs.EOF Then
    MsgBox "Usuário ou senha inválidos!"
Else
    Unload Me
    FormCadastro.Show
End If
End Sub

O que esta errado ?

Flecha

Editado Maio 11, 2010 por Flecha

[Anderson Fernandes]

Bom dia!

Qual a mensagem de erro?

Provavelmente o erro está no seu SELECT, o campos login e senha existem na tabela usuario do seu banco de dados?

E a conexão com o banco de dados estava aberta?

t+

[Flecha]

Olá,

Eu consegui tirar o erro, a abertura do BD estava em outro form e colei para o form do login.

Agora não dá erro mas também retorna que não confere o usuário não existe.

Esta tudo certo o login esta salvo junto com a senha mas ele não acha.

Ficou assim a sub:

Option Explicit

Private Sub Command1_Click()

Dim sql As String
sql = "Select * From usuarios Where login = ' " & Txtuser.text & " ' And Senha = ' " & Txtsenha.text & " ' "
Set Rs = Con.Execute(sql)

If Rs.EOF Then
    MsgBox "Usuário ou senha inválidos!"
Else
    Unload Me
    FormCadastro.Show
End If
End Sub



Private Sub Form_Load()
Set Con = New ADODB.Connection
Set Rs = New ADODB.Recordset
'Provedor de acesso ao Banco de dados

Con.Open " Provider = Microsoft.Jet.OLEDB.4.0; Data Source = " & App.Path & "\Cust.mdb"
'Abrindo uma tabela do banco de dados Cadastro

Rs.CursorLocation = adUseClient
End Sub

Flecha

[kuroi]

você ta pondo espacos na frente e no fim dos logins e senhas. teria q ser assim:

sql = "Select * From usuarios Where login = '" & Txtuser.text &  "' And Senha = '" & Txtsenha.text & "' "

[Flecha]

Kuroi,

Obrigado funcionou.

Flecha