[Resolvido] Vb 6.0-->Access (again)

[duarte69 0]

Boas,

 

Mais uma vez estou com um problema que não consigo resolver.

 

Fiz o mesmo que tinha feito num outro form para o Login do utilizador, mas o novo dá erro :S tá igual

 

CODE

Private Sub confirmar_Click()

 

Dim cn As New ADODB.Connection

Dim rs As New ADODB.Recordset

 

cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\ATI(pen)\MDB\projectotecnologico.mdb;Persist Security Info=False"

cn.Open

 

rs.Open "SELECT * From Trabalhadores WHERE (estado = True) and (aut_reg_trb=true) and (password = '" & upass.Text & "') and (n_funcionário = " & userid.Text & ")", cn, 3, 3

 

If rs.EOF Then

MsgBox "Username ou password incorrectos!", vbExclamation, "ERRO"

Else

...

end if

end sub

dá erro na linha a negrito, diz "Object required"

 

Alguém pode dar uma ajuda??

 

Cumps

[Anderson Roberto 0]

Não vi nada de errado aí, este campo é acentuado mesmo?

n_funcionário

[duarte69 0]

Boas,

 

Sim, o campo é acentuado. Os campos estão todos bem, desta vez verifiquei.

 

Outro form também está a dar o mesmo erro.

 

Cumps

[Anderson Roberto 0]

Tenta isso:

Private Sub confirmar_Click()

Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset

cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\ATI(pen)\MDB\projectotecnologico.mdb;Persist Security Info=False"

On Error Resume Next
cn.Open

If Err <> 0 Then
   MsgBox Err.Description
   Exit Sub
End If

rs.Open "SELECT * From Trabalhadores WHERE (estado = True) and (aut_reg_trb=true) and (password = '" & upass.Text & "') and (n_funcionário = " & userid.Text & ")", cn, 3, 3

If rs.EOF Then
MsgBox "Username ou password incorrectos!", vbExclamation, "ERRO"
Else
...
End If
End Sub

[duarte69 0]

Boas,

 

Obrigado pela ajuda, já trabalha, afinal era só um erro no nome da textbox http://forum.imasters.com.br/public/style_emoticons/default/blush.gif :rolleyes:

 

Cumps

[Anderson Roberto 0]

Ok!!!