View Full Version : como posso utilizar o noMatch no vb6


priank
21-12-2007, 16:48
como posso utlizar o vb 6? ajudem sff
sera que uma referencia que nao tou a utilizar???

Armadillo
21-12-2007, 16:59
nomatch aplica-se a conexões do tipo dao. se usares uma conexao ado esquece...

edit:
porque queres usar o nomatch?

priank
21-12-2007, 17:10
eu tou a utilzar conexões do tipo dao.
sera que perciso uma referencia adcional ou componente

Armadillo
21-12-2007, 17:15
mostra onde estas a tentar fazer o nomatch pf.

priank
21-12-2007, 17:20
e este o codigo:




Dim db As Database
Dim tbl As Recordset

Set db = OpenDatabase(App.Path & "\bd_clientes&artigos.mdb")
Set tbl = db.OpenRecordset("security")

If a <> "" And b <> "" Then
If tbl.RecordCount > 0 Then
tbl.MoveFirst
tbl.Index = "ind_user"
tbl.Seek "=", a
If tbl.NoMatch Then
MsgBox "O user não existe"
Else
If tbl!pass = b Then
MsgBox "Bem Vindo"
frmMenu.Show
End If
End If




End If
Else
MsgBox "Por favor introduza um user name e uma pass"

End If

Armadillo
21-12-2007, 17:33
sugestao: tens que usar o dao? é que o ado é muito mais potente.
faz um breakpoint na linha em que usas o nomatch e ve qual o valor da propriedade .nomatch.